Boite de dialogue - parcourir

3 réponses

Pierre57

28/12/2005 à 10:56

Bonjour à tous,

Quelqu'un a-t-il déjà développé une macro permettant de sélectionner un
fichier (avec ou sans ouverture) à partir d'une boite de dialogue (en code
VBA) sous la forme standard window explorer de type "parcourir" ou "ouvrir"
ou "enregistrer sous" ?
Je suis sous excel 97...

Comme disait mon grand-père : il ne faut pas ré-inventer le fil à couper le
beurre...

Merci pour votre expertise,

De bonnes fêtes de fin d'année au(x) lecteur(s) de ce mail.

Cordialement,

3 réponses

28/12/2005 à 11:10

Bonjour

nf = Application.Dialogs(xlDialogOpen).Show("*.xls")
If nf = False Then
MsgBox "annulé"
Else
MsgBox nf
End If

ou

Filtre = "Excel (*.xls),*.xls,All Files (*.*),*.*"
nf = Application.GetOpenFilename(FileFilter:=Filtre,
FilterIndex:=5, Title:="Sélection")
If nf = False Then Exit Sub
MsgBox nf
Workbooks.Open FileName:=nf

Cordialement JB

JièL Goubert

28/12/2005 à 13:33

Bonjoir© Pierre57

Le 28/12/2005 10:56 vous avez écrit... :

Comme disait mon grand-père : il ne faut pas ré-inventer le fil à couper le
beurre...

un bien brave homme que votre grand-père, vous auriez du le préter à
Michel G... ;-)))))))))))

De bonnes fêtes de fin d'année au(x) lecteur(s) de ce mail.

Bonne fêtes à vous aussi

JièL découpeur de beurre

Pierre57

13/01/2006 à 10:17

Bonjour JB,
Merci pour les solutions : c'est OK,

Salutations,

Bonjour

nf = Application.Dialogs(xlDialogOpen).Show("*.xls")
If nf = False Then
MsgBox "annulé"
Else
MsgBox nf
End If

ou

Filtre = "Excel (*.xls),*.xls,All Files (*.*),*.*"
nf = Application.GetOpenFilename(FileFilter:=Filtre,
FilterIndex:=5, Title:="Sélection")
If nf = False Then Exit Sub
MsgBox nf
Workbooks.Open FileName:=nf

Cordialement JB

Boite de dialogue - parcourir

3 réponses

Veuillez sélectionner un problème