Fichier .avi

[Didier]

Est-il possible de faire lire un .avi dans une userform???
SI OUI COMMENT???????,,

 

[STéphane]

dans une feuille de calcul tu as cette solution

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 25/06/2002 par Royer
'

'
ActiveSheet.OLEObjects.Add(ClassType:="AVIFile", Link:=False, _
DisplayAsIcon:=False).Activate
ChDir "C:\winnt"
ChDir "C:\WINNT\Profiles\royers\Bureau"
ActiveWorkbook.SaveAs FileName:= _
"C:\WINNT\Profiles\royers\Bureau\Classeur1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Workbooks.Open FileName:="C:\WINNT\Profiles\royers\bureau\Classeur1.xls"
Selection.Verb Verb:=xlPrimary
Range("D11").Select
End Sub

dans un userform, il y a sûrement un moyen mais je ne vois pas pour l'instant

bye
stephane

 

[STéphane]

ou encore

tu vas dans VBE
puis dans outils référence et tu t'assures que tu aies une référence à windows media player

puis créeun userform, sélectionne-l, cliques à droite sur la barre d'outils contrôles, rajoute le contrôle windows media player

double-clique sur le formulaire et colle un code du genre suivant :
Private Sub UserForm_Initialize()
UserForm1.MediaPlayer1.FileName = "c:\winnt\" & "clock.avi"
End Sub


bye
stephane

 

[Didier]

Ok Stéphane,
mais avec le controle >WMP, y a tou : les boutons lecture, stop, pause;...
c chiant
peut-on les désacvtiver ! ! !

 

[STéphane]

en fouillant grâce à la complétion des instructions, j'ai trouvé :

Private Sub UserForm_Initialize()
UserForm1.MediaPlayer1.FileName = "c:\winnt\" & "clock.avi"
With MediaPlayer1
.ShowControls = False
End With
End Sub


bye
stéphane