Discussion :

[Beginner37]

Bonjour,
je souhaite obtenir à chaque fois dans la boite de dialogue "ouvrir" sous excel :
Type de fichiers à ouvrir : "tous les fichiers"
et non "tous les fichiers Microsoft Excel".
Comment faire ?
merci de votre réponse.

[ouisansdoute]

Bonjour,

Peux-tu essayer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
sub ouvrir_fichier()
dim fichier as string
   fichier = Application.GetOpenFilename("Tous les fichiers , *.*")
    If fichier = "Faux" Then
    fichier = ""
        MsgBox "Aucun fichier n'est sélectionné, relancez la procédure"
       Exit Sub
   End If
   Application.ScreenUpdating = False
    Workbooks.Open fichier
End sub