Exécuter un son en VBA [FAQ] [Résolu]

[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 :

Code :

1
2
3
4
5
6
7
8
9
10
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

Code :

1
2
 
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

Code :

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

Code :

1
2
3
4
5
6
7
8
9
10
 
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