Discussion :

[oscar.cesar]

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 :

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

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

[Pierre Fauconnier]

Bonsoir

Code :

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

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?

[oscar.cesar]

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 ?


merci

[Pierre Fauconnier]

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?

[oscar.cesar]

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

[Pierre Fauconnier]

Code :

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

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 :

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

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 :

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

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?