Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Séquences MIDI

Séquences MIDI

6 réponses
Avatar
Frédo P.
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le lecteur
multimédia ?


--
Fred.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Frédo,

Le chemin du fichier indiqué est celui du OS windows xp professionnel

'-----------------------------
Sub OuvrirWindowsMedia()

Dim Fichier As String
Fichier = "C:Program FilesWindows Media Playerwmplayer.exe"
A = Shell(Fichier, vbMinimizedFocus)

End Sub
'-----------------------------


Salutations!

"Frédo P." a écrit dans le message de news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le lecteur
multimédia ?


--
Fred.
Avatar
Clément Marcotte
Bonjour,

Une solution alternative à celle de Denis. Tu te fais un UserForm et
tu installes le contrôle du lecteur Windows Medias. Tu peux ensuite
programmer le contrôle comme tout autre contrôle.


"Frédo P." a écrit dans le message de
news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le lecteur
multimédia ?


--
Fred.




Avatar
Frédo P.
Merci de ton aide Clément


--
Fred

Rep=mid(add,4,16)
Ana.: Norton 2003
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Avec le contrôle, tu n'as pas besoin de shell.

Regarde dans la fenêtre Propriétés du contrôle une fois placé sur ton
UserForm.

Selon les noms utiliés, tu vas devoir mettre quelque chose comme cela:

mediaplayer1.file = C:WindowsMediaConcerto Brandebourgeois n° 3 de
J.S. Bach",

"Frédo P." a écrit dans le message de
news:3f9cec99$0$2802$
ReBj

Ci-dessous ce qui a été essayé:

Private Sub UserForm_Activate()
Dim Fichier As String, a
Fichier = "C:Program FilesWindows Media Playermplayer.exe"
a = Shell("C:WindowsMediaConcerto Brandebourgeois n° 3 de J.S.
Bach",

vbMinimizedFocus)
End Sub
Je ne sais pas s'il faut écrire la première ligne pour le contrôle
et puis

ça stop à "a=Shell.....", c'est peut être une question de nom, j'ai
essayé

aussi "Concerto Brandebourgeois n° 3 de J.S. Bach.rmi", puis le nom
du DOS

:"CONCER~1.RMI" sans succés. Les paths sont bons ,enfin je le pense.
--
Fred

Rep=mid(add,4,16)
Ana.: Norton 2003
"Clément Marcotte" a écrit dans le
message

de news: upqd#
Bonjour,

Une solution alternative à celle de Denis. Tu te fais un UserForm
et


tu installes le contrôle du lecteur Windows Medias. Tu peux
ensuite


programmer le contrôle comme tout autre contrôle.


"Frédo P." a écrit dans le message de
news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le
lecteur



multimédia ?


--
Fred.














Avatar
Frédo P.
Merci à tout deux, Denis et Clément

--
Fred.

"Clément Marcotte" a écrit dans le message
de news: upqd#
Bonjour,

Une solution alternative à celle de Denis. Tu te fais un UserForm et
tu installes le contrôle du lecteur Windows Medias. Tu peux ensuite
programmer le contrôle comme tout autre contrôle.


"Frédo P." a écrit dans le message de
news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le lecteur
multimédia ?


--
Fred.







Avatar
Frédo P.
ReBj

Ci-dessous ce qui a été essayé:

Private Sub UserForm_Activate()
Dim Fichier As String, a
Fichier = "C:Program FilesWindows Media Playermplayer.exe"
a = Shell("C:WindowsMediaConcerto Brandebourgeois n° 3 de J.S. Bach",
vbMinimizedFocus)
End Sub
Je ne sais pas s'il faut écrire la première ligne pour le contrôle et puis
ça stop à "a=Shell.....", c'est peut être une question de nom, j'ai essayé
aussi "Concerto Brandebourgeois n° 3 de J.S. Bach.rmi", puis le nom du DOS
:"CONCER~1.RMI" sans succés. Les paths sont bons ,enfin je le pense.
--
Fred

Rep=mid(add,4,16)
Ana.: Norton 2003
"Clément Marcotte" a écrit dans le message
de news: upqd#
Bonjour,

Une solution alternative à celle de Denis. Tu te fais un UserForm et
tu installes le contrôle du lecteur Windows Medias. Tu peux ensuite
programmer le contrôle comme tout autre contrôle.


"Frédo P." a écrit dans le message de
news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le lecteur
multimédia ?


--
Fred.







Avatar
Clément Marcotte
Bonjour,

Avec le contrôle, tu n'as pas besoin de shell.

Regarde dans la fenêtre Propriétés du contrôle une fois placé sur ton
UserForm.

Selon les noms utiliés, tu vas devoir mettre quelque chose comme cela:

mediaplayer1.file = C:WindowsMediaConcerto Brandebourgeois n° 3 de
J.S. Bach",

"Frédo P." a écrit dans le message de
news:3f9cec99$0$2802$
ReBj

Ci-dessous ce qui a été essayé:

Private Sub UserForm_Activate()
Dim Fichier As String, a
Fichier = "C:Program FilesWindows Media Playermplayer.exe"
a = Shell("C:WindowsMediaConcerto Brandebourgeois n° 3 de J.S.
Bach",

vbMinimizedFocus)
End Sub
Je ne sais pas s'il faut écrire la première ligne pour le contrôle
et puis

ça stop à "a=Shell.....", c'est peut être une question de nom, j'ai
essayé

aussi "Concerto Brandebourgeois n° 3 de J.S. Bach.rmi", puis le nom
du DOS

:"CONCER~1.RMI" sans succés. Les paths sont bons ,enfin je le pense.
--
Fred

Rep=mid(add,4,16)
Ana.: Norton 2003
"Clément Marcotte" a écrit dans le
message

de news: upqd#
Bonjour,

Une solution alternative à celle de Denis. Tu te fais un UserForm
et


tu installes le contrôle du lecteur Windows Medias. Tu peux
ensuite


programmer le contrôle comme tout autre contrôle.


"Frédo P." a écrit dans le message de
news:3f9c1aab$0$27035$
Bonsoir toutes et tous
Est ce il serait possible à partir d'Excel de démarrer le
lecteur



multimédia ?


--
Fred.