utiliser dlgop Command dialog

Bonjour j'aimerais fais marché ce code,ci-dessous je l'ai mis dans un commandButton mais lorsque je lance, rien ne se passe,j'ai activé les composants suivants Microso.Comm Control6.0 et DialogControl6.0 avec Microsoft Windows Commencontrol6.0(SP6), j'aimerais savoir si je peux télécharger le controle contrôle Microsoft Common Dialog Control ? et comprendre pourquoi mon code marche pas,

Code:

---

1 2 3 4 5 6 7

On Error GoTo Erreur dlgop.Filter = "Tous les fichiers (*.*)|*.*|Fichiers Audio MPEG (*.MP3, *.MP2) | *.MP3; *.MP2 | Fichiers Audio (*.wav, *.wma, *.snd)|*.wav; *.wma; *.snd|Fichier MIDI (*.mid, *.rmi, *.midi)|*.mid; *.rmi; *.midi" dlgop.FilterIndex = 2 dlgop.ShowOpen List1.AddItem (dlgop.FileName) Erreur: Exit Sub

---

Merci pour votre aide

Bonjour,

si tu ne vois rien, c'est que très probablement tu as une erreur, essaye donc de retirer le "On Error" et dis nous ce qui se passe.
Pour info Microso.Comm Control6.0 est pour le contrôle qui te sert à gérer tes ports RS232, il n'a rien à voir avec les boites de dialogues.

Il faut aussi ajouter un contrôle "CommonDialog" sur ta form et le nommer dlgop ...

@ OhMonBato :
Lorsque j'enlève la première ligne il me dit " erreur d'exécution'424': un objet est requis

@bbil : je l'avais pas précisé mais il y'a bien un contrôle "CommonDialog", c'est pour ça que je ne comprends pas .

Comme tu ne précises pas sur quelle ligne se produit l'erreur....
Tu es sûr d'avoir bien coché "Microsoft Common Dialog Control 6.0 (SP6)" dans la liste des composants et seulement celui là ? (Tout autre composant est inutile).

Sinon peux tu faire l'essai de créer un nouveau projet avec seulement ce controle et un bouton de commande et de copier le code que tu nous donnes (sans le On error) et nous dire si tu as toujours ton erreur.

Citation:

---

Envoyé par levasseur62

....
@bbil : je l'avais pas précisé mais il y'a bien un contrôle "CommonDialog", c'est pour ça que je ne comprends pas .

---

non tu ne l'as pas précisé ... je ne sais pas trop ce que tu attends par "Activer" .. il faut que tu l'ai "posé" sur ton form et renommé dlgop

ça marche :ccool::ccool:
J'avais oublié de le renommer :oops::oops:
ce que j'entendais pas activer ( cocher ) ....

Merci de bien vouloir appuyer sur le bouton :resolu: juste en bas si c'est le cas

Citation:

---

Envoyé par levasseur62

Je pensais que j'avais cliquer sur résolu, la je pense que c'est bon ^^
j'aimerais comprendre un peu plus le code(si vous pourrez mettre des commentaire ça serait parfait) que je vais vous passer ci-dessus son rôle et d'enregistrer un fichier en .mp3(d'une liste ou se trouve l'acces des music dans mon pc ) et l'autre "morceaux" de code sert à charger le .mp3 dans la list .... j'èspère avoir été clair je suis à votre disposition pour toutes question .

le code ou l'on enregistre le fichier

Code:

---

1 2 3 4 5 6 7 8 9 10

On Error Resume Next If list1.ListCount = 0 Then MsgBox "Aucune chansons dans la liste.", vbInformation, "Erreur": Exit Sub dlgop.Filter = "Liste mp3 (*.list)|*.list" dlgop.ShowSave Open dlgop.FileName For Output As #1 'je ne comprends pas à partir d'ici Print #1, list1.ListCount For a = 0 To list1.ListCount - 1 Print #1, list1.List(a) Next a Close #1

---

le code ou l'on charge le fichier pour voir apparaitre les chemins des music dans la liste

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

On Error Resume Next If jouer = True Then MsgBox "Modification de la playliste impossible: Lecture en cours !", vbInformation, "Erreur": Exit Sub dlgop.Filter = "Tous les fichiers (*.*)|*.*|Fichiers Audio MPEG (*.MP3, *.MP2) | *.MP3; *.MP2 | Fichiers Audio (*.wav, *.wma, *.snd)|*.wav; *.wma; *.snd|Fichier MIDI (*.mid, *.rmi, *.midi)|*.mid; *.rmi; *.midi" dlgop.ShowOpen list1.Clear Open dlgop.FileName For Input As #1 ' idem pour le 1er code Input #1, b For a = 1 To b Input #1, c list1.AddItem c Next a Close #1

---

---