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

8 réponses

  2. 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
  3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    Re le forum

    Avec quoi lis tu tes fichiers .swf ?

    Quelle est ta version Excel ?

    A te relire
    Mytå
    0
  4. 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

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

    Posez votre question
  6. 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
  9. 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
    1. JéSky
       
      Paf,

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

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

      A très bientôt :)

      JéSky
      0
    3. 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
    5. JéSky
       
      Merci

      JéSky
      0