VBA - lié un son wav et exécuter en VBA

[Airone784]

Bonsoir,

J'ai récupéré ce code pour exécuter un son sur ma feuille si je clique sur un bouton (commandbutton).

Private Declare Function PlaySound& Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName$, _
        ByVal hModule&, ByVal dwFlags&)
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
________________________________________________________________________________________
 Sub JouerSon()
Dim MonWav As String
    MonWav = "C:\Users\Airone\AppData\Local\Temp\bomb1.wav"     '... chemin et nom à adapter
    Call PlaySound(MonWav, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Pas de problème sauf que :

Comment faire en sorte, si j'envoie la feuille à quelqu'un, pour que le son suive dans le fichier et qu'il s'exécute sans avoir à redéfinir le chemin d'accès au fichier???

Merci d'avance pour votre aide.

 

[JCGL]

Re : VBA - lié un son wav et exécuter en VBA

Bonjour à tous,

Tu envoies le *.wav avec ton fichier et tu recommandes de mettre les deux fichiers dans le même répertoire.

MonWav = ThisWorkBook.Path &"\bomb1.wav"

A+ à tous

 

[Airone784]

Re : VBA - lié un son wav et exécuter en VBA

Bonsoir,

Effectivement c'est une solution que j'ai envisagé mais je me demandais si on ne pouvait pas faire mieux que cela.
Quoi qu'il en soit, merci pour votre réponse.

 

[Staple1600]

Re : VBA - lié un son wav et exécuter en VBA

Bonjour à tous

Une autre façon de jouer un fichier son dans Excel (test OK ici sur XL2K3))

Sub testWav()
Dim oWv As OLEObject
 
Set oWv = ActiveSheet.OLEObjects.Add( _
    Filename:="C:\Windows\Media\tada.wav", _
    Link:=False, DisplayAsIcon:=False)
    
    oWv.Verb Verb:=xlPrimary
    'ou en plus court
    'oWv.Verb 1
End Sub

Voir aussi du coté de l'insertion "en dur" de fichier dans les cellules Excel.
Un exemple tout prêt ici

 

[Airone784]

Re : VBA - lié un son wav et exécuter en VBA

Merci cette réponse. Désolé j'étais en congé.
Par contre je comprends pas comment ça marche l'insertion en dur du fichier son????