Répertoire fixe

[RONIBO]

Bonjour le forum,

J'aimerais modifier un petit truck sur ce macro :

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

Plus précisément sur cette ligne :

Set ODoc = OWord.Documents.Open(ThisWorkbook.Path & "\Attestation de T.V.A..doc")

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+

 

[Paf]

Re : Répertoire fixe

Bonjour,

A priori

Monfichier = "nom du fichier.doc"
Set ODoc = OWord.Documents.Open("C:\Akisti Bat\" & Monfichier)

Bonne suite