Bonjour,
je reviens car j'ai encore ce pb de temps d'enregistrement.
Mon fichier fait environ 1Mo, y'a une dizaine de macro, et un userform à
l'ouverture, pour sélectionner les feuilles voulues (2005 ou 2006 ou Admin).
A la fermeture d'Excel, j'ai cette macro, et le fichier met environ 40
secondes à se fermer. Est ce normal? celà vient de mon "Private Sub
Workbook_BeforeClose(Cancel As Boolean)"? Ou celà peut-il venir de mon code
ailleurs? Y-a-t-il une importance dans les modules?
Je vous remercie.
YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
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
MichDenis
Bonjour YANN24,
ThisWorkbook.IsAddin = True
Tu veux bien m'expliquer pourquoi tu utilises cette ligne de code dans une procédure de fermeture ?
Salutations!
"YANN24" a écrit dans le message de news:
Bonjour, je reviens car j'ai encore ce pb de temps d'enregistrement. Mon fichier fait environ 1Mo, y'a une dizaine de macro, et un userform à l'ouverture, pour sélectionner les feuilles voulues (2005 ou 2006 ou Admin). A la fermeture d'Excel, j'ai cette macro, et le fichier met environ 40 secondes à se fermer. Est ce normal? celà vient de mon "Private Sub Workbook_BeforeClose(Cancel As Boolean)"? Ou celà peut-il venir de mon code ailleurs? Y-a-t-il une importance dans les modules? Je vous remercie. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
Tu veux bien m'expliquer pourquoi tu utilises cette ligne de code dans une procédure de fermeture ?
Salutations!
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
C38B7419-DBA5-48B3-91A6-8AD2DE42011D@microsoft.com...
Bonjour,
je reviens car j'ai encore ce pb de temps d'enregistrement.
Mon fichier fait environ 1Mo, y'a une dizaine de macro, et un userform à
l'ouverture, pour sélectionner les feuilles voulues (2005 ou 2006 ou Admin).
A la fermeture d'Excel, j'ai cette macro, et le fichier met environ 40
secondes à se fermer. Est ce normal? celà vient de mon "Private Sub
Workbook_BeforeClose(Cancel As Boolean)"? Ou celà peut-il venir de mon code
ailleurs? Y-a-t-il une importance dans les modules?
Je vous remercie.
YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next
Sheets(1).Visible = True
For I = 2 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
Tu veux bien m'expliquer pourquoi tu utilises cette ligne de code dans une procédure de fermeture ?
Salutations!
"YANN24" a écrit dans le message de news:
Bonjour, je reviens car j'ai encore ce pb de temps d'enregistrement. Mon fichier fait environ 1Mo, y'a une dizaine de macro, et un userform à l'ouverture, pour sélectionner les feuilles voulues (2005 ou 2006 ou Admin). A la fermeture d'Excel, j'ai cette macro, et le fichier met environ 40 secondes à se fermer. Est ce normal? celà vient de mon "Private Sub Workbook_BeforeClose(Cancel As Boolean)"? Ou celà peut-il venir de mon code ailleurs? Y-a-t-il une importance dans les modules? Je vous remercie. YANN
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
