Sub Fichier()
Static Chemin 'pour conserver le dernier répertoire
Dim Monfichier, n
On Error Resume Next
If Dir(Chemin) <> "" Then ChDir Chemin
On Error GoTo 0
Monfichier = Application.GetOpenFilename("LLF Files (*.llf), *.llf , Tous, *.*")
If Monfichier <> False Then
n = InStrRev(Monfichier, "\")
Chemin = Left(Monfichier, n - 1)
MsgBox "Fichier choisi : " & Monfichier
MsgBox "Chemin choisi : " & Chemin
Else
MsgBox "Pas de fichier choisi"
End If
End Sub