Pb de lenteur de fermeture et Pb enregistrement auto
1 réponse
YANN24
Bonjour,
j'ai un fichier qui fait 1Mo, avec une dizaine de macro, un auto_open, un
userform pour sélectionner les feuilles à afficher, et un enregistrement auto
à la cloture.
Seulement, lorque je quitte mon fichier, il met un temps infini à quitter
Excel, et en plus, il me redemande si je veux enregistrer, alors que j'ai
déjà quitter une fois le fichier. Ci joint mon Workbook, s'il faut plus de
détails, pas de Pb.
Merci. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils 'permet de réactiver mes barres d'outils cachées avec
l'auto_open
ActiveWorkbook.Save
On Error Resume Next
Sheets(1).Visible = True
For I = 2 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
ben , forcément qu'il te le redemande puisque entre ton save et la fermeture réelle du ficheir tu caches des feuilles, tu le rends Addin.
A+
Bonjour,
j'ai un fichier qui fait 1Mo, avec une dizaine de macro, un auto_open, un userform pour sélectionner les feuilles à afficher, et un enregistrement auto à la cloture. Seulement, lorque je quitte mon fichier, il met un temps infini à quitter Excel, et en plus, il me redemande si je veux enregistrer, alors que j'ai déjà quitter une fois le fichier. Ci joint mon Workbook, s'il faut plus de détails, pas de Pb. Merci. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean) AfficheBOutils 'permet de réactiver mes barres d'outils cachées avec l'auto_open ActiveWorkbook.Save On Error Resume Next Sheets(1).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
End Sub
Private Sub Workbook_Open()
UserForm1.Show Auto_open
End Sub
ben , forcément qu'il te le redemande puisque entre ton save et la fermeture
réelle du ficheir tu caches des feuilles, tu le rends Addin.
A+
Bonjour,
j'ai un fichier qui fait 1Mo, avec une dizaine de macro, un auto_open, un
userform pour sélectionner les feuilles à afficher, et un enregistrement auto
à la cloture.
Seulement, lorque je quitte mon fichier, il met un temps infini à quitter
Excel, et en plus, il me redemande si je veux enregistrer, alors que j'ai
déjà quitter une fois le fichier. Ci joint mon Workbook, s'il faut plus de
détails, pas de Pb.
Merci. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils 'permet de réactiver mes barres d'outils cachées avec
l'auto_open
ActiveWorkbook.Save
On Error Resume Next
Sheets(1).Visible = True
For I = 2 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
ben , forcément qu'il te le redemande puisque entre ton save et la fermeture réelle du ficheir tu caches des feuilles, tu le rends Addin.
A+
Bonjour,
j'ai un fichier qui fait 1Mo, avec une dizaine de macro, un auto_open, un userform pour sélectionner les feuilles à afficher, et un enregistrement auto à la cloture. Seulement, lorque je quitte mon fichier, il met un temps infini à quitter Excel, et en plus, il me redemande si je veux enregistrer, alors que j'ai déjà quitter une fois le fichier. Ci joint mon Workbook, s'il faut plus de détails, pas de Pb. Merci. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean) AfficheBOutils 'permet de réactiver mes barres d'outils cachées avec l'auto_open ActiveWorkbook.Save On Error Resume Next Sheets(1).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
