A voir également:
- Introduire un signalesonor qui accompagne forme.show
- Introduire coordonnées gps google maps - Guide
- Que signifie le symbole du trombone accompagnant un mail - Forum Mail
- Touche trombone pièce jointe disparue outlook ✓ - Forum Microsoft Office
- Comment introduire un rapport de stage - Guide
- Introduire l'arabe dans un samsung galaxy S ✓ - Forum Téléphones & tablettes Android
1 réponse
Bonjour
sons:
audio (wav):
Et des paroles;
Michel
sons:
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long Sub son1() Beep 500, 400 Beep 700, 800 End Sub
audio (wav):
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
' archives MPFE
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme) snd_sync: arrete le prog
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "tamusique.wav"
Call PlaySound32(WAVFile, 0&, SND_SYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
Et des paroles;
Sub lutherkingt()
Dim Sp As Object
On Error Resume Next
Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub
Sp.Speak " I have a dream today. I have a dream that one day every valley shall be exalted "
End Sub
Michel
