Probleme declaration objet windows media player

Version imprimable

Bonjour,

J'essaye en vain de creer un objet windows media player. Voici mon code:
Code:

1 2 3 4 5 6 7 8 Private Sub LireEnreg(fic As String) Dim Wmp As WindowsMediaPlayer Set Wmp = CreateObject("WMPlayer.OCX.7") '<<== ça bloque ici, j'obtiens Erreur*Automation, Erreur*non*spécifiée*:oops: Wmp.URL = fic Wmp.Controls.play End Sub
Le reference wmp.dll est bien activée.
Je suis sous WIN7, Window Media Player 12, access 2010.

Pouvez-vous m'aider SVP? Je vous en remercie par avance.

Bonjour,

Tu ne peux pas créer un objet OCX de la sorte ; il te faut poser le contrôle WindowsMediaPlayer sur le formulaire et le cacher (par exemple)
Ensuite, tu peux t'inspirer de ce bloc de code...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Compare Database
Option Explicit
 
Private Const FIC As String = "C:\Users\Public\Music\Sample Music\Kalimba.mp3"
Private VMPlayer As WindowsMediaPlayer
 
Private Sub cmdPause_Click()
    With VMPlayer
        .Controls.pause
    End With
End Sub
 
Private Sub cmdPlay_Click()
    With VMPlayer
        .URL = FIC
        .Controls.play
    End With
End Sub
 
Private Sub cmdStop_Click()
    With VMPlayer
        .Controls.stop
    End With
End Sub
 
Private Sub Form_Close()
    Set VMPlayer = Nothing
End Sub
 
Private Sub Form_Load()
    Me.ctlWMP.Visible = False
    Set VMPlayer = ctlWMP.Object
End Sub

Argy

23/04/2015, 16h22
jugedredd

re:

Merci beaucoup Argy pour ta réponse si rapide.

J'ai suivi tes instructions et j'ai créé un objet windows media player ayant pour nom CtlWMP.

Je me retrouve encore une fois avec une erreur sur la ligne au moment du set : Set VMPlayer = ctlWMP.Object me donne Erreur d'exécution '2771' :aie:

Le cadre d'objet dépendant ou indépendant que vous avez essayé de modifier ne contient pas d'objet OLE.

Une idée ?

Merci d'avance.
23/04/2015, 16h52
argyronet

Il ne faut pas créer l'ojet depuis un contrôle OLE mais le glisser depuis la liste des contrôles ActiveX disponibles depuis le bouton nommé Contrôles ActiveX avec une sorte de X rouge...

Argy
23/04/2015, 17h05
jugedredd

re:

C'est pourtant bien avec les Contrôles ActiveX que je l'ai créé.

Bizarre... je suis perdu.

J'aimerais pouvoir utiliser les commandes détaillées dans le tuto de SilkyRoad

SOS!! :?
28/04/2015, 21h52
argyronet

Citation:

Envoyé par Tuto de SilkyRoad

Vous devez préalablement créer une forme dans votre projet et y ajouter un objet Windows Media Player, nommé WindowsMediaPlayer1

Ta version de Windows n'est t-elle pas par hasard une version Windows 7 N ?

Argy
11/05/2015, 11h20
jugedredd

J'ai un windows 7, version 6.1 (numero 7601 service pack 1)

Cela pourrait-il etre un problème de pack office?
11/05/2015, 13h01
argyronet

1 pièce(s) jointe(s)

Non, seule la version N pose problème dans ce sens...
Bon, dans la liste des contrôles Active X, est-ce que tu peux sélectionner Windows Media Player comme dans l'image ci-jointe...

C'est à partir de là qu'il faut que tu ajoutes le contrôle.

Argy
11/05/2015, 19h12
jugedredd

Oui, c'est bien que j'avais fait, insérer un contrôle ActiveX WMP.
Jusque là tout va bien !:P
12/05/2015, 09h13
argyronet

Et donc, si tu reviens sur le #2

Ca ne marche toujours pas ?

Euh, juste comme ça, est-ce que WMP est fonctionnel (seul) ?
As-tu essayé de lire un média dessus depuis Windows ?

Argy
19/05/2015, 15h55
jugedredd

Cuocou Argy,

C'est toujours pareil, j'ai encore perdu plusieurs heures à tester. Ca bloque au niveau du Set Wmp = CreateObject("WMPlayer.OCX.7") (voir #3)
19/05/2015, 16h26
argyronet

C'est le code du #2 qu'il faut utiliser, pas ton exemple initial.

Argy