Bonjour Yves et le Forum,
Sans utiliser "Application.FindFile", le code ci-dessous devrait faire l'affaire :
Dim Fichier
Fichier = Application.GetOpenFilename("Fichiers Texte (*.txt), *.txt")
If Fichier <> False Then
Workbooks.OpenText FileName:=Fichier, DataType:=xlDelimited, Other:=True, OtherChar:="!"
End If
Cordialement.
Didier