Bonsoir à tous et à toutes.
Je suis un petit nouveau sur votre forum et j'espère trouver un solution a mon problème.
Voilà j’ai code qui ne fonctionne pas et je voudrais que quand je clique sur la croix de fermeture du classeur Excel l’ UserForm s’affiche sauvegarde le classeur et le ferme.
Dans l’userform il y a un gifs animé + la progressBar.
Quand je suis dans VBA Excel et que je clic sur exécuté Userform celui-ci s’ouvre le gifs fonctionne mais pas la progressBar.
Quand je clic sur la croix pour fermer le classeur l’userform ne ne s’affiche pas.
Pouvez me dire se qui ne va pas.
Merci a tout ceux qui voudrons bien me venir en aide.
A+
Je suis un petit nouveau sur votre forum et j'espère trouver un solution a mon problème.
Voilà j’ai code qui ne fonctionne pas et je voudrais que quand je clique sur la croix de fermeture du classeur Excel l’ UserForm s’affiche sauvegarde le classeur et le ferme.
Dans l’userform il y a un gifs animé + la progressBar.
Quand je suis dans VBA Excel et que je clic sur exécuté Userform celui-ci s’ouvre le gifs fonctionne mais pas la progressBar.
Quand je clic sur la croix pour fermer le classeur l’userform ne ne s’affiche pas.
Pouvez me dire se qui ne va pas.
Code:
Private Sub UserForm_Activate()
WebBrowser1.Navigate _
"about:" & _
"[IMG]http://www.mrexcel.com/forum/Users\HJ\Pictures\HDMotor.gif[/IMG]"
If ProgressBar1 Then
Dim Boucle As Integer, Temps As Single
For Boucle = 1 To 100
ProgressBar1.Value =Boucle
Temps = Timer + 0.1
Do While Timer < Temps
DoEvents
Loop
Pct.Caption = Boucle & "%"
Next Boucle
ActiveWorkbook.Save 'Sauvegarde le classeur'
Unload Me
Application.Quit
End If
End Sub
Merci a tout ceux qui voudrons bien me venir en aide.
A+