Gif qui ne s'affiche pas
Bonsoir à tous!
je début dans le VBA depuis déjà quelques semaines et là je viens d'avoir un petit problème que je n'arrive pas à résoudre!
je vous explique, j'ai voulu créer un message "veuillez patienter". Pour que ça soit plus attrayant, j'ai mis un gif "veuillez patienter".
J'ai mis mon gif dans mon userfrom, tous marche bien le gif se met quand je fais un test.
Dans un autre userfrom, j'ai mis un place un bouton pour valider et qu'on est la fenêtre veuillez patienté qui s'ouvre.
j'ai réussi à mettre les codes pour la fenêtre etc....
Pour la fenêtre puisse durer un certain temps (tempo) j'ai mis ce code:
Dim I As Integer
Dim J As Long
' Lancement macro
Patience.Show 0
Patience.Repaint
For I = 2 To 4
For J = 1000 To 2000
Cells(J, I) = "Travail"
Next J
Next I
For I = 2 To 4
For J = 1000 To 2000
Cells(J, I).ClearContents
Next J
Next I
Unload Patience
du coup j'ai bien quelques secondes pour que ma fenêtre patienter s'ouvre et se ferme. mais le problème dans cette fenêtre je n'ai plus mon gif or dans le test il fonctionnait!
j'ai essayé de chercher et j'ai trouvé une chose c'est que dans le code:
' Lancement macro
Patience.Show 0
Patience.Repaint
si on enlève le 0, à se moment là on voit bien mon gif. mais du coup j'ai plus ma tempo...
j'aimerai savoir si il été possible de résoudre mon problème? est ce que j'utilise la bonne méthode? il y a t'il un moyen de contourner le problème?
J'espère que mes explications ont été assez clair ...
Je vous remercie d'avance!
Bonsoir à tous,
Bonsoir skyzio63,
Voici un fichier exemple avec utilisation d'une commande Weit réglée sur 2 secondes.
Pour voir apparaître le message de pateince, il faut d'abord masquer le formulaire appelant puyis le réafficher à la fermeture du message. Sinon, il faut que le formulaire appelant soit lui-même affiché en non modal, mais ça peut nuire à l'utilisation du classeur.
Pour changer la durée d'affichage, il suffit de remplacer +2 dans la ligne suivante (module UserForm1) :
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 2)A +
Cordialement.
Bonsoir Papou-net
Merci pour ta réponse. je garde le système de tempo car elle est mieux que la mienne par contre dans votre essai, vous avais une image et non pas un gif. Pour le code du gif j'utilise ceci:
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\Users\LPPI\Desktop\26863_1_f.gif'></img></body></html>"
End Subavec une image ça marche, mais avec un gif, il disparait!