Discussion :

[jugedredd]

Bonjour,

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

Code :

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

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.

[argyronet]

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 :

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

[jugedredd]

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'

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.

[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

[jugedredd]

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

[argyronet]

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

[jugedredd]

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

Cela pourrait-il etre un problème de pack office?

[argyronet]

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

[jugedredd]

Oui, c'est bien que j'avais fait, insérer un contrôle ActiveX WMP.
Jusque là tout va bien !

[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

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

[argyronet]

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

Argy