Bonjour tout le monde,
J'ai un code VBA où je veux s'il ne trouve pas le fichier word concerné dans le chemin indiqué qu'il m'ouvre une boîte de dialogue pour pour pouvoir le sélectionner. Je veux savoir si c'est possible d'avoir un code qui prend en considération le nouveau chemin pour les utilisations ultérieurs pour que je ne sois pas obligé de l'indiquer dans mon code VBA. Merci infiniment.
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
18
19
20
21
22 Sub publipost() Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application wdApp.Visible = True Set wdDoc = wdApp.Documents.Open("C:\Users\PC\Desktop\ACCESS\SUBROGATION\test\lettre.docx") With wdDoc.MailMerge .OpenDataSource Name:="C:\Users\PC\Desktop\ACCESS\SUBROGATION\test\SUBROGATION 2021 Finale - Copie.accdb", SQLStatement:="SELECT * FROM [RPUBLI]" .Destination = wdSendToPrinter .SuppressBlankLines = True .Execute End With wdDoc.Close False Set wdDoc = Nothing wdApp.Quit Set wdApp = Nothing End Sub
Partager