Discussion :

[Amoust]

Bonjour à tous.

J'ai créé une application sous Excel qui fonctionne. Par contre, le fichier (qui pèse 1534Ko) met presque 3 minutes à se charger et il me faut autant de temps quand je quitte Excel. Pourquoi ?

Code VBA pour l'ouverture :

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
16
17
18
19
Sub Auto_Open()
With Application
    .ScreenUpdating = False
    .DisplayFormulaBar = False
    .DisplayStatusBar = False
    .CommandBars("Formatting").Visible = False
    .CommandBars("Standard").Visible = False
    .CommandBars("PivotTable").Visible = False
    .CommandBars("WordArt").Visible = False
    .CommandBars("Reviewing").Visible = False
    .CommandBars("Picture").Visible = False
    .CommandBars("Chart").Visible = False
    .CommandBars("Web").Visible = False
    .CommandBars("Forms").Visible = False
    .CommandBars("External Data").Visible = False
    .CommandBars("Drawing").Visible = False
    .CommandBars("Visual Basic").Visible = False
    End With
End Sub

Code VBA pour la fermeture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("SUIVI").Select
Range("A1").Select
 
ThisWorkbook.Saved = True
 
With Application
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
    .CommandBars("Formatting").Visible = True
    .CommandBars("Standard").Visible = True
    .ScreenUpdating = True
    End With
End Sub

Rien d'extraordinaire il me semble. Pourtant, lorsque je mets un point d'arrêt pour la fermeture, je constate que la sauvegarde se fait instantanément et que plus rien ne se passe, pendant presque 3 minutes lorsque l'appli quitte la ligne End Sub. J'ai parfois l'impression qu'il exécute une sous-routine ou quelque chose comme ça.

Quelqu'un a une idée ?

[SfJ5Rpw8]

l'instruction

Code :

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

ThisWorkbook.Saved = True

ne permet pas d'effectuer la sauvegarde du classeur, mais seulement de considérer que le classeur n'as pas été modifié, et que l'on peu sortir sans sauver...

pour sauver c'est plutot :

Code :

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

ThisWorkbook.Save

[Amoust]

Exact, merci de me le faire remarquer. Mais j'ai toujours cette longueur d'ouverture et de fermeture.

[zazaraignée]

Salut

Tu utilises quelle version de Office ? Je pose la question parce que la routine Auto_Open est obsolète. C'est une macro Excel?

[Amoust]

Je travaille avec Excel 2000. C'est une procédure que j'utilise depuis longtemps et il est fort possible qu'elle soit devenue obsolète. Quelle est celle que tu utilises ?

[Vesta]

Regarde dans la page de code Thisworkbook

Evenement workbook_Open