Gruet Michel
XLDnaute Nouveau
Bonjour à tous
A l'ouverture d'un fichier, je voudrais
1: afficher un MSGBOX " BONJOUR LES MUSICOS" ensuite
2: Lancer la chanson Nuit de folie.
J'ai essayé cet procédure mais .................................ne marche pas.
COMMENT FAIRE ! MERCI
Private Sub Workbook_Open()
CreateObject("WScript.Shell").Popup "BONJOUR LES MUSICOS", 3, ["MILLS MUZIKS"]
Dim Fichier As String
Fichier = "C:\Documents and Settings\Propriétaire\Mes documents\Ma musique\Fichiers MP3\Début de soirée\nuit de folie.mp3"
If Dir(Fichier) <> "" Then
Feuil1.WindowsMediaPlayer1.URL = Fichier
Feuil1.WindowsMediaPlayer1.Controls.Play
Feuil1.WindowsMediaPlayer1.settings.setMode "loop", True
Range("A1").Select
Else
MsgBox "Adaptez le chemin du fichier musical dans la procédure ."
End If
End Sub
A l'ouverture d'un fichier, je voudrais
1: afficher un MSGBOX " BONJOUR LES MUSICOS" ensuite
2: Lancer la chanson Nuit de folie.
J'ai essayé cet procédure mais .................................ne marche pas.
COMMENT FAIRE ! MERCI
Private Sub Workbook_Open()
CreateObject("WScript.Shell").Popup "BONJOUR LES MUSICOS", 3, ["MILLS MUZIKS"]
Dim Fichier As String
Fichier = "C:\Documents and Settings\Propriétaire\Mes documents\Ma musique\Fichiers MP3\Début de soirée\nuit de folie.mp3"
If Dir(Fichier) <> "" Then
Feuil1.WindowsMediaPlayer1.URL = Fichier
Feuil1.WindowsMediaPlayer1.Controls.Play
Feuil1.WindowsMediaPlayer1.settings.setMode "loop", True
Range("A1").Select
Else
MsgBox "Adaptez le chemin du fichier musical dans la procédure ."
End If
End Sub