A la demande ouvrir d'un fichier Excel

Bonjour,

je souhaite lorsque je veux ouvrir un fichier sous EXCEL que la boite de dialogue "OUVRIR" me sélectionne directement dans le champ 'Type de fichiers' : "Tous les fichiers (*.*) et non "Tous les fichiers Microsoft Excel (*.xl;*.xls;*.xlt). J'ai essayé différentes configurations sans succès.

Quelqu'un aurait une idée?

Merci

Cordialement

Bonjour,

essaye ceci

Sub Ouvrir_tous_les_fichiers()
Fichier = Application.GetOpenFilename("Tous les fichiers (*.),*.")
End Sub

Cordialement

Bonjour,

Petite correction au code de maguetlolo

Sub Ouvrir_tous_les_fichiers()
Application.GetOpenFilename ("Tous les fichiers (*.*),*.")
End Sub

Le nom fichier ne sert pas vraiment sauf si tu envisages de récupérer le nom pour une autre macro.

Plus simple aussi avec ce code

Sub Ouvrir_tous_les_fichiers()
Application.GetOpenFilename
End Sub

Amicalement

Dan

Bonjour,

Pourquoi cette modif sur mon code, il a l'air de marcher tres bien comme cela?

c'est juste une question pour mon info.

parcontre ok pour l'autre c'est effectivement plus simple.

cordialement

re,

J'ai modifié ton code car il renvoie une erreur 1004.

Testé avec Excel 2000 et maintenant avec Excel 2004 (Mac)

Amicalement

Dan

Re

Ok, c'est bon a savoir car avec 2003 ca fonctionne.

Merci pour l'info

Cordialement