Private Sub en passant d'un classseur à un autre
Le
JPMonnier
Bonjour,
Existe t'il une commande qui puisse lancer une procédure lorsque je passe
d'un classeur à un autre par l'intermédiaire d'un menu personnalisé
Du style Private Sub Workbooks_Deactivate()
ou
Private Sub WindowDeactivate(ByVal Wb As Excel.workbook, ByVal Wn As
Excel.Window)
et comment lancer l'éventuelle Private Sub avant le changement de classeur ?
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
Existe t'il une commande qui puisse lancer une procédure lorsque je passe
d'un classeur à un autre par l'intermédiaire d'un menu personnalisé
Du style Private Sub Workbooks_Deactivate()
ou
Private Sub WindowDeactivate(ByVal Wb As Excel.workbook, ByVal Wn As
Excel.Window)
et comment lancer l'éventuelle Private Sub avant le changement de classeur ?
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
Poser une question
À chaque fois qu'un classeur passe la main à un autre classeur
lorsqu'ils sont ouverts dans LA MÊME INSTANCE D'EXCEL, il
y a cet événement qui se produite dans le classeur qui perd la
main :
'----------------------------
Private Sub Workbook_Deactivate()
End Sub
'----------------------------
Cet événement s'exécute avant que le nouveau classeur sélectionné
devienne le classeur actif.
Cet événement est disponible dans le ThisWorkbook de chaque classeur.
"JPMonnier"
Bonjour,
Existe t'il une commande qui puisse lancer une procédure lorsque je passe
d'un classeur à un autre par l'intermédiaire d'un menu personnalisé
Du style Private Sub Workbooks_Deactivate()
ou
Private Sub WindowDeactivate(ByVal Wb As Excel.workbook, ByVal Wn As
Excel.Window)
et comment lancer l'éventuelle Private Sub avant le changement de classeur ?
Merci d'avance
--
Cordialement
J'avais fait ce que tu dis, mais l'avais placé dans la feuille, je l'ai donc
placé dans ThisWorkbook
Private Sub Workbook_Desactivate()
Application.Run "'fcde.xls'!TRIA"
End Sub
Rien ne s'exécute
Lorsque je mets un point d'arrêt sur la private sub, elle ne passe pas
dessus !!
merci encore pour ton aide
--
Cordialement
"michdenis" news:
| d'un classeur à un autre par l'intermédiaire d'un menu personnalisé
Elle fait quoi ta commande ?
Est-ce que tes procédures événementielles sont activées?
Exécute la ligne de code suivante : application.EnableEvents = True
"JPMonnier"
Bonjour micheldenis
J'avais fait ce que tu dis, mais l'avais placé dans la feuille, je l'ai donc
placé dans ThisWorkbook
Private Sub Workbook_Desactivate()
Application.Run "'fcde.xls'!TRIA"
End Sub
Rien ne s'exécute
Lorsque je mets un point d'arrêt sur la private sub, elle ne passe pas
dessus !!
merci encore pour ton aide
--
Cordialement
"michdenis" news:
j'ai simulé une private sub dans une feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "a"
End Sub
Cela fonctionne !
Ma procédure devrait trier la feuille active que je quitte au changement de
classeur
elle ne passe pas dessus à l'activation d'un autre classeur
--
Cordialement
"michdenis" news:
Pour que l'événement "desactivate" se produise, il faut
qu'un autre classeur devienne le classeur actif à l'écran et
ce, dans la même instance excel.
"JPMonnier"
Mes procédures événementielles sont activées
j'ai simulé une private sub dans une feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "a"
End Sub
Cela fonctionne !
Ma procédure devrait trier la feuille active que je quitte au changement de
classeur
elle ne passe pas dessus à l'activation d'un autre classeur
--
Cordialement
"michdenis" news: