Discussion :

[levasseur62]

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 :

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

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

[OhMonBato]

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.

[SfJ5Rpw8]

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

[levasseur62]

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

[OhMonBato]

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.

[SfJ5Rpw8]

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

[levasseur62]

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

[l_autodidacte]

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

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

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

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 :

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

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