Worksheet_Change ne fonctionne pas

Version imprimable

11/02/2018, 09h45
JFr.Ruelle

Worksheet_Change ne fonctionne pas

Bonjour
je vous remercie pour l'aide (possible) que vous me donnerez . :-)

Je suis nouveau sur ce forum,

J'ai écrit une procédure Worksheet_Change.

Cette procédure fonctionne lorsque j'ouvre le fichier par le menu Fichier/Ouvrir/

Mais lorsque le fichier est ouvert par une autre macro avec Workbooks.Open Filename:=nom du fichier
Le fichier s'ouvre, mais les macros Worksheet_Change Worksheet_Activate ne fonctionne plus

Merci d'avance
11/02/2018, 12h44
Philippe Tulliez

Bonjour,

Citation:

Le fichier s'ouvre, mais les macros Worksheet_Change Worksheet_Activate ne fonctionne plus

La procédure événementielle Worksheet_Activate intercepte l'événement lorsque l'on active la feuille mais si au moment de l'ouverture du classeur celle-ci est active, l'événement n'est pas déclenché et pour cause. A vérifier.
11/02/2018, 15h14
JFr.Ruelle

Bonjour,

La procédure événementielle Worksheet_Activate intercepte l'événement lorsque l'on active la feuille mais si au moment de l'ouverture du classeur celle-ci est active, l'événement n'est pas déclenché et pour cause. A vérifier.[/QUOTE]

Effectivement, mais lorsque l'on change une cellule, la procédure Worksheet_change ne marche pas si j'ouvre le fichier avec une macro.

Si je l'ouvre avec Fichier/Ouvrir elles fonctionnent

C'est comme si le fait de l'ouvrir avec une macro changeait un paramètre, empêchait les activations de toutes les procédures automatiques.
11/02/2018, 16h22
Philippe Tulliez

Bonjour,

Citation:

le fait de l'ouvrir avec une macro changeait un paramètre, empêchait les activations de toutes les procédures automatiques

Cela semble curieux.
Il faudrait déjà voir la ligne de code qui ouvre ce fichier pour avoir une idée
11/02/2018, 16h37
Theze
Bonjour,

Mettre cette procédure dans un module standard, de feuille ou du classeur peut importe puis exécuter :
Code:

1 2 3 4 5 6 Sub Activer() Application.EnableEvents = True End Sub
Si après exécution les procédures événementielles fonctionnent à nouveau, voir si dans le code qui demande l'ouverture il n'y a pas la ligne de code suivante :
Code:

1 2 Application.EnableEvents = False

Bonjour

Effectivement quand je mets la fonction "Application.EnableEvents = True", cela fonctionne

Je me suis dit que j'allais mettre cette instruction après l'ouverture du fichier. ( voir code plus bas)
Mais cela ne marchait pas .
J'ai alors mis une instruction "Msgbox" pour contrôler le passage par cette instruction
Et là surprise, je constate qu’après l'ouverture de mon fichier, la macro ne continuait pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Acces_Au_Fichier_Rapport()
'------------------------------
Dim Classeur
Dim Trouvé
 
Trouvé = False
'Regarde si le fichier est déja été ouvert
For Each Classeur In Workbooks
    If Classeur.Name = Nom_Fichier_Rapport Then
        Trouvé = True
        Classeur.Activate
        Application.EnableEvents = True
        MsgBox ("de XLAM  Trouvé : Application.EnableEvents = True")
        Exit Sub
    End If
Next Classeur
 
'Compose le chemin exact
Chemin_Complet_Rapport = Determine_les_Repertoires_DropBox_TSc + Chemin_Direct_Rapport + Nom_Fichier_Rapport
 
On Error Resume Next
Err.Clear
 
'Ouvre le fichier
Workbooks.Open Filename:=Chemin_Complet_Rapport
 
'La procedure ne continue plus . Pourquoi ?
Application.EnableEvents = True
MsgBox ("de XLAM  Pas trouvé : Application.EnableEvents = True")
If Err.Number <> 0 Then
    Texte = "Fichier non trouvé" + Chr(13) + Chr(13) + "   " + Chemin_Complet_Rapport
End If
On Error GoTo 0
 
Set Fichier_Rapport = ActiveWorkbook

12/02/2018, 07h07
JFr.Ruelle
Rebonjour :-)

Lorsque j’écris la macro
Code:

1 2 3 4 Sub Validate() '---------------- Application.EnableEvents = True End Sub
Si je la lance d'un fichier XLAM , cela ne marche pas

Si je la lance du classeur concerné, cela fonctionne
mais comment la lancer du classeur concerné, puisque les événements ne fonctionnent pas
Je ne peux pas non plus définir de raccourcis clavier, puisque je ne sais pas les définir.

Je vous rappelle que les événements ne sont bloqués que lorsque j'ouvre le fichier avec un procédure Sub
Si je l'ouvre par Fichier/Ouvrir, les événements fonctionnent :-)

Merci à vous pour votre aide
12/02/2018, 15h28
parmi
Bonjour,

Commence par enlever ceci de ton code.
Ça pourrait te permettre de trouver une erreur...
Code:

1 2 On Error Resume Next Err.Clear
13/02/2018, 01h58
unparia

Bonjour
1) Qu'affiche en mode debug la variable Chemin_Complet_Rapport ?
(en ayant bien évidemment commenté la gestion d'erreurs, comme te l'a demandé à juste titre Parmi, que je salue).

2) ce qui me surprend, c'est ce que tu dis ici :

Citation:

Workbooks.Open Filename:=Chemin_Complet_Rapport

'La procedure ne continue plus . Pourquoi ?

Car même avec la gestion d'erreur, la msgbox devrait s'afficher ...
13/02/2018, 06h50
JFr.Ruelle

Bonjour a vous, merci pour votre aide.

J'ai enlevé le "On error resume Next" et "err.clear"

J'ai mis la ligne de debug.print sur la variable Chemin_Complet_Rapport
Le résultat de Chemin_Complet_Rapport "G:\JFr\Dropbox\1370_TS Construct\TSc_Excel.JFr\TSC Rapport de Chantier.xlsm"

le fichier s'ouvre normalement mais la procédure ne continue pas, et il n'y a pas d'erreur affichée

Je n'arrive pas à comprendre.
J'ai essayé sur un autre PC pour voir si le résultat était le même : et c'est le cas,
cela ne semble pas être un paramétrage de Excel.

J'ai essayé avec un nouveau fichier tout simple et propre d'autres procedures
Mais le résultat est le même ;
Si j'ouvre par une macro : pas d'event
Si j'ouvre par Fichier/ouvrir : Event Ok

J'ai essayé d'ouvrir le fichier par un lien hypertext : et la les Event fonctionnent

Cela semble être uniquement lors d'une ouverture par une procédure avec l'instruction Workbooks.Open Filename:=
13/02/2018, 09h19
Theze

Bonjour,

Je suppose que tu appelles la procédure "Acces_Au_Fichier_Rapport()" depuis l'événement "Open()" du classeur mais dans cette procédure "Open()" y a t'il d'autres lignes de code qui pourrait geler les événements ?
13/02/2018, 11h51
Philippe Tulliez

Bonjour,
As-tu essayé le débogage avec le "pas à pas" ?
13/02/2018, 23h32
eriiic

Bonjour,

fichier xlam ?
Les fichiers de macros complémentaires ont leur feuilles inaccessibles, ce n'est pas leur utilisation (recueil de macros à la base). Ca ne m'étonnerait pas outre mesure que les événementielles associées soit inactives aussi, à quoi pourraient-elles servir sans feuille ?
Tu pourrais tricher en mettant temporairement IsAddin à False mais tu dévoies le but de ces fichiers, tu risques d'avoir d'autres surprises.
Il vaudrait mieux changer ton fusil d'épaule et rester dans les clous.
eric
14/02/2018, 07h42
JFr.Ruelle

Bonjour à Tous

@Theze
la procédure "Accès_Au_Fichier_Rapport()" est appelée depuis une procédure qui est dans le fichier "4.Memo_Soft_SEAC V3.xlam"
elle ouvre le fichier "TSC Rapport de Chantier.xlsm"

@Eriic
Je n'utilise pas les feuilles des fichiers xlam.
Le fichier "4.Memo_Soft_SEAC V3.xlam" contient juste mes procédures qui manipule mes fichiers : exemple "TSC Rapport de Chantier.xlsm"
Les événements qui ne fonctionnent pas sont ceux des fichiers ouverts, et qui sont écrits dans les fichiers même

@Philippe
ton idée de "pas à pas" , je ne l'avais jamais utilisé :-)
Je l'ai fait , et je ne trouve rien,mais....
en le faisant, j'ai eu l'idée de déplacer la procédure d'ouverture du fichier pour voir après quel "pas", les événements étaient inactif

J'ai mis dans ma procédure événement OPEN de "4.Memo_Soft_SEAC V3.xlam" l'ouverture du fichier "TSC Rapport de Chantier.xlsm"
Les événements de ma feuille "TSC Rapport de Chantier.xlsm" fonctionnent

Comme je ne veux pas toujours l'ouverture du fichier, j'ai déplacé l'ouverture de ce fichier dans la procédure "Accès_Au_Fichier_Rapport()" qui est une demande d'ouverture

J'ai mis l'instruction Workbooks.Open Filename:="G:\JFr\Dropbox\1370_TS Construct\TSc_Excel.JFr\TSC Rapport de Chantier.xlsm"
directement en 1er ligne de la procédure "Accès_Au_Fichier_Rapport()"
et là hop cela ne marche plus.

Mais a force de frappe et d'essais, j'ai constaté que si directement après l'ouverture du fichier, je tapais Ctrl Z, je récupérais les événements .
Pour moi incompréhensible

J'ai remis l'ouverture de mon fichier à la bonne place dans la procedure "Accès_Au_Fichier_Rapport()"
( je contrôle d'abord si le fichier est déjà ouvert)
Et c'est pareil : Pas d’événement sauf si je fais Ctrl Z

?? :-)
16/02/2018, 05h36
JFr.Ruelle

Bonjour

Personne n'a une idée de l'origine du problème ?

Comment puis-je savoir ce que fait la procédure Ctrl Z ?

Merci
16/02/2018, 08h12
Philippe Tulliez

Bonjour,
Tu écris que tu ouvres un fichier xlsx ou xlsm depuis un fichier xlam Tu aurais dû commencer par là. Cela aurait évité cette multitude de messages.
Ce fichier xlam est-il référencé comme macro complémentaire ?
Comment lances-tu la ou les procédures présentes dans ce fichier xlam et enfin confirmes-tu que que c'est bien l'activation de la feuille présente dans le fichier xlsx ouvert par le fichier xlam que tu veux intercepter ?
16/02/2018, 19h08
eriiic

Bonjour,

pour compléter la série de question, es-tu sûr à 100% que ton classeur avec le Worksheet_change est bien actif après l'ouverture de l'autre fichier ?
Et quelle version d'excel ?
eric
17/02/2018, 07h55
unparia

L'évènement Worksheet_Change concerne uniquement la feuille dans le module de laquelle il est utilisé.
Il ne saurait constater une modification sur une autre feuille à partir d'un code qui n'est pas dans le module de code de la feuille subissant une modification.
Le titre donné à cette discussion semble dénoncer le fait que l'évènement worksheet_change d'une feuille "Feuille" n'est pas constaté.
Or il ne peut l'être que si la procédure évènementielle worksheet_change est au sein du module de code de la feuille "Feuille".

S'intéresser à l'utilisation de l'évènement Workbook_SheetChange qui, lui, concerne toutes les feuilles de la collection Workbooks.
17/02/2018, 09h26
Philippe Tulliez

Bonjour Unparia,

Citation:

Il ne saurait constater une modification sur une autre feuille à partir d'un code qui n'est pas dans le module de code de la feuille subissant une modification

Il est parfaitement possible d'intercepter un événement qui se produit sur un classeur actif depuis un classeur xlam et heureusement sinon à quoi serviraient les macros complémentaires.
Cependant, j'attends une réponse aux questions posées à l'initiateur de ce billet avant de répondre.

Citation:

Le titre donné à cette discussion semble dénoncer le fait que l'évènement worksheet_change d'une feuille "Feuille" n'est pas constaté.

En effet les éléments produits au début de la discussion ainsi que le titre de celle-ci nous ont embrouillés.