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