salut a tous
j'ai encore un souci
je n'arrive pas a ouvrir un fichier extension wav avec VBA
j essaye avec ca
getopenfilename
shell
mais ca ne marche pas enfin je ne sais pas trop comment m'y prendre
merci de votre aide
salut a tous
j'ai encore un souci
je n'arrive pas a ouvrir un fichier extension wav avec VBA
j essaye avec ca
getopenfilename
shell
mais ca ne marche pas enfin je ne sais pas trop comment m'y prendre
merci de votre aide
Bonjour,
Ci dessous un vieux classique pour jouer du Wav avec XL
ici, la musique (seventies.wav) est dans le m^répertoire
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 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 Sub PlayWAV() ' snd_async: son asynchrone (la musique n'arrete pas le programme) If Application.CanPlaySounds Then WAVFile = ThisWorkbook.Path & "\" & "seventies.wav" Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Else Exit Sub End If End Sub
Bonne audition
Michel
impec
merci
a+
Partager