ouverture fichier vba

bonsoir
j'ai cree un userform dans lequel j'ai mis un bouton qui ouvrir "la boite de dialogue de gestion fichier" via le code ci-dessus

Code:

---

1 2 3 4 5

Sub OuvreFichier1() Dim QuelFichier QuelFichier = Application.GetOpenFilename() MsgBox QuelFichier End Sub

---

mais j'ai l'erreur suivante
erreur d'execution 424 un objet est requis ?

comment faire ?
le but ouvrir par un bouton le gestionnaire de fichier et aller ouvrir un fichier excel !

merci
:cry:

Bonsoir

Code:

---

1 2 3 4 5

Dim QuelFichier As Variant   QuelFichier = Application.GetOpenFilename("Fichiers Excel,*.xls") If QuelFichier <> False Then Workbooks.Open (QuelFichier)

---

devrait fonctionner.

Ok?

bonsoir
non, desole , j'ai toujours à l'execution le message erreur
erreur d'execution 424 un objet est requis ?

dans l'environnement de visualbasic, y aurait il un ou des parametres à valider autres que ceux par defaut ?


merci8O

Sur quelle ligne?

De plus, la sub que tu donnes n'est pas une sub événementielle de clic sur un bouton de userform? Peux-tu donner le code exact?

Tu es bien en VBA pour Excel?

bonsoir
je suis visual basic 6
j'ai ouvert un simple userform dans lequel j'ai cree un bouton qui doit me servir à allez chercher , lire , un fichier excel.
cordialement:cry:

Code:

---

1 2	Application.GetOpenFilename

---

est spécifique à Excel.

Tu dois d'abord déclarer et utiliser un objet Excel.Application
Soit par liaison tardive

Code:

---

1 2 3 4 5

dim xls as objet set xls=createobject("excel.application") QuelFichier = xls.getopenfilename() xls.workbooks.open quelfichier

---

Ce qui permet de ne pas devoir tenir compte de la version d'excel, et donc de ne pas devoir cocher une référence Excel dans Outils/Références du projet,

Soit

Code:

---

1 2 3 4

dim xls as new excel.application quelfichier=xls.getopenfilename() xls.workbooks.open quelfichier

---

après avoir coché une référence Excel dans outils/Référence de ton projet VB6. Dans ce cas, tu dépends de la version Excel installée sur ta machine.

Je n'ai pas testé le code car je n'ai plus VB6 sur ma machine mais VB.Net, mais tu devrais trouver ton bonheur dans les tutos et la faq VB.

De plus, fais attention à la terminologie car, par défaut, il n'y a pas de userform en VB6, mais bien des form...
UserForm est un objet spécifique à VBA, ce qui laissait donc penser que soit tu travaillais sous VBA (VBA <> VB6), soit tu avais coché une référence à VBA (ce qui était de toute façon insuffisant pour pouvoir utiliser application.getfilenameopen())

Ok?