Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/11/2011, 10h19   #1
Invité régulier
 
Inscription : avril 2008
Messages : 17
Détails du profil
Informations forums :
Inscription : avril 2008
Messages : 17
Points : 7
Points : 7
Par défaut Evènements Application EXCEL

Bonjour,

J’ai un fichier dans lequel il y a des références circulaires (RC) que je veux conserver.
Pour éviter l’avertissement à l’ouverture, j’ai coché Options/Calcul/Itération.
Cela fonctionne.
Tout va bien tant que je n’ouvre pas un autre fichier Excel sans RC (par défaut Options/Calcul/Itération est décoché)
  1. Si j’ouvre en premier le fichier sans RC, j’obtiens ensuite un avertissement RC à l’ouverture du fichier avec RC.
  2. Si j’ouvre en premier le fichier avec RC, pas de pbm, Options/Calcul/Itération est bien coché.
    Puis j’ouvre le second fichier sans RC ; je constate que Options/Calcul/Itération est décoché.
a. Dans ce cas, si je ferme les deux fichiers sans les sauvegarder, le point 2. reste vrai.
b. Si je sauve le fichier avec RC, sans intervenir sur Options/Calcul/Itération, il est évident que j’obtiendrai l’avertissement RC à la prochaine réouverture.
Cela peut être réglé automatiquement avec :
Code :
1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Iteration = True
Application.MaxIterations = 100
Application.MaxChange = 0.001
End Sub
Après ce long préambule, les questions sont:
  1. Comment forcer Options/Calcul/Itération à oui à l’ouverture d’un fichier avec RC alors que l’application est déjà ouverte avec un fichier où Options/Calcul/Itération est par défaut à non.
  2. Comment empêcher Options/Calcul/Itération de basculer à non à l’ouverture d’un fichier sans RC alors que l’application est déjà ouverte avec un fichier où Options/Calcul/Itération est à oui.

A signaler que la procédure suivante ne marche pas :
Code :
1
2
3
4
5
Private Sub Workbook_Open(Cancel As Boolean)
Application.Iteration = True
Application.MaxIterations = 100
Application.MaxChange = 0.001
End Sub

Je subodore qu’il faut intervenir au niveau Evènements Application. Mais j’avoue ne rien comprendre à l’aide dans ce domaine (Using Events with the Application Object).

Merci de votre aide
Hmiachon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/11/2011, 10h29   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 911
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 911
Points : 7 213
Points : 7 213
Bonjour,

Si tu veux ouvrir 2 fichiers Excel avec des paramètres d'application différentes, tu n'as, à mon sens, pas d'autre choix que d'ouvrir 2 instances d'application.
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est actuellement connecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h41.


 
 
 
 
Partenaires

Hébergement Web