Exécuter un son en VBA

[marsupilami34]

Bonjour,

Je cherche à excuter un son via le code VBA et je ne trouve pas la commande.
Quelqu'un a une idée ?

Merci.

A+++

Marsup

Pour information, il s'agirait simplement d'un son se trouvant dans la librairie (comme Acclamation par exemple)

[Philippe JOCHMANS]

Bonjour

Essayes cela :

Public Sub AjoutSon()
    Dim NewSound As Shape
    
    Set NewSound = Application.ActivePresentation.Slides(1).Shapes.AddMediaObject(FileName:="C:\Documents and Settings\xxxx\Local Settings\Temporary Internet Files\Content.IE5\G7P7U6NT\MSSN00497A0000[1].wav")
    With NewSound.ActionSettings(ppMouseClick)
        .Action = ppActionNone
        .SoundEffect.Type = ppSoundNone
    End With
    
End Sub

Tu remplaces les xxxx par le nom dans ton Documents and Settings.

Quand tu cliques sur le haut parleur, des applaudissements devraient s'entendre.

Starec

[marsupilami34]

Merci pour la réponse,

Mais j'avoue que je ne compend pas.
Quand on crée une image et que l'on fait clic droit -> Paramètres des actions , on active le son "Acclamation".
En VB, N'y a t-il pas simplement qqch du genre

 
Play ("Acclamation")
 

Je cherche forcément à passer par du VBA car je souhaiterais effecter des sons un après l'autre

[Philippe JOCHMANS]

Re

En plus simple et plus compréhensible en utilisant une API..

Dans la FAQ Access Peut-on ouvrir des fichiers wav avec Access ?

C'est vrai que les Objets PPT ne sont pas évidents en VBA

Starec

[marsupilami34]

Par contre, j'ai bien insérer le code mais ca me fait tjs le même son (comme qd une fenêtre apparait)

Voila ce que j'ai fait

Declare Function PlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
 

 
Sub Main()
 
PlaySound 0&, 1
 
PlaySound "Acclamation.wav", 1
 
 
 
End Sub
 

[Philippe JOCHMANS]

Re

Je ne pourrais faire des tests que ce soir, je n'ai pas de son sur mon micro au TAF.
A moins qu'une bonne âne ait la solution.

Starec

[marsupilami34]

Envoyé par Starec

Re

Je ne pourrais faire des tests que ce soir, je n'ai pas de son sur mon micro au TAF.
A moins qu'une bonne âne ait la solution.

Starec

Tu voulais dire âme, je crois

En tous cas merci

[Philippe JOCHMANS]

Envoyé par marsupilami34

Tu voulais dire âme, je crois

En tous cas merci

oops : Oui

[marsupilami34]

J'ai trouvé un solution.
En fait, avec l'enregistreur, je mets les un à la suite des autre, les fichiers WAV que je veux compliler pour en créer qu'un seul. Et j'utilise ce dernier dans powerpoint.

[Philippe JOCHMANS]

Cela me laisse un peu de temps pour regarder, je suis débordé en ce moment.

Starec