programmation boutton

Question

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
-------

cs_faucheuse · Answer

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".

NHenry · Answer

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

manhino · Answer

j'ai oublier de dire que j'etai en vba access

NHenry · Answer

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

manhino · Answer

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
-------

NHenry · Answer

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

Programmation boutton

6 réponses

Votre réponse