Jouer un son a l ouverture d un classeur par une macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

totoff50

XLDnaute Nouveau
bonjour a tous
voila j ai deux problèmes, le premier, c est que je voudrais par une macro, ouvrir un classeur avec une petite musique ou un petit son, et le deuxième, c est que j aimerais supprimer le petit point d exclamation de l icône, qui se mets sur l icone quand il y as une macro dans un classeur. petite précision mon extension est xlsm.
merci d avance pour les bonnes âmes qui se pencheront sur mes petits problèmes.
 
Dernière édition:
Re : Jouer un son a l ouverture d un classeur par une macro

Bonjour, pour ton 1er pb :
VB:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Workbook_Open()  'Lecture d'un son MIDI
Dim ret As Long, nNomf As String
nNomf = ThisWorkBook.path & "\" & "Musique1.MID"  'adapter le chemin et le nom de la musique à jouer
    ret = mciSendString("open " & nNomf, 0&, 0, 0)
    ret = mciSendString("Play " & nNomf, 0&, 0, 0)
End Sub
 
Re : Jouer un son a l ouverture d un classeur par une macro

Bonjour Softmama,
merci Softmama pour ta réponse, mais cela ne fonctionne pas, alors, comme je suis débutant et que je n y connait rien en VBA, c est peut être que je ne fait pas se qui faut? pourtant j ai essayer plusieurs solution, feuil1, ensuite dans un module et pour terminer ThisWorkbook mais rien a faire. Alors pourrait tu me l'expliquer pas a pas stp, mais je ne voudrais pas t'embêter bien sur. Petite précision, le son que je veux jouer est sur mon bureau, et est en wav et mon classeur aussi.
amicalement totoff
 
Re : Jouer un son a l ouverture d un classeur par une macro

Bonjour

Comme l'indiquait Softmama (que je salue au passage) , la solution est là:
nNomf = ThisWorkBook.path & "\" & "Musique1.MID" 'adapter le chemin et le nom de la musique à jouer

Il faut donc donc mettre le chemin de ton fichier WAV et changer Musique1.MID avec le nom de ton fichier.
 
Re : Jouer un son a l ouverture d un classeur par une macro

bonjour a vous deux,
et merci de vous êtes pencher sur mon problème, mais cela ne marche pas , j ai mit le chemin complet de mon son que je veux jouer et j ai modifier Musique1.MID avec le son que je veux jouer a l ouverture ((session.wav) qui se trouve dans mon C:\Windows\Media sous le mon exacte de ouverture de session Windows.wav)). Donc je sais plus comment faire pour trouver la solution. Je me posait une question crucial si la version d exel (2007) pouvait faire que je n y arrive pas? puisque il me demande avant de fermer mon classeur (voir les deux imprime écran).
merci d avance de vos futur réponse.
 

Pièces jointes

  • Capturer1.jpg
    Capturer1.jpg
    52.1 KB · Affichages: 102
  • Capturer1 (2).jpg
    Capturer1 (2).jpg
    52.3 KB · Affichages: 121
  • Capturer1.jpg
    Capturer1.jpg
    52.1 KB · Affichages: 100
  • Capturer1.jpg
    Capturer1.jpg
    52.1 KB · Affichages: 91
Re : Jouer un son a l ouverture d un classeur par une macro

Bjour totoff50, salutations Staple1600

Pour un son qui s'appelle session.wav, essaie cette macro à placer dans un module standard :
VB:
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub Play()  
    PlaySound ThisWorkbook.Path & "\session.Wav", 0&, &H1
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
603
Retour