Progress Bar VBA Excel

Bonjour à tous.

Je recherche un code pour une progressBar 'UserForm' qui s'affiche quand je clique sur la croix de fermeture excel, est qui au bout d'un lap de temps ' 10 second' force se classeur a se fermer sans enregistrement.

Merci a ceux qui voudrons bien m'aider.

Ce n'est que mon humble avis mais je pense que ce n'est pas faisable, si le classeur se ferme la macro s'arrête, et donc elle ne pourra pas vérifier que le classeur est bien fermé. Si elle ne s'arrête pas le classeur ne se fermera pas.

Ou alors faut un code qui tourne en dehors de ton excel pour faire ce que tu veux faire. (genre dans une autre appli Excel qui n'est pas fermée.. mais bon :mouarf:)

http://silkyroad.developpez.com/VBA/...lasseur/#LII-5

ici y a une documentation sur l'évènement "Workbook_BeforeClose" ça peut peut être t'aider (mais pour ce que tu veux faire j'en doute). bon courage.

Bonjour,

Regarde le classeur joint. J'ai créé un userform avec un contrôle "ProgressBar".
Voici le code à mettre dans le module "ThisWorkbook" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Teste = True Then Exit Sub Cancel = True UserForm1.ProgressBar1.Value = 0 UserForm1.Show For i = 1 To 10 Application.Wait Now + TimeValue("00:00:01") UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1 Next i Teste = True ThisWorkbook.Close False End Sub

---

Dans un module standard, mets :

Code:

---

Public Teste As Boolean

---

Le userform est non modal. Les valeurs mini et maxi du progressbar sont 0 et 10.

Bonsoir a tous et merci pour votre aide
Merci a Daniel ;)