Discussion :

[Evilapin]

Bonjour,

J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub publipostage()
'
' publipostage Macro
' publipostage
'
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\User\Desktop\contrat\INTEGRAL DESIGNATION MAKER3\modeleIM3.xlsm" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\User\Desktop\contrat\INTEGRAL DESIGNATION MAKER3\modeleIM3.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engi" _
, SQLStatement:="SELECT * FROM `Données$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
 
End Sub

Je souhaiterais que les chemins vers les fichiers (en gras) soient relatifs pour que ça puisse fonctionner chez tous les membres de mon services, peut importe le dossier dans lequel ils glissent le fichier.

Pourriez-vous m'aider ?

J'ai essayé avec le ThisWorkbook.Path mais je n'y arrive pas.

Merci beaucoup !

[Invité]

Bonjour,

Regardez ici, si cette méthode utilisant la collection Variables d'un document peut vous aider : sauvegarder-lire-macro-infos-collection-variables-document-word