[RESOLU] Worksheet_Activate évènement non détecté

[Compte Supprimé 979]

Bonjour à tous,

Je tombe sur un problème étrange 😕

D'une feuille1 de classeur1, j'ouvre un autre classeur2, j'y saisi des valeurs.
Lorsque je referme le classeur 2, je reviens donc sur ma feuille1 de mon classeur1

J'ai mis dans cette feuille un évènement : Worksheet_Activate
et apparemment cet évènement n'est pas lancé !?

Ci-joint les 2 classeurs

Merci de votre aide

 

[Papou-net]

Re : Worksheet_Activate évènement non détecté

Bonjour BrunoM45,

Ca me semble normal : le classeur 1 est réactivé mais la feuille 1 est déjà active donc l'événement n'est pas détecté.

La solution pourrait consister à mettre ton message dans l'événement

Private Sub Workbook_Activate()
  MsgBox "Activation de la feuille"
End Sub

Espérant avoir répondu.

Cordialement.

 

[Pierrot93]

Re : Worksheet_Activate évènement non détecté

Bonjour Bruno🙂,

peut être utiliser l'évènement du module "thisworkbook"

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

Mais tu as dû essayer....
bonne fin d'après midi
@+

Edition : bonjour Papou

 

[ERIC S]

Re : Worksheet_Activate évènement non détecté

Bonsoir

peut-être en regardant dans thisworkbook, avec

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

bonjour Pierrot

 

[ROGER2327]

Re : Worksheet_Activate évènement non détecté

Bonsoir à tous

Même diagnostic.
Essayez en plaçant

Private Sub Worksheet_Activate()
  toto
End Sub

Sub toto()
  MsgBox "Activation de la feuille"
End Sub

dans le module de feuille et

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  If ActiveSheet.Name = "Suivi" Then Feuil1.toto
End Sub

dans le module de classeur.​

ROGER2327
#5099

Dimanche 22 Pédale 138 (Saint Sengle, Déserteur, SS)
26 Ventôse An CCXIX
2011-W11-3T17:22:36Z

 

[job75]

Re : Worksheet_Activate évènement non détecté

Bonjour Bruno, Papou-net, Eric, Pierrot,

Bien d'accord avec Papou-net.

On peut aussi mettre le corps de la macro dans un Module en la faisant commencer par un test pour déterminer la feuille où elle s'applique.

Et appeler cette macro dans la Worksheet_Activate (code de la feuille) et aussi dans la Workbook_Activate de ThisWorkbook.

Edit : salut Roger, j'ai trainé pour rédiger la même solution...

A+

 

[ROGER2327]

Re : Worksheet_Activate évènement non détecté

Re…

Bonjour job75,

Bien d'accord ! En gros, ça doit ressembler à ce qu'on trouve dans le message #5…​

ROGER2327
#5100

Dimanche 22 Pédale 138 (Saint Sengle, Déserteur, SS)
26 Ventôse An CCXIX
2011-W11-3T17:36:49Z

 

[laetitia90]

Re : Worksheet_Activate évènement non détecté

bonjour les amis
peut être "ruser" avec

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

 

[Compte Supprimé 979]

Re : Worksheet_Activate évènement non détecté

Bonsoir à tous,

Wouahouu les réponses pleuvent 😉

Malheureusement, j'ai mis dans this workbook

Private Sub Workbook_Activate()
  MsgBox "Activation du classeur"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  MsgBox "Activation de la feuille"
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  MsgBox "Activation de la fenêtre"
End Sub

Et aucun des messages ne s'affiche ... sniff ..

Si quelqu'un à une autre idée !?

Sinon je vais coder ça de la manière que je ne voulais pas,
à savoir du classeur 2 inscrire la position dans le classeur 1

A+

 

[ROGER2327]

Re : Worksheet_Activate évènement non détecté

Re…

La solution du message #5 a été testé avec succès sur ma machine. Pas mieux en stock.

ROGER2327
#5102

Dimanche 22 Pédale 138 (Saint Sengle, Déserteur, SS)
26 Ventôse An CCXIX
2011-W11-3T18:29:25Z

 

[Compte Supprimé 979]

Re : [RESOLU] Worksheet_Activate évènement non détecté

Re,

Mon cher maitre, Roger2327, j'ai bien testé, mais cela ne fonctionne pas chez moi ni au bureau 😕

En revanche, ce qui fonctionne c'est de manipuler manuellement les fenêtres.
Et là les évènements s'activent ...

J'ai donc supprimer le

ThisWorkbook.Close

du classeur 2
il faut le fermer à la main et ça fonctionne 😀

Ci-joint le fichiers pour l'exemple

En tout cas merci à tous pour vos réponses diverses et variées

A+

 

[ROGER2327]

Re : [RESOLU] Worksheet_Activate évènement non détecté

Re…

Re,

Mon cher maitre, Roger2327, j'ai bien testé, mais cela ne fonctionne pas chez moi ni au bureau 😕

En revanche, ce qui fonctionne c'est de manipuler manuellement les fenêtres.
Et là les évènements s'activent ...

J'ai donc supprimer le

ThisWorkbook.Close

du classeur 2
il faut le fermer à la main et ça fonctionne 😀

Ci-joint le fichiers pour l'exemple

En tout cas merci à tous pour vos réponses diverses et variées Regarde la pièce jointe 179118

A+

Inutile d'ironiser, mon cher maître. Lorsque je lis :

D'une feuille1 de classeur1, j'ouvre un autre classeur2, j'y saisi des valeurs.
Lorsque je referme le classeur 2, je reviens donc sur ma feuille1 de mon classeur1

j'imagine qu'un opérateur ouvre un classeur, puis que cet opérateur saisit des valeurs, qu'enfin il ferme un classeur.
Mis à part les cons comme moi (et il y en a un paquet si j'en crois les autres contributions à cette discussion), tout le monde comprend évidement :
"une procédure associée à la feuille Feuille1 d'un classeur Classeur1 ouvre un classeur Classeur2, y écrit des valeurs, puis le referme".
Mille excuses !
C'est promis, dès que j'ai un moment libre, j'apprends à lire.​

ROGER2327
#5103

Dimanche 22 Pédale 138 (Saint Sengle, Déserteur, SS)
26 Ventôse An CCXIX
2011-W11-3T22:40:07Z

 

[Compte Supprimé 979]

Re : [RESOLU] Worksheet_Activate évènement non détecté

Re, Roger2327 😉

Inutile d'ironiser, mon cher maître

Et bien non, ce n'était pas d'un ton ironique, désolé que tu l'es pris ainsi
J'admire simplement le travail que tu fais sur ce forum ... mais bon ...

j'imagine qu'un opérateur ouvre un classeur, puis que cet opérateur saisit des valeurs, qu'enfin il ferme un classeur.
Mis à part les cons comme moi (et il y en a un paquet si j'en crois les autres contributions à cette discussion), tout le monde comprend évidement :
"une procédure associée à la feuille Feuille1 d'un classeur Classeur1 ouvre un classeur Classeur2, y écrit des valeurs, puis le referme".

Mais à quoi servent les pièces jointes alors
Voilà ce que c'est que de vouloir répondre BEAUCOUP trop vite

 

[job75]

Re : [RESOLU] Worksheet_Activate évènement non détecté

Bonjour le fil,

Eh bé, quand on énerve Roger ça barde 😱

Voilà ce que c'est que de vouloir répondre BEAUCOUP trop vite

En effet en ce qui me concerne je n'avais pas sélectionné B4 dans le fichier Positions Tourets.xls et encore moins regardé ses macros...

Mais de ton côté Bruno tu a indiqué BEAUCOUP trop vite ce fil comme [RESOLU].

En effet, la fermeture du fichier après le choix de la position ne pose aucun problème :

' JOB75: Pour inscrire la position dans le fichier de suivi et fermer le classeur
On Error Resume Next
Workbooks("Suivi Tourets.xls").Activate
ThisWorkbook.Close True

Fichiers joints.

A+

 

[Compte Supprimé 979]

Re : [RESOLU] Worksheet_Activate évènement non détecté

Salut Job75

Mais de ton côté Bruno tu a indiqué BEAUCOUP trop vite ce fil comme [RESOLU].

Je ne sais pas ce que vous avez les gars, mais il va falloir prendre des vacances ...

J'ai indiqué ce fil comme résolu, car j'ai trouvé une solution !
Même si cette solution n'était pas forcément terrible.

En tout ca merci à toi pour la réponse

A+