Bonjour le forum,
J'aimerais modifier un petit truck sur ce macro :
Plus précisément sur cette ligne :
Je souhaite paramétrer sur un emplacement fixe, et non pas ouvrir le fichier nommé "Attestation de T.V.A..doc" qui se trouve dans le même répertoire.
Je souhaite ouvrir ce fichier toujours à partir de :
C:\Akisti Bat
Merci d'avance 🙂
a+
J'aimerais modifier un petit truck sur ce macro :
Code:
Option Explicit
Private Sub TSélectionner_Click()
Dim OWord As Object
Dim ODoc As Object
Dim i&
If LClient.ListIndex = -1 Then MsgBox "Sélectionner le client !", vbInformation, "Attention": Exit Sub
Unload Me
Set OWord = CreateObject("Word.Application")
Set ODoc = OWord.Documents.Open(ThisWorkbook.Path & "\Attestation de T.V.A..doc")
With ODoc
For i = 1 To 1
.Bookmarks("NomClient").Range = Range("NomClient")
.Bookmarks("NuméroFacture").Range = Range("NuméroDocument")
.Bookmarks("TotalTTC").Range = Range("TotalTTC")
Next
End With
OWord.Visible = True
End Sub
Code:
Set ODoc = OWord.Documents.Open(ThisWorkbook.Path & "\Attestation de T.V.A..doc")Je souhaite ouvrir ce fichier toujours à partir de :
C:\Akisti Bat
Merci d'avance 🙂
a+