Bonjour  
 
 
J'ai un petit problème dont la solution doit etre trés facile mais je ne la vois pas
J'aimerais ouvrir le fichier excel TEST1 avec le repertoire est choisi par l'ulisateur...tout marche sauf la fin ...
L'erreur est au niveau  du
Workbooks.OpenText Filename:="TextBox4.Value\TEST1.TXT", _
    DataType:=xlDelimited, Tab:=True
 
 
Voici la macro entiere
 
 
Private Sub CommandButton4_Click()
 
'L'utilisateur vient sélectionner le répertoire
 
Dim Repertoire As FileDialog
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
 
'Affichage dans la fenêtre texte du répertoire demandé
TextBox4.Value = Repertoire.SelectedItems(1)
 
 
 
Workbooks.OpenText Filename:="TextBox4.Value\TEST1.TXT", _
    DataType:=xlDelimited, Tab:=True
 
end sub
 
 
cordialement  
en vous remerciant

Salut

merci mais mon probleme est que j'aimerais ouvrir un fichier dont le nom reste invariant du repertoire choisis ...

Workbooks.OpenText Filename:=TextBox4.Value & "TEST1.TXT", _
    DataType:=xlDelimited, Tab:=True  
 
Et comme ça ?

Il m'affiche erreur d'objet ..donc j'ai introduit la variable nom , puis fichier introuvable,  j'ai rajouté le / et la erreur de syntaxe lol ..
merci pour votre aide ...  
 
Voici le code que j'ai essayé
 
Dim Repertoire As FileDialog
Dim nom As String
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
 
'Affichage dans la fenêtre texte du répertoire demandé
TextBox4.Value = Repertoire.SelectedItems(1)
nom = TextBox4.Value
 
Workbooks.OpenText Filename:=nom/ & "TEST1.TXT", _
    DataType:=xlDelimited, Tab:=True

arg , avec ta solution il me dit que le fichier testTEXT1.txt est introuvable , ....

J'ai bon à force de chercher , il fallait définit la variable comme cela ..  
merci encore  
 
nom = TextBox4.Value & "\"

Ha ouai sorry j'ai viré le / sans faire exprès