A voir également:
- Insertion de musique dqns fichier excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. ✓ - Forum Windows
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
12 sept. 2009 à 18:37
12 sept. 2009 à 18:37
Bonjour,
Pour ma part pour insérer de la musique j'utilise cette procédure:
la ligne WAVFile est à adapter à ta config
Pour ma part pour insérer de la musique j'utilise cette procédure:
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)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
la ligne WAVFile est à adapter à ta config
13 sept. 2009 à 08:41
Merci Michel. Aprés quelques modif pour ajuster ta procedure à mon programme ça fonctionne.
J'aurais été incapable de réaliser ça tout seul. Je débute en VBA et ce n' est pas de la tarte.....
A+ peut etre