Discussion :

[flamel]

Bonjour,

Comment utiliser Playsound pour faire émettre par vba un son préalablement enregistré ?

Merci à qui pourrait m'aider

[Arkham46]

Bonjour,

Bonjour,

Comment utiliser Playsound pour faire émettre par vba un son préalablement enregistré ?

Merci à qui pourrait m'aider

http://excel.developpez.com/faq/?pag...n#JouerMusique

si ce n'est pas ça je ne comprends pas la question

[flamel]

Merci Arkham46

Dosi-je mettre mon échantillon de son enregistré avec Audacity dans WINDOWS\system32 ?
Ça me parait bizarre.
Je préférerais l'avoir dans le logiciel, alors que faire ?
Cordialement.

[patricktoulon]

bonsoir flamel

si tu a regardé le lien que t'a donné arkham46

en voici la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Const SND_FILENAME = &H20000
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, _
    ByVal dwFlags As Long) As Long


Sub JouerMusique()
    PlaySound "C:\WINDOWS\system32\BuzzingBee.wav", ByVal SND_SYNC, SND_FILENAME Or SND_ASYNC

' a la place de ce qui est en rouge tu met le chemin de ton fichier ou qu'il soit
'par exemple si le fichier son  doit se trouver dans le dossier du fichier excel
'alors c'est thisworkbook.path &"\" le nom de ton fichier avec son extension 

End Sub


Sub StopMusique()
    PlaySound SND_SYNC, ByVal SND_SYNC, SND_FILENAME Or SND_ASYNC
End Sub

au plaisir

[flamel]

Merci patricktoulon d'avoir insisté.
J'avais bien essayé, mais sans succès. J'avais du faire une erreur d'adressage.
Maintenant, c'est bon. Problème résolu.

Merci à vous deux.

Cordialement.

[flamel]

Bonjour,

Je reviens vers vous pour une nouvelle aide.

Voici un code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Sub ajouter()
    Worksheets("FeObject").Select
    ThisWorkbook.Worksheets("FeObject").OLEObjects.Add Filename:="sonE_02.wav"
 End Sub

... qui ne fonctionne pas.
Je cherche pourquoi
"sonE_02.wav" est dans un dossier et fonctionne bien, mais je voudrais l'inclure dans un classeur;

Merci si vous pouvez m'aider.

[flamel]

Merci à tous.
Problème résolu.

[flamel]

Bonjour patricktoulon,

Je reviens vers toi après avoir plusieurs essais, car je croyais le problème résolu, mais ce n'était pas vraiment le cas.
Quand j'ouvrais le logiciel sur mon ordinateur, tout allait bien, mais en portant le logiciel sur un portable, ça n'allait plus.
J'ai trouvé une autre solution mais qui ne me convient pas.
Comment peut-on envoyer un petit classeur Excel, afin que tu puisse voir.

Merci de me renseigner.

Cordialement.

flamel

[flamel]

Bonjour,
Je pense que le lien a bien fonctionné.
Voici les commentaires :
Avec la routine 'essai Audio 01', on entend le son qui est dans le classeur, sur une feuille, mais il s'affiche une fenêtre intempestive.
Avec la routine 'essai Audio 02', il n'y a pas de fenêtre, mais pour entendre le son, il faut que les objets soient à l’extérieur du classeur, par exemple dans le même dossier. On ne peut donc pas porter le logiciel sur un autre ordinateur sans y mettre en plus un dossier avec les objets son.
Je pense que la routine 'essai Audio 2' serait valable si j'avais trouvé le moyen de lui faire lire les objets inclus dans le classeur, et là, pouvez-vous m'aider ?
Merci et cordialement.

[patricktoulon]

bonjour

si c'est vraiment nécessaire tu a pièce jointe en bas de l'éditeur de message
si il fait plus que 500 kilo zip le

maintenant

tu peut simplement envoyer le code entre balise bien sur

le sujet est intéressant j'ignorais que l'on pouvait transporter un fichier son en objet je vais m'y intéresser de plus près

j'attend ton code ou ton fichier
au plaisir

rebonjour

en regardant un peu mes archives j'ai trouvé une autre api capable de déclencher un son

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
 Sub JouerUnWav()
 
         mciExecute ("play " & "C:\LeChemincomplet\MonFichier.Wav")
End Sub

mais j'aimerais bien avoir ton code qui permettrait de l'intégrer au fichier
au plaisir

[flamel]

Bonjour,

Un de mes message a été supprimé parce qu'il donnait un lien pour charger le classeur.
Maintenant, je ne sais pas comment te l'envoyer.

La routine 1 était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub essaiAudio_01()
        Sheets("FeObject").Select
    For i = 1 To 3
        j = Format(i, "00")
        ySon = "sonE_" & j
        Application.Wait (Now + TimeValue("0:00:01"))
        ActiveSheet.OLEObjects(ySon).Verb
    Next i
End Sub

la routine 2 était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub essaiAudio_02()
        Sheets("FeObject").Select
    For i = 1 To 3
        j = Format(i, "00")
        ySon = "sonE_" & j
        Application.Wait (Now + TimeValue("0:00:01"))
        PlaySound ThisWorkbook.Path & "\" & ySon, ByVal SND_SYNC, SND_FILENAME Or SND_ASYNC
    Next i
End Sub

Je vais essayer ta dernière solution.

à bientôt