Publipostage entre Word et Excel ; problème de macro, besoin d'aide !

Publipostage entre Word et Excel ; problème de macro, besoin d'aide ! - Logiciels - Windows & Software

Marsh Posté le 30-08-2010 à 11:42:03    

Bonjour à tous,
 
J'ai besoin d'aide concernant le publipostage entre Word et Excel. (Office 2003)
 
Je travaille sur un pc en réseau et mes documents sont sur un serveur de type "F://Fichebase/EMOPP/Groupe1"
J'ai enregistré mon document Word "Courrier" dans ce dossier qui est relié en publipostage avec un tableau Excel "Tableau_de_suivi" qui est dans le même dossier.
 
Mon problème se pose au moment où je crée un deuxième sous-dossier pour devenir "F://Fichebase/EMOPP/Groupe2"
Je pensais qu'il me suffisait de faire une copie de mon dossier Groupe1 et de nommer ce nouveau dossier en Groupe2 pour retrouver les liaisons entre Word et Excel.
Or, le chemin défini par Word est trop complet et renvoie systématiquement au dossier Groupe1 :
"F://Documents/EMOPP/Groupe1/Tableau_de_suivi.xls" alors que mon document Word et mon classeur Excel sont bien dans le dossier Groupe2.
 
Et comme j'ai plusieurs documents Word dans ce dossier, je dois refaire les liaisons à chaque nouveau groupe.
 
J'ai alors tenté de créer une Macro dans Word pour raccourci le chemin entre Word et Excel sauf qu'au démarrage, la macro ne reconnait pas la position absolue du document Word et ne trouve pas le chemin vers le fichier Excel.
 
Ma macro :
Sub auto_open()
'
' Macro1 Macro
' Macro enregistrée le 30/08/2010 par accueil1
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "Tableau_de_suivi.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=Tableau_de_suivi.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";J" _
        , SQLStatement:="SELECT * FROM `'Convention 66482141$'`", SQLStatement1:= _
        "", SubType:=wdMergeSubTypeAccess
End Sub
 
Je pense que la solution serait peut-être que Word définisse sa position absolue au démarrage de la macro et peut-être que la-dite macro trouverait le fichier Excel qui est dans le même dossier mais je ne sais pas comment faire !  :sweat:  
 
Merci par avance !
 
Bob84


Message édité par bob84 le 30-08-2010 à 12:23:06
Reply

Marsh Posté le 30-08-2010 à 11:42:03   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed