Ouvri fichier a partir d'un USF

Bonjour à tous et bonne année,

Je sais vos possibilité c'est pour cela que je me refère toujours à ce forum.

Je désire à partir d'un textbox d'un USf pouvoir me diriger dans mon répertoire et ouvrir le fichier sélectionner par le TextBox

Ce TextBox récupère les données à partir d'une sélection sur une ListBox

Voic ce que j'ai mis comme code

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 ChDir "C:\Users\Noel\Documents\Dossier VPR\Dos.xls-VPR"
    Workbooks.Open Filename:= _
        "C:\Users\Noel\Documents\Dossier VPR\Dos.xls-VPR\FACT-411-CHAFoNoLeLa_N° FACT.2013-10.0001.xls" _
        , UpdateLinks:=0
       ' msgbox textbox1
       Unload Me
End Sub

Il me donne le bon résultat mais je souhaiterai un message box qui reprendrai le nom du fichier

exp : MsgBox "Est-ce bien le N° de la fcture choisi?" avec bien sure vbYesNo "Le nom sélectionné du TextBox"FACT-411-CHAFoNoLeLa_N° FACT.2013-10.0001.xls"

Merci de votre aide

Amicalement

Noel

Bonjour

Ne sachant pas ce que contient ta TextBox, j'ai supposé qu"elle ne contient pas l'extension du fichier

A tester

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  If MsgBox("Est-ce bien le N° de la facture choisi ?" & vbCr & Me.TextBox1, vbQuestion + vbYesNo, "Confirmation") <> vbYes Then Exit Sub
  ChDir "C:\Users\Noel\Documents\Dossier VPR\Dos.xls-VPR"
  'Workbooks.Open Filename:= _
              "C:\Users\Noel\Documents\Dossier VPR\Dos.xls-VPR\FACT-411-CHAFoNoLeLa_N° FACT.2013-10.0001.xls" _
              , UpdateLinks:=0
  Workbooks.Open Filename:= _
              "C:\Users\Noel\Documents\Dossier VPR\Dos.xls-VPR\" & Me.TextBox1 & ".xls" _
              , UpdateLinks:=0
  ' msgbox textbox1
  Unload Me
End Sub