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 ‼