Discussion :

[Nanonnien]

Bonjour,

j'ai un problème vraiment débile ... je suis incapable de lancer une vidéo ou une musique à l'aide d'une vba. J'ai bien lu ceci http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/ et activé Windows Media Player ,Windows Media Player Comptability Layer et Windows Media Player Launcher mais quoi que je fasse je suis incapable de lire ma vidéo.

Je ne veux pas en rester là avec ma macro mais je bute déjà sur le début. Alors si quelqu'un aurait l’amabilité de m'indiquer comment commencer !

Merci et bonne soirée =) !

[Docmarti]

Bonjour.

Si tu veux l'ouvrir avec l'application par défaut, il y a l'API ShellExecute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
 
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
 
Sub OuvrirAvecApplicationParDefaut(CheminCompletDuFichier As String)
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", CheminCompletDuFichier, "", _
                        "", SW_SHOWMAXIMIZED)
 
End Sub

[Nanonnien]

Petite question est ce que cet API me permet de connaitre le temps ou en est ma vidéo par exemple ?

[clementmarcotte]

Bonjour

Pas avec ShellExecute, en tout cas. Mais, je pense bien que c'est possible. Une bonne place pour commencer:

http://bob.developpez.com/tutapiwin/