Discussion :

[potili2]

je voudrais obtenir ceci sous excel:

Code :

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

If "macondition" then jouer "mamusique"

ça doit bien être possible, mais je ne trouve rien sur l'ouverture d'un fichier son dans le forum VBA.
alors possible, pas possible?
merci
Jean Pierre

[bidou]

comme en VB
http://vb.developpez.com/faq/?page=F...s#fichiers_wav

[potili2]

merci
de mon côté, en cherchant ailleurs, j'ai trouvé

lancer par Shell une application supportant qu'on lui indique le fichier à lire en
paramètre,
comme RealPlayer :
B = Shell("C:\Program Files\RealPlayer
ealjbox.exe F:\Ma musique\Misirlou.mp3",
vbMaximizedFocus)
je teste et je vous tiens au courant

[potili2]

j'avoue ne pas avoir été capable de faire fonctionner le lien que tu m'as indiqué.

j'ai testé ceci qui fonctionne

on donc jouer la musique en faisant une pause macro ou en la continuant, au choix. Aucun rapport avec VBA, mais si qqun peut m'indiquer en passant comment désactiver tous les "bruits" de windows (démarrage, clic, ouverture fichier etc...)
merci encore au site et donc à vous...
Jean Pierre

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
24
25
26
27
28
29
30
31
Option Explicit
 
Private Declare Function sndPlaySound Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
 
 
 
 
 
 
Sub PlayWavFile(WavFileName As String, Wait As Boolean)
    If Dir(WavFileName) = "" Then
        Exit Sub ' no file to play
    End If
    If Wait Then ' play sound before running any more code
        sndPlaySound WavFileName, 0
   Else ' play sound while code is running
        sndPlaySound WavFileName, 1
   End If
End Sub
 
 
Sub TestPlayWavFile()
 
    PlayWavFile "C:\Documents_and_Settings\All_Users\Documents\Ma_musique\Échantillons_de_musique\Symphonie_n°_9_de_Beethoven_(scherzo).wma", False
    'PlayWavFile "C:\WINDOWS\Media\Windows XP Démarrage.wav", False
    MsgBox "You are supposed to see this dialog while the sound is playing..."
    PlayWavFile "C:\WINDOWS\Media\ringout.wav", True
    MsgBox "You are supposed to see this dialog after the sound is finished playing..."
End Sub

[potili2]

oserais je poser la question...
comment arréter "proprement"la musique lancée de cette façon, de façon à fermer le lien ole?

[potili2]

finalement, faute de mieux, je le fais terminer avec un beep.
pas très élégant, mais ça fonctionne