Ouvrir un fichier video par une macro excel

**cott333** · 10/05/2013, 10h19

Bonjour à tous!

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

Voici mon code:

Code :

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

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?

Merci d'avance !

**SfJ5Rpw8** · 10/05/2013, 10h24

Bonjour,

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

Code :

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

Dim Wmp As New WindowsMediaPlayer

**cott333** · 10/05/2013, 10h40

Code :

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

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

**Marc-L** · 10/05/2013, 11h24

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

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**cott333** · 10/05/2013, 11h51

Mhmm..
Et comment tu peux vérifier l'existence du fichier .OCX et sa version?

**Marc-L** · 10/05/2013, 13h38

Une recherche via l'Explorateur Windows, non ?

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

**cott333** · 10/05/2013, 14h02

Ok j'ai totalement changé mon code.

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
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