Discussion :

[JFr.Ruelle]

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

[Philippe Tulliez]

Bonjour,

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.

[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.

[Philippe Tulliez]

Bonjour,

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

[Theze]

Bonjour,

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

Code :

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

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 :

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

1
2
 
Application.EnableEvents = False

[JFr.Ruelle]

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 :

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
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