Sub choixRepertoire()
Dim objShell As Object, objFolder As Object
Dim SecuriteSlash As Integer
Dim Chemin As String
Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.BrowseForFolder(&H0&, 'Choisir un répertoire', &H1&)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path
SecuriteSlash = InStr(objFolder.Title, ':')
If SecuriteSlash > 0 Then Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ''
If Chemin = '' Then Exit Sub
MsgBox Chemin
'.....
'Open mon_fichier For Input As #1
'Open Chemin & '\\mon_fichier1.txt' For Output As #2
'write#2,.....
'.....
End Sub