ajouter dynamiquement objet WindowsmediaPlayer

[nunutte]

Bonjour a tous,

J'aimerais ajouter dynamiquement (c'est-à-dire sans passer par les boite à outils ) à une feuille ecxel ou un userform un objet windowsmediaplayer. Je suis completement perdue !!

Comment fait -on ???

Merci bcp d'avance !!

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider à ajouter dynamiquement un objet Windows Media Player dans un Userform

Sub LancerUSF()
Dim Usf As Object
Dim Obj As Object

Set Usf = ThisWorkbook.VBProject.VBComponents('Userform1')
Set Obj = Usf.Designer.Controls.Add('WMPlayer.OCX.7')

With Obj
.Left = 20: .Top = 20: .Width = 200: .Height = 150
End With

VBA.UserForms.Add (Usf.Name)
UserForms(0).Show
End Sub



bonne soirée
MichelXld