Sujet Précédent Sujet Suivant

Lire un fichier flash (.swf) en vba

JéSky -  
 I'Ssac -
Bonjour,

Je voudrais savoir comment lorsque l'on ouvre un userform un animation au préalable choisie se lise. A la limite en cliquant sur un bouton.

Je crois que c'est possible mais malgrès les recherches je n'y arrive pas ! Quels sont les codes vba ?

Merci de me donner un réponse claire :)

JéSky

A voir également:

8 réponses

Réponse 1 / 8
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

Tu n'as pas du chercher beaucoup : Piloter une animation Flash en VBA

Mytå
0
Réponse 2 / 8
JéSky
 
Merci Mytå j'avais vu le lien mais je n'ai pas les mêmes versions !
Je n'ai dans ma verions vba pas de "ShockWave Flash Object" ...

Quelqu'un d'autre?
0
Réponse 3 / 8
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Re le forum

Avec quoi lis tu tes fichiers .swf ?

Quelle est ta version Excel ?

A te relire
Mytå
0
Réponse 4 / 8
JéSky
 
Je lis les fichiers avec GeoVid Flash Player
Ma version est excel 2007 ou 2010 selon les PC (donc dis moi ce qui t'arrange)
Au moins ou est "Shokwave Flash Object" ?
Sinon pas grave mais j'aimerais bien apprendre :)

JéSky
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
JéSky
 
J'ai trouvé sur excel 2007 l'objet et j'ai mis ce code 

Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)
'Chargement du fichier .swf
ShockwaveFlash1.Movie = "C:\cdt.swf"
'Lecture
ShockwaveFlash1.Play
End Sub

Mais rien ne se lance lors de l'ouverture de l'UserForm. Pourquoi?

Help !

JéSky
0
Réponse 6 / 8
JéSky
 
Personne ?
0
Réponse 7 / 8
JéSky
 
up !
0
Réponse 8 / 8
Paf
 
bonjour

je n'ai pas pu le reproduire sur excel, mais j'avais fait ça sous VB6.

peut-être que cette adaptation pourrait marcher:

dans la sub UserForm_Activate() de la Userform (qui supporte l'objet ShockwaveFlash1) :
ShockwaveFlash1.Movie = "C:\cdt.swf"
0
JéSky
 
Paf,

Qu'est ce que "la sub UserForm_Activate()" ?
Merci de ton aide !

JéSky
0
JéSky
 
MERCI BEAUCOUP !! J'ai réussi !! !!

A très bientôt :)

JéSky
0
JéSky
 
A partir du même modèle j'ai mis pour une vidéo : 

Private Sub UserForm_Activate()
WindowsMediaPlayer1.Movie = "C:\cdt.avi"
End Sub


et 
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
'Définit et lit un fichier
WindowsMediaPlayer1.Play = "C:\cdt.avi"
End Sub


VB me dit que le premier code est faux ? Pourquoi ?

JéSky
0
JéSky
 
Merci

JéSky
0