Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
Malgré le filtre (*.*), impossible d'ouvrir Word, NotePad etc. . Comment ouvrir tous les formats de fichier?
A+
Code:
Sub Ouvrir_Fichier()
Dim Fichier As Variant
ChDir "D:\"
Fichier = Application.GetOpenFilename _
(Title:="Ouvrir", _
FileFilter:="Tous les fichiers (*.*) (*.*),")
If Fichier = False Then
MsgBox "Pas de fichier sélectionné.", , "Microsoft"
Exit Sub
Else
Workbooks.Open Dir(Fichier)
End If
End Sub
Malgré le filtre (*.*), impossible d'ouvrir Word, NotePad etc. . Comment ouvrir tous les formats de fichier?
A+
Dernière édition: