Discussion :

[napani]

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 .

[Theze]

Bonjour,

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

Code :

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

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