Discussion :

[Kremy]

Bonjour à tous
N'ayant pas trouvé de solution à mon problème sur le forum et ailleurs, je me résous à le poster.

J'utilise une macro complexe depuis des années sous Excel 2013. Après la migration toute récente de mon entreprise sous Office 365, je subis un plantage à un endroit apparemment anodin... En effet la macro s’exécute correctement mais finit pas planter sur le ".Calculation" du code présenté ci-dessous.

Le message d'erreur est : Erreur d'éxécution '1004'. La méthode 'Calculation' de l'objet '_Application' a échoué
Le survol de ".Application" indique bien "Microsoft Excel"
Le survol de ".Calculation" indique <Incompatibilité de type>.

Le fichier est toujours ouvert durant l'exécution, ainsi qu'un userform.
J'ai tenté de modifié les paramètres de sécurité d'Excel en autorisant toutes les macros, et en cochant " Accès approuvé au modèle d'objet du projet VBA". Sans plus de succès.

C'est comme si l'application Excel avait changé de nom pour cette propriété...

Code :

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

1
2
3
4
5
6
7
8
Sub stop_calcul_auto()
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .Visible = False
    End With
End Sub

J'ai essayé de me passer du With mais Application.Calculation plante également. Le survol renvoie "=-4135"

Si quelqu'un a une piste pour me débloquer, je lui serait très reconnaissant.

Merci

[Zekraoui_Jakani]

Ceci fonctionne bien sous Office 365:

Code :

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

1
2
Application.Calculation = xlAutomatic
Application.Calculation = xlManual

au lieu de "Application.Calculation = xlCalculationManual"

[Kremy]

Ceci fonctionne bien sous Office 365:

Code :

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

1
2
Application.Calculation = xlAutomatic
Application.Calculation = xlManual

Merci pour ta proposition. Cela a fonctionné au premier essai puis pas aux essais suivants. Cela m'est arrivé avec le code d'origine également. Ce qui me laisse penser qu'il y a un problème autre que dans ce code, plutôt simple d'ailleurs : paramètres, autorisations, conflits...?

[Kremy]

A force de recherche, je crois avoir trouvé la solution à mon problème.

Il semblerait que la propriété Calculation ne puisse fonctionner que si une feuille est sélectionnée. J'ai donc ajouté "Sheets(1).Activate" au début de la procédure et depuis je n'ai pas eu de problème.

Si ça peut servir à d'autres

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 stop_calcul_auto()
Sheets(1).Activate
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .Visible = False
    End With
End Sub
 
Sub calcul_auto()
Sheets(1).Activate
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .Calculation = xlAutomatic
        .Visible = True
    End With
End Sub