bonsoir le forum
j'ai trouver se code sur un ancien FIL,c'est SEB qu'il l'avait mis.
quand je veut appliquer se code il me met une erreur sur "NomFichier"
pour définir l'emplacement du fichier faut il mettre des ""ou des ''.MERCI
Private Sub CommandButton1_Click()
Nomfichier = InputBox("Définir l'emplacement du fichier")
MediaPlayer1.Filename = Nomfichier
End Sub
Private Sub UserForm_Initialize()
MediaPlayer1.AnimationAtStart = True
End Sub
@ plus
petchy