cartouche information pendant sauvegarde

[bellous]

Bonjour à tous,

Durant la sauvegarde de mon classeur (un peu longue), je souhaiterai afficher une information "Sauvegarde en cours Veuillez patienter...........".
Si je fais par userform, il faut une action sur un bouton ou autre croix. Je souhaiterai une simple information qui s'afficherai juste avant mon Activeworkbook.save et s'efface juste après sans intervention.

Merci de votre aide

 

[wilfried_42]

Re : cartouche information pendant sauvegarde

Bonjour bellous

Tu peux le faire par UserForm, mais il faut l'appeler differemment

Pas de bouton, seulement un label
MonUsf.show 0

à la fin
Unload MonUsf

essaye ca et dis nous

 

[bellous]

Re : cartouche information pendant sauvegarde

bonjour wilfried,
J'ai fait un userform avec un simple label mais il me de^mand quand même une action :

Private Sub Label2_Click()

End Sub

 

[wilfried_42]

Re : cartouche information pendant sauvegarde

re:

Tu as du cliquer sur le label, lors de la conception de ton Usf, et tu as simplement preparé une gestion de si quelqu'un click sur le label

Tu peux supprimer les 2 lignes, de toute facon, elle n'imposent rien du tout

 

[bellous]

Re : cartouche information pendant sauvegarde

pardonne ma naïveté.
J'ai bien supprimé les demandes de clics dans l'userform et cela ne change rien il attends une action qui se fait lorsque je clique sur la croix rouge en haut à droite.

 

[wilfried_42]

Re : cartouche information pendant sauvegarde

re:

le probleme est la vitesse, voici une macro, adapte la

Sub Bouton1_QuandClic()
monusf.Show 0
For i = 1 To 1000
DoEvents
Next ThisWorkbook.SaveAs "C:\gwessai.xls"
Unload monusf
End Sub

En bleu une boucle qui laisse le tomps à l'USF de s'afficher, ne touche rien sur l'USF, laise tourner la macro

En rouge adapte ton ordre de sauvegarde

En vert, le nom de l'USF, mets le tien

 

[bellous]

Re : cartouche information pendant sauvegarde

Très bien wilfried
ça fonctionne bien
Merci
Bon we