Dim Wmp As WindowsMediaPlayer
'necessite d'activer la reference Windows Media Player
'michelxld le 11.05.2005
'pour le forum [URL]https://www.excel-downloads.com/[/URL]
Sub jouerMediaPlayer()
Set Wmp = CreateObject('WMPlayer.OCX.7')
Wmp.URL = 'C:\\monfichierMusical.mp3'
Wmp.Controls.Play
End Sub
Sub arreterMediaPlayer()
If Wmp Is Nothing Then Exit Sub
Wmp.Controls.Stop
End Sub
il faut bien entendu que Windows Media Player soit installé sur ton poste
pour activer la reference
tu vas dans l'éditeur de macros
Menu Outils
References
tu coches la ligne 'Windows Media Player'
tu cliques sur OK pour valider
Le fichier 'Star Wars' est une démo de Creepy Lien supprimé
pour intégrer les séquences musicales dans la démo :
1. tu places la procedure dans un module
Code:
Dim Wmp As WindowsMediaPlayer
'necessite d'activer la reference Windows Media Player
'michelxld le 11.05.2005
'pour le forum [URL]https://www.excel-downloads.com/[/URL]
Sub jouerMediaPlayer()
Set Wmp = CreateObject('WMPlayer.OCX.7')
Wmp.URL = 'C:\\monfichierMusical.mp3'
Wmp.Controls.Play
End Sub
Sub arreterMediaPlayer()
If Wmp Is Nothing Then Exit Sub
Wmp.Controls.Stop
End Sub
2. il faut ensuite faire une petite adaptation dans le classeur de Creepy :
Private Sub UserForm_Click()
Dim Cpteur As Integer
Dim TabText(26) As String, i As Integer
Dim X As Byte, Y As Integer
UserForm1.Caption = 'Ta tin tintintin ...'
jouerMediaPlayer
Cpteur = Feuil1.Range('a1').End(xlDown).Row
For i = 1 To Cpteur
TabText(i - 1) = Feuil1.Range('a' & i).Value
Next i
Dim U As Integer, U1 As Integer, B As Integer
U = 0
For U = 0 To 25
Controls('Lbl1').Caption = TabText(U)
For B = 11 To 2 Step -1
Controls('Lbl' & B).Caption = Controls('Lbl' & B - 1).Caption
If B = 2 Then Controls('Lbl1').Caption = TabText(U + 1)
Next B
DoEvents
For Z = 1 To 46000000
Next Z
If U = 25 Then
Controls('Lbl11').Caption = ''
Controls('Lbl10').Caption = ''
End If
Next U
arreterMediaPlayer
End Sub
Private Sub UserForm_Terminate()
arreterMediaPlayer
End Sub
( testé avec Excel2002 , WinXP et Windows Media Player 10.0 )
J'ai essayé de suivre tes explication mais je n'arrive pas faire déclencher le son lorsque le générique commence.
j'ai activé window player (dans référence...).
J'ai tester la macro 'jouermediaplayer'par le chemin
outil/macro/jouermediaplayer/executer,elle fonctionne ,la musique démarre donc le chemein d'accés est bon,
pour le reste ,mon niveau ne me permet pas de comprendre pourquoi cela ne fonctionne .
Si tu as un peu de temps pour regarder le fichier en annexe , je ne suis pas pressé.
je te remercie d'avance
Bonne soirée à tous [file name=GeneriqueStarWarsNMEpisode2.zip size=32084]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GeneriqueStarWarsNMEpisode2.zip[/file]
dans mon précédent message je te précisais que j'étais parti sur la démo de Creepy pour adapter la macro ....et en fait il s'agit du classeur de Laurent...
si tu fais juste des copier / coller sur des classeurs qui n'ont rien à voir , forcément que cela ne pourra jamais fonctionner