Discussion :

[leloup84]

Bonjour,

Je travail sur des fichiers Excel, avec souvent beaucoup de formule.
D'habitude je suis en calcul manuel et je n'ai aucun souci.
Comme mes fichiers sont utilisés et modifié par d'autres et qu'ils oublient parfois de refaire le calcul manuellement une fois qu'ils modifient le fichier et obtiennent donc un résultat erronés.
Il m'a été demandé de travailler en calcul automatique.
Le souci c'est que quand je suis en calcul automatique, il arrive parfois, ce n'est pas systématique, qu'Excel me mette qu'il a cessé de fonctionner et j perd tout.
Détail : j'ai souvent plusieurs fichiers d'ouvert en simultané. Contrôleur de gestion oblige.

De quoi cela peut-il venir ? Je suis sous Windows 7 avec Excel 2013

[QuestVba]

bonjour,

Tu pourrais mettre un code dans ThisWorkbook comme cela finit les tracas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open() 
   With Application 
      .Calculation = xlAutomatic  
      .MaxChange = 0.001 
   End With 
ActiveWorkbook.PrecisionAsDisplayed = False 
On Error GoTo Sortie 
Exit Sub 
Sortie: 
End Sub

[Menhir]

J'avais pensé à la même solution que Quest mais en le mettant dans un BeforSave.
Mais, en y réfléchissant, ça revient au même.

Avec cette solution, tu peux passer (à la main) en calcul manuel, comme tu le souhaites. Le fichier repassera de lui même en calcul automatique chaque fois qu'il sera ouvert par quiconque.

[leloup84]

Ce code si je comprend permet à chaque ouverture de le repasser automatiquement en "calcul automatique".

Ce code est à inscrire dans chaque fichier Excel ?
Sinon où le mettre ?

[Menhir]

Ce code est à inscrire dans chaque fichier Excel ?

Oui, dans la partie Workbook du projet représentant le fichier dans l'éditeur VBA.

A moins que tu le mettes dans un Private Sub App_WorkbookBeforeSave pour que ça concerne l'enregistrement de TOUS les fichiers qui passeront sur ton poste. Autrement dit, chaque fois que tu ferais une sauvegarde, le fichier repasserait en mode de calcul automatique.

[leloup84]

Merci beaucoup pour votre aide.

[leloup84]

Je reviens juste sur le sujet,
car je ne vois pas comment mettre sur la machine que çà concerne tous les Excel que j'ouvre.
A quel endroit dois-je enregistrer ce code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub App_WorkbookBeforeSave 
   With Application 
      .Calculation = xlAutomatic  
      .MaxChange = 0.001 
   End With 
ActiveWorkbook.PrecisionAsDisplayed = False 
On Error GoTo Sortie 
Exit Sub 
Sortie:

[Menhir]

Dans un fichier qui s'ouvre automatiquement quand on ouvre Excel.
Je crois que par défaut ce fichier est à placer dans le dossier XLStart.
On peut choisir un autre dossier dans Options Excel > Options Avancées > Au démarrage ouvrir tous les fichiers du dossier

Il est conseillé d'y mettre un fichier XLAM. C'est un format qui ne contient que des macros, sans feuille de calcul visible. Ca permet d'être complètement transparent pour l'utilisateur.
C'est comme ça que je me crée des icones avec fonctions perso placées dans ma barre d'outils.

[leloup84]

Bonjour,

Je viens d'ouvrir un Excel. Je saisie le code suivant dans une macro :

Code :

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

1
2
3
4
5
6
7
8
Private Sub App_WorkbookBeforeSave()
       With Application
      .Calculation = xlAutomatic
      .MaxChange = 0.001
   End With
ActiveWorkbook.PrecisionAsDisplayed = False
On Error GoTo Sortie
End Sub

Je tente alors de l'enregistrer dans le dossier XLSTART pour que cette macro s'ouvre en tâche de fond pour chaque fichier. Mais on me met au moment de l'enregsitrement :
"Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro :
Projet VB"

Que fais-je de mal ?

[Menhir]

Tu enregistres ton fichier n'importe où (par exemple sur ton bureau) en XLA.
Tu fermes Excel.
Tu places le fichier dans XLStart.
Tu rouvres Excel.

[clementmarcotte]

Bonjour,

Bonjour,

Je tente alors de l'enregistrer dans le dossier XLSTART pour que cette macro s'ouvre en tâche de fond pour chaque fichier. Mais on me met au moment de l'enregsitrement :
"Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro :
Projet VB"

Que fais-je de mal ?

Tu as essayé d'enregistrer au format .xlsx et le format xlsx n'est pas conçu pour contenir des macros.

Avec Excel 2010, et aussi Excel 2013, je supose, le xla est devenu xlam. Quoi qu'il en soit, utilises le format qui correspond à une macro complémentaire.

[Menhir]

Avec Excel 2010, et aussi Excel 2013, je supose, le xla est devenu xlam.

Oups... Les vieilles habitudes Office 2000...

[leloup84]

Bonjour,
Désolé pour le retard mais je ne teste que maintenant votre solution.
J'ai enregistré ma macro dans le dossier XLSTART comme demandé en .xlam.
J'ouvre alors un Excel que je met en calcul manuel.
Je modifier des cellules, enregistre et ferme le fichier.
Quand je le rouvre il est toujours en calcul manuel. Hors d'après vous la macro donné doit le mettre en calcul automatique à chaque sauvegarde.

Autre point j'ai l'impression que quand j'ouvre mon Excel, la macro n'est pas exécuté en tâche de fond. De mémoire quand on fait l'onglet "Affichage", on a un bouton "Afficher" qui permet d'afficher les macros ouvert en arrière plan. Là mon bouton est grisé ce qui me laisse penser que ma macro nommé "svgxls.xlam" n'est pas ouvert en tâche de fond.

Dans l'attente de votre retour.

Cordialement.

[Philippe Tulliez]

Bonjour,
Puisque ta procédure événementielle est préfixée App_

Private Sub App_WorkbookBeforeSave()

dans ton classeur de macro complémentaire, sauf si tu as oublié de le publier, il manque la ligne en tête du module ThisWorkbook

Code :

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

Public WithEvents App As Excel.Application

et dans la procédure événementielle Workbook_Open

Code :

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

1
2
3
Private Sub Workbook_Open()
 Set App = Excel.Application
End Sub

[leloup84]

Il y a une manipulation que je dois mal car çà ne fonctionne pas.
Voici mes manipulations :
J'ouvre un Excel vide
Je fais enregistrer une macro que je nomme "BeforeSave" que j'arrête dans la foulée.
Je fais "Afficher les macros" puis modifier.
Là à la place je copie le code donnée à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
Public WithEvents App As Excel.Application
Private Sub App_WorkbookBeforeSave()
       With Application
      .Calculation = xlAutomatic
      .MaxChange = 0.001
   End With
ActiveWorkbook.PrecisionAsDisplayed = False
On Error GoTo Sortie
End Sub

Je sors en enregistrant au format .xlam, que je dépose dans le dossier XLSTART.
J'ouvre un fichier où je test la macro mais çà ne fonctionne pas.

Où je fais mal la procédure ?

Cordialement.

[Philippe Tulliez]

Bonjour,
Le code est à placer dans le module ThisWorkbook. Ce sont des procédures événementielle de l'objet Classeur
Quand tu es dans l'éditeur de VBA (VBE), (Raccourci Ctrl+F11), il faut faire un double clic sur ThisWorkbook de l'explorateur de projet
Je te conseille la lecture de Vos premiers pas dans l'éditeur de macros Excel
suivi de la lecture de Les évènements du module objet ThisWorkbook, dans Excel

[leloup84]

Il y a-t-il une plateforme où je peux vous transférer mon fichier en .xlam, je ne comprend pas mon erreur ?

[Philippe Tulliez]

Bonjour,
Tu peux le déposer ici en mode compressé (au format Zip) mais avant de l'envoyer, le code est-il bien dans le module ThisWorkbook et pas dans un module standard ?
Lorsque tu es dans le module objet ThisWorkbook et que tu cliques dans la partie gauche en haut, vois-tu apparaître App dans la liste déroulante comme l'image ci-dessous ?

[leloup84]

Voilà ce que donne mon code

[Philippe Tulliez]

Bonjour,
D'après ton image, il manque la procédure événementielle Workbook_Open, à placer également dans ThisWorkbook.

Code :

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

1
2
3
Private Sub Workbook_Open()
 Set App = Excel.Application
End Sub

(cf ma réponse http://www.developpez.net/forums/d14...o/#post7917476)