séquence musicale

[dhiouf]

Bonsoir à tous
j'ai une séquence musicale sur le Pc dans mes documents/music
est-il possible d'ecouter cette séquense musicale à l'ouverture de mon fichier excel puis la fermer à la fermeture du fichier excel
Merci d'avance

 

[porcinet82]

Salut dhiouf,

J'avais récupérer un code il y a quelques temps sur le forum pour lancer un son selon condition, peut etre que ca pourra t'aider :

Declare Function sndPlaySound32 Lib 'winmm.dll' Alias 'sndPlaySoundA' _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long

Private Sub Workbook_Open()
    Call sndPlaySound32('C:/musique/alert.wav', 0)
End Sub

Par contre, je ne sais pas du tout quel format de musique on peut lire avec.

@+

 

[dhiouf]

Re
Merci porcinet82 de ta réponse.
ma séquence musical est sous format windows media player
merci

 

[MichelXld]

bonsoir Dhiouf , bonsoir cher Porcinet82

cette procedure démarre une séquence musicale lors de l'ouverture du classeur et tourne en boucle jusqu'a la fermeture

Private Sub Workbook_Open()
Feuil1.WindowsMediaPlayer1.URL = 'C:\\maMusique.mid'
Feuil1.WindowsMediaPlayer1.Controls.Play
Feuil1.WindowsMediaPlayer1.settings.setMode 'loop', True

Range('A1').Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Feuil1.WindowsMediaPlayer1.Controls.stop
End Sub


cela suppose d'avoir placé un objet Windows Media Player dans la Feuil1



il est aussi possible d'utiliser directement la librairie Windows Media Player
sans inserer l'objet dans la feuille

Lien supprimé



bonne soirée
MichelXld

Message édité par: michelxld, à: 15/06/2006 19:46

 

[porcinet82]

re, Salut MichelXld,

Et bien chapeau bas l'ami Michel , je garde ce code préciseusement, ca risque de me servir tres prochainement.

Merci à toi !

@+

 

[dhiouf]

Re bonsoir
Merci MichelXLD de ta réponse.
je n'arrive pas à executer le code,peut tu m'aider avec un fichier joint
Merci

 

[MichelXld]

rebonsoir

cher Porcinet82 , merci pour ton message ...;o)

Dhiouf , tu peux tester ce classeur .
Forcément , lors de la 1ere ouverture cela ne va pas fonctionner car tu devras adapter le chemin du fichier


bonne soirée
MichelXld [file name=utilisationWMP_Feuille.zip size=9028]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/utilisationWMP_Feuille.zip[/file]

Message édité par: michelxld, à: 15/06/2006 20:51

 

[MJ13]

Re : séquence musicale

Bonjour à tous et plus particulièrement à MichelXLD.

Bravo pour ton Code Michel.

Ca c'est du lourd!

Moi qui cherchait par le shell, tu m'as convaincu, tu es le plus fort!