Fichier Son

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]If[/COLOR] Target.Address = "$B$5" [COLOR=NAVY]Then[/COLOR]
        JouerSon
    [COLOR=NAVY]End If
End Sub[/COLOR]

[COLOR=Gray][B]'Dans un module standard[/B][/COLOR]
Sub Dire(phrase As String)
Dim Sp As Object
    On Error Resume Next
    Set Sp = CreateObject("Sapi.SpVoice")
    If Sp Is Nothing Then Exit Sub
    Sp.Speak phrase
End Sub

[COLOR=Gray][B]'Dans un module de feuille[/B][/COLOR]
Private Sub CommandButton1_Click()
    Dire ("mairssy a twouah")
    Dire("bon jour")
    Dire ("o revouahr")
    Dire ("Hello")
    Dire ("how are you")
    Dire ("you are late")
End Sub