Erreur ouverture commondialog

Salut!
J'essaye de faire apparaître la boîte de dialogue pour ouvrir un fichier avec un commomdialog ShowOpen mais pas moyen...j'obtiens une erreur 424 : objet manquant. J'ai pourtant vérifié que la librairie "Common Dialog Control" (COMDLG32.ocx) soit bien chargée. Quelqu'un pourrait-il me venir en aide avant que j'éclate ma tour...
Merci!!!

Salut
Et quelle ligne de commande as-tu utilisée ?
As-tu bien posé un exemplaire de ce composant sur ta forme ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro

J'ai utilisé un source existant que j'ai trouvé sur le site. J'ai changé bien sûr le nom du bouton et de la textbox.
J'ai également essayé le code fournit dans l'aide de VB.
Dans le cas suivant, le programme bloque sur "filter". Si je mets la ligne en commentaire, il bloque sur la ligne suivante: "ShowOpen".
PS: G mis le "On error goto" en commentaire aussi pour qu'il me l'annonce.

C'est peut-être une erreur tout bête mais je bloque...

Merci de ta réponse en tout cas...



1. Private Sub Open_Click()
3. Text1.Text = "" 'initialise la zone de texte
5. Dim TextFile As String 'Contenu du fichier a ouvrir
6. Dim File As String 'Nom du Fichier a ouvrir
8. On Error GoTo Error_Handle 'si il y a erreur (facultatif)
10. 'Filtre les types de fichiers
11. cd1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
12. 'Ouvre la boîte de dialogue
13. cd1.ShowOpen
15. File = cd1.filename 'attribut le chemin du fichier
16.                     'a la variable File
18. Open File For Input As 1 'ouvre le fichier
20. Do While Not EOF(1) 'End Of File (numero du fichier)
21. 'met le contenu du fichier dans TextFile
22.     Input #1, TextFile
23. 'Met le contenu dans la zone de texte
24.     Text1.Text = TExt1.Text & TextFile _
25.     + Chr(13) + Chr(10)
26. Loop
28. Close #1 'ferme le fichier
30. Error_Handle: (facultatif)
31. If Err.Number = 75 Then
32.     MsgBox "Le chemin ou le nom du fichier n'est pas valide", _
33.     vbCritical + vbOKOnly, "ERREUR"
34.     Exit Sub
35. End If
37. End Sub

OK!
Je croyais que comme en VBA (Getopenfilename), que c'était tout automatique, qu'il n'y avait pas besoin de poser le composant sur la forme...
Je suis donc allé dans Ajouter/composants.../Common Dialog et la forme s'est rajoutée dans la barre d'outils. Il s'agit juste ensuite de la déposer sur l'écran.

Désolé du dérangement et merci à vous deux pour la rapidité et pour le débloquage.