Mettre en place un bouton avec un son associé

Bonjour à tous,

je suis complètement novice sur VBA et je voudrais créer une macro permettant de mettre un bouton dans la Feuil1 du classeur qui lorsque l'on clique dessus irai chercher un son qui se trouve dans l'onglet "Sons" qui est l'onglet 3 dans le même classeur.

J'ai 30 boutons à créer dans le même style. Les sons se trouvent respectivement dans les cellules:
C5, C8, C11, C14, C17, C20
F5, F8, F11, F14, F17, F20
I5, I8, I11, I14, I17, I20
L5, L8, L11, L14, L17, L20
O5, O8, O11, O14, O17, O20


Merci d'avance de répondre à ma question .

:ccool:

Bonjour,

Une piste, il te faut ajouter le contrôle Windows MediaPlayer sur ta feuille (bouton "Autres contrôles") :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub CommandButton1_Click()   Dim Musique As String   Musique = [C5]   With Feuil1.WindowsMediaPlayer1   .URL = Musique 'récupère le morceau .Controls.Play 'commence la lecture .settings.setMode "loop", False 'True pou lire en boucle .Visible = False 'cache le lecteur   End With   'pour l'arrêter (appui sur le bouton "Arrêter") 'Feuil1.WindowsMediaPlayer1.Controls.stop   End Sub   Private Sub CommandButton2_Click()   'pour cacher/afficher le lecteur With Feuil1.WindowsMediaPlayer1   .Visible = Not .Visible   End With   End Sub

---

Hervé.