son et playsound

Version imprimable

23/09/2011, 16h18
flamel

son et playsound

Bonjour,

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

Merci à qui pourrait m'aider
23/09/2011, 18h32
Arkham46

Bonjour,

Citation:

Envoyé par flamel

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
23/09/2011, 18h54
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.

heu...!!!

bonsoir flamel

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

en voici la macro

Code:

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

24/09/2011, 09h00
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.
25/09/2011, 10h35
flamel
Bonjour,

Je reviens vers vous pour une nouvelle aide.

Voici un code...
Code:

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.
25/09/2011, 16h38
flamel

Merci à tous.
Problème résolu.
28/09/2011, 18h06
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
29/09/2011, 07h07
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.
29/09/2011, 14h11
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:

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

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:

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:

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