Ouvrir un fichier video par une macro excel

Version imprimable

Bonjour à tous!

J'ai un petit soucis pour ouvrir un fichier video par VBA.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 Sub lancerUneVideo() 'Necessite d'activer la référence Windows Media Player Dim Wmp As WindowsMediaPlayer Set Wmp = CreateObject("WMPlayer.OCX.9") Wmp.openPlayer "C:\Users\212324957\Desktop\Paul\Usine à macro\Création d'une session test.avi" End Sub
J'ai la version 12 de WMP donc est ce que je change ("WMPlayer.OCX.9")
en ("WMPlayer.OCX.12") ?

Dans les deux cas je me retrouve avec le message d'erreur suivant:

"ActiveX component can't create object"

Une idée? :D

Merci d'avance !

10/05/2013, 10h24
SfJ5Rpw8

Bonjour,

et si tu supprime ta ligne "Set..." et rajoute un "New" dans ton dim ..

Code:

Dim Wmp As New WindowsMediaPlayer

Code:

1
2
3
4
5
6
7
8
9
Sub lancerUneVideo()
 
    'Necessite d'activer la référence Windows Media Player
    Dim Wmp As New WindowsMediaPlayer
 
    'Set Wmp = CreateObject("WMPlayer.OCX.9")
    Wmp.openPlayer "C:\Users\212324957\Desktop\Paul\Usine à macro\Macro Video\Création d'une session test.avi"
 
End Sub

Nouveau message d'erreur :(

Run time error '-2147467259
Automation error
Unspecified error

10/05/2013, 11h24
Marc-L

Bonjour.

Le code de départ me semblait bon, si ce n'est qu'il faudrait vérifier l'existence du fichier .OCX et sa version …

Sinon consulter Utiliser Windows Media Player en VB et VBA.

_______________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
10/05/2013, 11h51
cott333

Mhmm..
Et comment tu peux vérifier l'existence du fichier .OCX et sa version?
10/05/2013, 13h38
Marc-L

Une recherche via l'Explorateur Windows, non ?

___________________________________________
Comment les huissiers préfèrent-ils leur viande ? Bien saisie évidemment ‼

Ok j'ai totalement changé mon code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private 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 PlayVideo()
 
  Dim FileName As String
  Dim FilePath As String
 
    FileName = "Création d'une session test.avi"
    FilePath = "C:\Users\212324957\Desktop\Paul\Usine à macro\Macro Video\"
 
    RetVal = ShellExecute(0&, "open", FileName, vbNullString, FilePath, 1&)
 
End Sub

Et ca marche !

Merci :D

10/05/2013, 14h11
SfJ5Rpw8

Citation:

Envoyé par cott333

...
Et ca marche !

Merci :D

et la video est lue par qu'elle application ?