Discussion :

[polo1]

bonjour j'ai un petit soucis avec mes userform
si qq un pouvait m'aider ce serait super....

en fait à l'ouverture d'un fichier excel l'auto_open crée plusieurs userform.

lors de la fermeture de se fichier l'auto_close les ferme en utilisant la fonction remove

le soucis vient du fait que les userform ne se suppriment pas toujours. si elles n'ont jamais été affiché il n'y a pas de soucis. Par contre toutes les userform qui ont été affiché à un moment ne se suppriment pas.

lors de l'activation d'un bouton des userform j'utilise la fonction Unload pour les vider.
est ce la bonne fonction? est il possible de désactiver toutes les userform? de retrouver l'etat initial du classeur?

merci beaucoup

[Bigalo]

Bonjour,

L’extrait de ton code censé détruire les Userforms serait le bienvenu

[polo1]

l' Auto_close lance cette macro

Code :

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

1
2
3
4
5
6
7
Sub effacer_userform()
 
    ThisWorkbook.VBProject.vBComponents.Remove ThisWorkbook.VBProject.vBComponents("historique")
    ThisWorkbook.VBProject.vBComponents.Remove ThisWorkbook.VBProject.vBComponents("mot_passe")
    ThisWorkbook.VBProject.vBComponents.Remove ThisWorkbook.VBProject.vBComponents("choix_graph")
 
End Sub

[Bigalo]

Re,

J’ai testé ton code avec Excel 2007. Il fonctionne, que les UserForms aient été ouverts ou non. Quelle version utilises-tu ?

N’as-tu aucun message d’erreur et es-tu sûr d’utiliser les bons noms ?

Par ailleurs, tu pourrais rendre ton code plus lisible en le modifiant :

Code :

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

1
2
3
4
5
6
7
Sub EffacerUserForms()
        With ThisWorkbook.VBProject
            vBComponents.Remove .vBComponents("historique")
            vBComponents.Remove .vBComponents("mot_passe")
            vBComponents.Remove .vBComponents("choix_graph")
        End With
End Sub

ou

Code :

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

1
2
3
4
5
6
7
Sub EffacerUserForms()
        With ThisWorkbook.VBProject.vBComponents
            .Remove .Parent.vBComponents("historique")
            .Remove .Parent.vBComponents("mot_passe")
            .Remove .Parent.vBComponents("choix_graph")
        End With
End Sub

Enfin, sur le fond, quel est l’intérêt de récréer les UserForms à chaque ouverture du fichier pour les détruire à la fermeture ?

Pourquoi ne pas simplement conserver les UserForms sans et les initialiser avant de les charger en mémoire (Load ou Show, selon les besoins) ?

[polo1]

J'utilise office 2003 en fait, enfin je ne vais pas tarder a passer en 2007.
Merci pour la simplification de l'ecriture...

en attendant je viens de remarquer qq chose.
ma macro marche dans tous les cas si je la lance toute seule, sans passer par l' auto_close. La fin du fonctionnement des macros valide les suppressions.

connais tu un moyen de simuler la fin de la macro (certaines operation doivent s'effectuer a ce moment..)

j'essaye donc de remplacer mon auto_close par un beforeclose qui s'annule si les userform n'ont pas ete effacées. Par contre il ne se lance pas à la fermeture d'Excel, est ce normal?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim vbComp As Object
    Dim cont As Long
 
    effacer_userform
    cont = 0
    For Each vbComp In ThisWorkbook.VBProject.VBComponents
        If vbComp.Type = 3 Then
            cont = cont + 1
        End If
    Next vbComp
    If cont > 0 Then
    Cancel = True
    End If
End sub

[Bigalo]

De rien

Quand tu rédiges un message, il y a au-dessus de la fenêtre de rédaction un ensemble d’icônes, parmi lesquelles la dernière, #, est destinée à la reproduction du code. Utilise-la, le résultat est bien plus lisible. Pour ce faire, sélectionne ton code, et clique ensuite sur la balise.

Pour en revenir au sujet, il n’est pas normal que la procédure

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' ...
End Sub

ne se déclenche pas. Tu as probablement quelque part (peut-être lors de l’affichage d’un UserForm, ce qui expliquerait, ce que tu décrivais au départ) :

Code :

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

    Application.EnableEvents = False

qui neutralise les procédures événementielles sans avoir plus loin :

Code :

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

    Application.EnableEvents = True

pour rendre ces procédures à nouveau opérationnelles. Tu peux vérifier la valeur de Application.EnableEvents avec ce test :

Code :

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

1
2
3
Sub Test()
    MsgBox Application.EnableEvents
End Sub

et la remettre à True si nécessaire, en lançant :

Code :

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

1
2
3
Sub RAZ()
    Application.EnableEvents = True
End Sub

Quant à simuler le Auto_Close, tu en copies le contenu dans une Sub quelconque qua tu lances manuellement.

[polo1]

merci pour tous ces conseils...

en fait en passant par un workbook_beforeclose ca marche (c'est juste que je le mettais dans un module et pas dans this worksheet )

mais je crois qu l'application Application.EnableEvents etait celle que je cherchais...

Probleme résolu