Discussion :

[ciambe]

Bonjour,
Existe-t-il un code pour ouvrir un fichier en mode calcul sur ordre et le fermer en rebasculant en mode calcul automatique?
Merci d'avance.

[Invité]

A l'ouverture du classeur:

Code :

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

1
2
3
Private Sub Workbook_Open()
     Application.Calculation = xlCalculationManual
End Sub

A la fermeture du classeur:

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.Calculation = xlCalculationAutomatic
End Sub

[ciambe]

Merci pour ta réponse mais ou on place ces codes?
Dans un module ou ThisWorbook ?

[Philippe Tulliez]

Bonjour,

A l'ouverture du classeur:

Code :

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

1
2
3
Private Sub Workbook_Open()
     Application.Calculation = xlCalculationManual
End Sub

A la fermeture du classeur:

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.Calculation = xlCalculationAutomatic
End Sub

Pour compléter la réponse de Vincent, j'ajouterais qu'il n'est pas superflu d'ajouter une variable qui prend la valeur de la propriété Calculation et qui la restitue à la fin du programme.
En effet il ne serait pas agréable pour un utilisateur qui a décidé d'être en mode manuel de se voir imposer le calcul automatique.

Code :

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

1
2
3
4
5
6
7
 
 ' Début de programme
 Dim StatusCalculation As Integer
 StatusCalculation = Application.Calculation
 Application.Calculation = xlCalculationManual
 ' Fin de programme
 Application.Calculation = StatusCalculation

[Invité]

Dans le module objet "ThisWorbook"