Affichage d'un GIF animé pendant l'exécution d'une macro

solquagerius · 30 Mars 2009

Bonjour,

j'essaie d'afficher un gif animé pendant l'exécution d'une macro. J'ai utilisé le webbrowser pour afficher le gif, ca marche, mais il n'est pas animé...
voilà ce que je fais : je charge l'image dans le webbrowser et je l'affiche, pendant que la macro s'execute après. Si j'enlève le DoEvents, le gid est animé c'est bon, mais bon l'appli se lance pas tant qu'on enlève pas l'image... Et quand je met le DoEvents, la macro s'exécute mais l'image reste figée.

Code:

wait.Show False
        DoEvents

Si qqun a une idée...merci !

mromain · 30 Mars 2009

Re : Affichage d'un GIF animé pendant l'exécution d'une macro

bonjour solquagerius et bienvenue sur le forum

tu trouvera un exemple à adapter ci-joint si le fichier buge, il faudra modifier le chemin du gif à afficher en "B2", sauvegarder, et re-ouvrir le fichier.

a+

re, je viens de me rendre compte qu'il ne faut pas d'espace dans le chemin du gif.

solquagerius · 30 Mars 2009

Re : Affichage d'un GIF animé pendant l'exécution d'une macro

Merci pour la réponse ! Mais... ca marche toujours pas sur ma macro

... je ne sais pas d'où ca vient, j'ai essayé d'inverser les lignes de codes, de mettre des falses, des 0, repaint, et plein d'autres trucs, c'est peut-être que la macro qui s'exécute prend trop de ressources...(elle est assez complexe).

mromain · 30 Mars 2009

Re : Affichage d'un GIF animé pendant l'exécution d'une macro

re,

sur le code du bouton :

Code:

Private Sub CommandButton1_Click()
Dim srcImg As String
srcImg = ThisWorkbook.Sheets("Feuil1").Range("B1").Value
UserForm1.Show 0
UserForm1.WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='" & srcImg & "'></img></body></html>"

[COLOR="Red"][B]Module1.LaMacro[/B][/COLOR]

UserForm1.Hide
End Sub

modifie "Module1.LaMacro" par ta macro.

si ça ne fonctionne toujours pas, envois-nous ton fichier qu'on puisse directement travailler dessus.

a+

solquagerius · 30 Mars 2009

Re : Affichage d'un GIF animé pendant l'exécution d'une macro

Toujours pas, je pense que le problème vient d'ailleurs. Je réessaierai plus tard, j'ai d'autres sujets en cours

Quant au fichier, j'ai bien peur de ne pas pouvoir le diffuser.... classé secret lol (fichier d'entreprise).
Mais merci pour la réponse, ca m'a donné quelques pistes de réflexion !!

Effectuez une recherche sur Excel Downloads...

Affichage d'un GIF animé pendant l'exécution d'une macro

solquagerius

XLDnaute Junior

mromain

XLDnaute Barbatruc

Pièces jointes

solquagerius

XLDnaute Junior

mromain

XLDnaute Barbatruc

solquagerius

XLDnaute Junior

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums