Lancer MSGBOX + Musique au démarrage

[Gruet Michel]

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

 

[MichelXld]

Re : Lancer MSGBOX + Musique au démarrage

bonsoir

Peux tu préciser ce qui ne marche pas.
Tu obtiens un message d'erreur? si oui lequel?


Bonne soirée
MichelXld

 

[Gruet Michel]

Re : Lancer MSGBOX + Musique au démarrage

Bonjour Michel

Le MSGBOX fonctionne c'est après :

Feuil1.WindowsMediaPlayer1.URL = Fichier

Je viens de changer Feuil1 en Informations (Nom de la feuille) mais c'est pareil

A+

 

[MichelXld]

Re : Lancer MSGBOX + Musique au démarrage

Rebonsoir

Je viens de changer Feuil1 en Informations (Nom de la feuille) mais c'est pareil

Certes, mais tu n'as toujours pas décrit ce qui se passe quand tu arrives sur la ligne de code...


Ps:
ta procédure fonctionne sans problème sur mon poste.


Bonne soirée
MichelXld

 

[Gruet Michel]

Re : Lancer MSGBOX + Musique au démarrage

re bonsoir

Le programme bug sur la ligne

Feuil1.WindowsMediaPlayer1.URL = Fichier (surligné en jaune)

 

[MichelXld]

Re : Lancer MSGBOX + Musique au démarrage

Rebonsoir

Le programme bug sur la ligne

C'est tout? Je te conseille de relire la charte du forum car tu ne fais pas beaucoup d'efforts pour détailler ton problème.

Lien supprimé


Lors de ma première intervention je t'ai déja demandé quel est le message d'erreur qui s'affiche....



Vérifie le chemin et le nom du fichier
Vérifie le nom de la feuille
Quelle version de Windows Media Player utilises tu?
Tu as placé l'objet Windows Media Player dans la bonne feuille ?



Bonne soirée
MichelXld

 

[IFFIC]

Re : Lancer MSGBOX + Musique au démarrage

Coucou Michel, tu es toujours là!

Bonsoir Michel Gruet, et à tous.
(Notre ami Michel XLD a un peu raison sur sa remarque🙄)

Je ne suis pas très doué, mais je joins un fichier qui peut-être pourra t'aider.

Ne pas oublier d'avoir le fichier "Son" dans le même Path

J'en fais suivre un au cas où

Bonne soirée à tous

IFFIC

 

[IFFIC]

Re : Lancer MSGBOX + Musique au démarrage

La Zic, si besoin est

Il faur tester.

 

[IFFIC]

Re : Lancer MSGBOX + Musique au démarrage

L'intro ne passe pas!
Désolé.
Mais si la tienne est au bon format, cela peut marcher.

 

[Gruet Michel]

Re : Lancer MSGBOX + Musique au démarrage

re bonjour

je suis désolé

je ne suis pas très fort en eXcel

En faite j'ai récupéré ce fichier qui fonctionne bien, mais dés que je le mets dans mon fichier en créant un autre module cela ne marche pas.

 

[IFFIC]

Re : Lancer MSGBOX + Musique au démarrage

Je ne connais et n'utilise que cette procédure.
De piloter MédiaPlayer, j'pige pas.

Tu trouveras certainement en fouillant par ici

Bonne soirée

IFFIC

 

[MichelXld]

Re : Lancer MSGBOX + Musique au démarrage

Rebonsoir

Le classeur que tu as joint fonctionne chez moi (Excel2002 - WinXP - WMP 9.0)


Bonne soirée
MichelXld

 

[Gruet Michel]

Re : Lancer MSGBOX + Musique au démarrage

rebonjour à tous.

Je vais laisser tomber ça pour ce soir.
Demain ou un autre jour je ressayerai.

parfois la nuit porte conseil

Merci

A+