Comment avoir le chemin d'un fichier dans un text box

Bonjour,

je cherche une fonction qui peut m'aider à parcourir des fichiers word à travers un boutton (parcourir ) et afficher le path du fichier selectionné dans un textbox qui se trouve juste à coté du boutton parcourir ,

j'ai commencé avec ce code ci dessus mais il fait juste l'ouverture du fichier selectionné alors que c'est pas vraiment ce que je cherche.

Merci

Dim vaFiles As Variant
Dim i As Long

vaFiles = Application.GetOpenFilename _
         (FileFilter:="Excel Filer (*.xls),*.xls", _
         Title:="Open File(s)", MultiSelect:=True)

If Not IsArray(vaFiles) Then Exit Sub

 With Application
      .ScreenUpdating = False
      For i = 1 To UBound(vaFiles)
         Workbooks.Open vaFiles(i)
      Next i
      .ScreenUpdating = True
End With

Bonjour

Il faut lui faire afficher le nom

Sub test()
Dim vaFiles As Variant
Dim i As Long

  vaFiles = Application.GetOpenFilename _
            (FileFilter:="Word Filter (*.doc),*.doc", _
             Title:="List File(s)", MultiSelect:=True)

  If Not IsArray(vaFiles) Then Exit Sub
  For i = 1 To UBound(vaFiles)
    MsgBox vaFiles(i)
  Next i

End Sub

Bonjour je l'ai testé mais il m'affiche aucun fichier word

Bonjour

r4944 a écrit :

il m'affiche aucun fichier word

Tu en as peut-être pas

A tester

Sub test()
Dim vaFiles As Variant
Dim i As Long

  vaFiles = Application.GetOpenFilename _
            (FileFilter:="Word Filter (*.doc; *.docx),*.doc;*.docx", _
             Title:="List File(s)", MultiSelect:=True)

  If Not IsArray(vaFiles) Then Exit Sub
  For i = 1 To UBound(vaFiles)
    MsgBox vaFiles(i)
  Next i

End Sub

C'est bon je viens de l'essayer ça fonctionnait bien pour l'afficher dans le input Box je dois juste changer le msgbox par le nom de l'inputbox c'est bien ça