A voir également:
- Lire un fichier flash (.swf) en vba
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier rar - Guide
- Lire fichier epub - Guide
- Fichier host - Guide
- Fichier swf - Télécharger - Lecture
8 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
11 janv. 2011 à 04:05
11 janv. 2011 à 04:05
Salut le forum
Tu n'as pas du chercher beaucoup : Piloter une animation Flash en VBA
Mytå
Tu n'as pas du chercher beaucoup : Piloter une animation Flash en VBA
Mytå
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?
Je n'ai dans ma verions vba pas de "ShockWave Flash Object" ...
Quelqu'un d'autre?
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
11 janv. 2011 à 23:28
11 janv. 2011 à 23:28
Re le forum
Avec quoi lis tu tes fichiers .swf ?
Quelle est ta version Excel ?
A te relire
Mytå
Avec quoi lis tu tes fichiers .swf ?
Quelle est ta version Excel ?
A te relire
Mytå
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai trouvé sur excel 2007 l'objet et j'ai mis ce code
Mais rien ne se lance lors de l'ouverture de l'UserForm. Pourquoi?
Help !
JéSky
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
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"
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"
A partir du même modèle j'ai mis pour une vidéo :
et
VB me dit que le premier code est faux ? Pourquoi ?
JéSky
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
Re,
Des liens intéressants
https://www.excel-downloads.com/threads/piloter-windows-media-player-depuis-excel.43029/
https://silkyroad.developpez.com/VBA/PiloterFlash/
Bonne journée
Des liens intéressants
https://www.excel-downloads.com/threads/piloter-windows-media-player-depuis-excel.43029/
https://silkyroad.developpez.com/VBA/PiloterFlash/
Bonne journée
