Discussion :

[jo50160]

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.

[KekeStreet]

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 )

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.

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Teste As Boolean

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

[jo50160]

Bonsoir a tous et merci pour votre aide
Merci a Daniel