Code vba pour ouverture en mode calcul sur ordre

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.

A l'ouverture du classeur:

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Calculation = xlCalculationManual End Sub

---

A la fermeture du classeur:

Code:

---

1 2 3

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

---

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

Bonjour,

Citation:

---

Envoyé par vcottineau

A l'ouverture du classeur:

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Calculation = xlCalculationManual End Sub

---

A la fermeture du classeur:

Code:

---

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:

---

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

---

Dans le module objet "ThisWorbook"