Discussion :

[cott333]

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]

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]

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]

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]

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

[Marc-L]

Une recherche via l'Explorateur Windows, non ?


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

[cott333]

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

Et ca marche !

Merci

[SfJ5Rpw8]

...
Et ca marche !

Merci

et la video est lue par qu'elle application ?