afficher un contenu excel dans flash ?

[tom]

Bonjour,
Question un peu différente de 'd'habitude'. Je fais une animation flash qui présente les résultats simplifiés d'un tableau de bord d'entreprise.
Savez-vous (Avez-vous entendu parler) d'un moyen d'appeler des données stockées dans un fichier Ecxel directement dans une animation Flash ?
Tom

 

[MichelXld]

bonjour Tom

il est possible d'alimenter les champs d'une animation Flash depuis Excel

par exemple pour alimenter la zone 'champFlash' avec la valeur de la cellule A1

ShockwaveFlash1.SetVariable 'champFlash', Range('A1')



bon week end
MichelXld

Edition :
apres relecture de la question je ne suis plus vraiment sur que cela corresponde à ta demande

Message édité par: MichelXld, à: 08/07/2005 19:23

 

[tom]

merci merci, c'est trop fort !
tom

 

[tom]

Après relecture de ton 'Edition' je suis en proie aux doutes.

Je précise donc mon besoin :
L'idée est de mettre en ligne sur un serveur web une animation flash (SWF) et d'y associer une table Excel.

A1 = titre1
B1 = contenu1
C1 = lien 1

A2 = titre2
B2 = contenu2
C2 = lien2

etc...

Dans l'anim SWF, j'appellerai des champs texte dynamiques 'titre1, contenu1, lien1' dans une frame, dans la frame suivante 'titre2, contenu2, lien2', etc...

 

[MichelXld]

bonsoir Tom

as tu essayé la macro proposée dans mon premier message ?

ShockwaveFlash1.SetVariable 'titre1', Range('A1')

ShockwaveFlash1.SetVariable 'contenu1', Range('B1')

...etc...


dans ce lien tu trouveras un exemple qui montre , en autre , comment modifier un champ dans une animation Flash

Lien supprimé


bonne soiree
MichelXld

 

[tom]

Hello,
je vais essayé.
En attends, j'ai fais une version intermédiaire avec une macro qui dit :

Dim Msg, HLINK As String
Dim i

For i = 2 To 11
Msg = Msg & '%26' & Range('A' & i).Value & '=' & Range('B' & i).Value & '%26' & '%0A'
Msg = Msg & '%26big' & Range('A' & i).Value & '=' & Range('C' & i).Value & '%26' & '%0A'
Next
Msg = Msg & '%26EOF=true'
HLINK = 'mailto:adresse@email.com?subject=tableaudebord&body=' & Msg & '&'
ActiveWorkbook.FollowHyperlink (HLINK)
Application.Wait (Now + TimeValue('0:00:01'))
SendKeys '%s', True

où j'ai placé dans la colone A mes intitulés de champs texte dynamiques flash.
Ca m'envoie un mail dont j'enregistre le contenu en format TXT, prêt à être publié... Un peu tordu mais ça peut déjà me faire gagner du temps !
J'essaye ta solution. merci
Tom