Discussion :

[Truff_Truffe]

Bonjour à tous, je suis encore novice sur excel et je cherche à créer une macro permettant de tester si le calcul automatique est activé à l'ouverture d'un fichier excel.

J'ai tout d'abord essayer le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub auto_open()
 
    If Application.Calculation <> xlCalculationAutomatic Then
        MsgBox "Veuillez activer le calcul automatique avant l'utilisation du fichier", vbExclamation, "Avertissement"
    Else
        MsgBox "Le calcul automatique est déjà activé"
    End If
 
End Sub

de même le code suivant fonctionne aussi lorsque je le place dans la rubrique ThisWorkbook du fichier ouvert

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 
    If Application.Calculation <> xlCalculationAutomatic Then
        MsgBox "Veuillez activer le calcul automatique avant l'utilisation du fichier", vbExclamation, "Avertissement"
    Else
        MsgBox "Le calcul automatique est déjà activé"
    End If
 
End Sub

Ce code fonctionne parfaitement lorsque je le met dans le module du fichier déjà ouvert et que je le ré-ouvre, je veux désormais qu'il s’exécute pour n'importe quelle fichier excel que j'ouvre.

J'ai donc chercher sur internet comment faire. J'ai alors trouver qu'il fallait ouvrir une classeur vierge, écrire la macro dans ThisWorkbook et appeler la procédure "Private sub Workbook_Open()" et ensuite enregistrer le classeur comme étant un complément d'excel (.xlam). Puis à l'ouverture d'u fichier, aller dans l'onglet développeur, sur complément excel et activer la macro que je viens de créer. le soucis est que j'ai le message d'erreur suivant, sur la ligne portant la condition if :


J'ai continué mes recherches et je suis tombé sur une autre façon de faire, sur ce site : https://support.office.com/fr-fr/art...0-6e4c3f5ee566
J'ai alors créé mon fichier PERSONAL.XLSB que j'ai enregistrer dans XLSTART et j'y ai inséré ma macro dedant. j'ai exactement le même message d'erreur.

J'ai alors tenter d'utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 
    If ActiveWorkbook.Application.Calculation <> xlCalculationAutomatic Then
        MsgBox "Veuillez activer le calcul automatique avant l'utilisation du fichier", vbExclamation, "Avertissement"
    Else
        MsgBox "Le calcul automatique est déjà activé"
    End If
 
End Sub

cette fois ci j'ai le message d'erreur suivant, il porte lui aussi sur la condition if à la ligne 3 :


j'ai alors réessayé d'utiliser la procédure auto_open() mais le même message d'erreur apparaît.
J'ai essayer d'enregistrer mon fichier .xlam dans XLSTART mais rien n'y fais j'ai toujours un message d'erreur, il apparaît aussi lorsque je lance excel sans ouvrir de fichier et la je comprend vraiment pas pourquoi. Pourtant les codes marche parfaitement lorsqu'ils sont intégré au fichier en lui même mais ne fonctionne pas du tout lorsqu'ils sont en complément excel ou dans le fichier PERSONAL.XLSB.

Ne voulant pas copier coller la macro dans tous mes fichiers excel que j'utilise et que je vais utiliser, je voulais savoir si d'une part c'était possible de tester le calcul automatique à l'ouverture d'un fichier excel et d'autre part comment résoudre mon problème.

Si quelqu'un pouvais me venir en aide ce serait top !!
Merci a vous d'avoir pris le temps de lire ce pavé

[Truff_Truffe]

J'ai maintenant cette erreur sur le signe = de la condiction if
lorsque j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
9
Sub auto_open()
 
    If Excel.XlCalculation = xlCalculationAutomatic Then
        MsgBox "Le calcul automatique est déjà activé"
    Else
        MsgBox "Veuillez activer le calcul automatique avant l'utilisation du fichier", vbExclamation, "Avertissement"
    End If
 
End Sub

j'utilise cette macro dans le module de PERSONAL.XLSB

je sais plus quoi faire

[Truff_Truffe]

J'ai essayer de changer le mode de calcul directement à l'ouverture d'un fichier avec ce code

Code :

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

1
2
3
4
5
Sub auto_open()
    Dim statut_calcul As Integer
    statut_clacul = Excel.XlCalculation.xlCalculationAutomatic
    Application.Calculation = xlCalculationAutomatic
    End Sub

mais j'ai ce message d'erreur

Je crois que j'ai vraiment besoin de vous

[Twarn]

Un peu tard mais ça pourrait intéresser quelqu'un d'autre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim checkCalculclasseur as string
 
checkCalculclasseur = Application.Calculation
 
'Résultat checkCalculclasseur :
'xlAutomatic = "-4105"
'xlCalculationsemiautomatic = "2"
'xlCalculationManual = "-4135"
 
If checkCalculclasseur = "-4135" then
Feuil1.Range("B6:F25").Calculate
Endif

si ça peut faire gagner 10min de recherche

[Fab_de_chez_PERFORM]

Bonjour
pour ma part, je vais faire 1000 fois plus simple : placer le bouton dans la barre d'outils accès rapide
cela met un case à cocher dans la barre et en un coup d'œil je sais si c'est en calcul auto ou pas

Personnaliser barre d'outils accès rapide / Autres commandes / Onglet formule
et c'est le 4e de la liste (coche avec écrit automatique à côté)

Certes, cela ne met pas de message à l'ouverture ...
et certes, il faut passer par le menu formule pour aller le changer si nécessaire...
mais bon...

Fabien