Programmation boutton

Signaler
Messages postés
63
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
7 août 2008
-
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
-
bonjour,

Dans le cadre de mon projet je suis en train de programmer un bouton parcourir pour mon application qui me permettra d'aller chercher le fichier souhaiter.
Dans l'évènement click du bouton j'ai essayer le code suivant que j'ai recuperer sur les différents post du site mais j'ai une erreur que je n'arrive pas resoudre.

Dim dlgOpen As FileDialog // L'erreur se trouver ici

Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With

le message d'erreur est le suivant
Type defini par l'utilisateur non-definie

Je pense que sa doit etre un probleme de librarie mais je ne suit pas sur.

Si quelqu'un pouvait m'aider merci d'avance

-------
Manhino
-------

6 réponses

Messages postés
308
Date d'inscription
jeudi 10 janvier 2008
Statut
Membre
Dernière intervention
27 octobre 2011

Je ne connais pas exactement les types, mais suis quasiment sur que c'est par ce que tu n'as pas défini le type "FileDialog".
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour

En VB6, il est INTERDIT (ou alors, je ne connais pas la méthode) d'utiliser des controles graphiques (dont font partit  ImageList, CommonDialog, ...) uniquement dans le code, il faut les ajouter dans l'interface (il n'apparaitront pas à l'execution), ensuite seulement tu pourra les utiliser.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site
Messages postés
63
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
7 août 2008

j'ai oublier de dire que j'etai en vba access
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour

Dsl, je n'avais pas regarder après le VB6 sans le thème choisi.

VBA, VB6, même combat, il faut que tu ajoutes le controle à ta boite à outils (Recherche : CommonDialog), ensuite, tu le met sur ta UserForm, puis tu l'utilises.

Remarques sur ton code :
- Quelle erreur ?
- Regarde le type de retour de "Application.FileDialog", tu saura quel est le type à utiliser (il faudra peut être utiliser la méthode citée plus haut).

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site
Messages postés
63
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
7 août 2008

l'erreur dans le code est ici

Dim dlgOpen As FileDialog // L'erreur se trouver ici

le mesasge d'erreur qui s'affiche alors est
Type defini par l'utilisateur non-definie

pour se qui est du renvoie Application.FileDialog cela renvoie un objet filedialog

-------
Manhino
-------
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour

Sur VBA Excel, aucun pb.

Regarde dans l'explorateur d'objet (touche F2)

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site