ne pas exécuter tout Private Sub Workbook_Open() à l'open

Bonjour,

à l'open d'un classeur "C" je fais un certain traitement "T" qui prends du temps, ce classeur peut être ouvert par d'autres classeurs mais sans besoin du traitement "T".

Pour optimiser je me demande si je peux ouvrir ce classeur "C" en passant un paramètre et tester ce paramètre dans Private Sub Workbook_Open() pour sauter le traitement "T"

Suis-je assez clair dans ma demande ?

merci pour toutes bonnes idées ou pratiques

Salut Retraite,

A mon sens, lors de l'appel du classeur ayant la procédure Open, l'instruction

Code:

---

Application.EnableEvents = False

---

suffirait dans la procédure d'appel.

Si une partie de l'évènement Open seule est à exécuter, alors la procédure Open de ce classeur pourrait contenir une suite d'appels de procédure.
Celle(s) choisie(s) serai(en)t exécutée(s) à partir de l'instruction

Code:

---

Application.Run

---

dans le classeur appelant.

Merci

qu'entend-on par

Citation:

---

la procédure Open

---

je ne comprends pas si c'est dans le classeur appelant ou le classeur ayant "private sub woorkbook_open"

de toutes façons je vais tester

J'entendais par là la procédure évènementielle

Citation:

---

Workbook_Open

---

.

je ne comprends pas bien comment ça s'articule avec "Workbook_Open" , je n'ai jamais fait cela mais je vais chercher…

merci

A toute fin utile,
Sur Application.Run à partir d'un classeur autre, voir cette passionnante discussion à laquelle ont participé le regretté Ouskelnor (ma jeunesse sur le Forum), Silkyraod et Jean Philippe André

Merci

Ca à l'air passionnant mais largement au dessus de mes compétences actuelles...

Citation:

---

mais largement au dessus de mes compétences actuelles

---

Pourquoi?
Les 2 premiers post d'Ouskelnor indiquent la syntaxe à appliquer. (Attention aux quottes!)
Ensuite, tu peux tester à partir de cas simples et revenir en cas de problème en précisant bien le(s) point(s) d'achoppement.

A plus donc.

re
si le classeur contenant le code dans le open est ouvert dans l'intance du classeur qui ouvre celuici

une chose a faire est simple tu englobe le code du open dans une

Code:

---

1 2 3 4

if workbooks.count=1 then     end if

---

le code ne sera pas effectué si d'autre classeurs dans l'instance

on pourrait meme aller plus loin encore; tout simplement en testant les noms des classeurs ouverts dans l'instance

Code:

---

1 2 3

for each wb in workbooks if wb.name="toto.xlsm" then exit sub next

---

ca ne changerait rien pour le classeur si il est ouvert tout seul le open serait effectué

post #8

je vais regarder et essayer mais cela va me prendre un peu de temps pour comprendre

post #9
Re Patrick,

c'est pas très clair pour moi (comme d'habitude tu vas me dire) mais je vais regarder et essayer

Citation:

---

une chose a faire est simple tu englobe le code du open

---

tu veux dire le code de "Private Sub Workbook_Open()" du classeur ouvert dont je ne veux pas exécuter le code ?

Il peut y avoir plusieurs classeurs ouverts mais tous dans la même instance Excel, je me demandais même s'il n'y avait pas un moyen de ne pas déclencher du tout le "Private Sub Workbook_Open()" à l'open du classeur ?

re
oui dans ton classeur avec l'open tu a :

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() 'blabla 'blabla 'blablabla End Sub

---

et bien tu fait

Code:

---

1 2 3 4 5 6 7 8

'si plusieur classeur sont ouverts dans la même instance le code ne s'exécutera pas Private Sub Workbook_Open() if workbooks.count=1 then 'blabla 'blabla 'blablabla end if End Sub

---

ou

'si le lanceur s'appelle "toto.xlsm"

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() for each wb in workbooks if wb.name="toto.xlsm" then exit sub next 'blabla 'blabla 'blablabla End Sub

---

et si tu décidais dans ton code qui ouvre le classeur de l'ouvrir dans une autre instance de l'application excel
la encore il y a un truc simple a faire !!

dans le lanceur

Code:

---

1 2 3 4 5 6

Sub test() Set app = CreateObject("excel.application") app.Caption = "non_non" app.Visible = True app.Workbooks.Open "C:\Users\polux\DeskTop\lelancé.xlsm" End Sub

---

et dans le classeur qui est ouvert

donc dans le open

Code:

---

1 2 3 4

Private Sub Workbook_Open() If Application.Caption Like "*non_non*" Then Exit Sub MsgBox "coucou" End Sub

---

voila si tu l'ouvre même dans une autre instance a partir du lanceur me msgbox "coucou" ne viendra pas
mais si tu ouvre le classeur tout seul le msgbox apparaitra donc le code s'exécute

voili voilou ;)

c'est simple comme chez renault:mouarf:

Merci Patrick,
j'ai testé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Private Sub Workbook_Open() Dim wb As Workbook For Each wb In Workbooks If wb.Name = "C1.xlsm" Then MsgBox "on n'exécute pas ThisWB open de C2" Exit Sub Else End If Next MsgBox "on a exécuté ThisWB open de C2"   End Sub

---

cela marche très bien. C1 appelant, C2 appelé

Mon problème est que j'ai pas mal de classeurs pouvant appelé C2, je peux toujours faire qq chose du style :

Code:

---

1 2	If wb.Name = "C1.xlsm" or _ wb.Name = "Cx.xlsm" Then

---

j'aurai préféré ne pas avoir à ajouter le nom de tous les classeurs en dur mais plutôt au moment de l'open dans l'appelant C1 avoir un paramètre qui dise de ne pas exécuter Thisworkbook open de C2 … Cx

Salut,

te baser sur le nom d'un classeur c'est minable à gérer dans le temps (nouveau nom = nouveau code de partout).

Essaie plutôt de travailler sur une valeur dans une cellule de classeur ou un libelle à quelque part dans le classeur qui serait suffisamment discriminant pour pas te louper :)

re

je recommence

le classeur qui ouvre dans la même instance ou pas

Code:

---

1 2 3 4 5 6

Sub test() 'ouvre dans une autre instance Set app = CreateObject("excel.application") app.Caption = "||||" app.Visible = True app.Workbooks.Open "C:\Users\polux\DeskTop\lelancé.xlsm" End Sub

---

Code:

---

1 2 3 4

Sub test2() 'ouvre dans la même instance Application.Caption = "||||" Workbooks.Open "C:\Users\polux\DeskTop\lelancé.xlsm" End Sub

---

dans le classeur qui est ouvert

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() 'Debug.Print "|" & Application.Caption & "|" If Application.Caption Like "*||||*" Then Exit Sub MsgBox "coucou" End Sub

---

on peut même se permettre de remettre la caption a l'initial dans le open histoire de faire propre

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Debug.Print "|" & Application.Caption & "|" If Not Application.Caption Like "*Microsoft Excel - *" Then Application.Caption = "Microsoft Excel - ": Exit Sub MsgBox "coucou" 'blabla 'blabla End Sub

---

sinon il te faudra séquencer par macro intermédiaire le code du open
je vais tenter quelque chose et reviendrait si ca marche

N'est-il pas possible de faire plus simple :

Par exemple au moment de l'open dans les classeur appelants, faire "Workbook_Open" en passant un paramètre 0 ou 1 suivant si on veut ou pas exécuter le code à l'ouverture de l'appelé

ensuite dans :

Code:

---

Private Sub Workbook_Open()

---

du classeur appelé, il suffirait de tester:

si = 0 --> exit sub
si = 1 --> on exécute le code

Pas possible ça ?

non car les arguments qui suive le chemin son readonly etc..... si je me souviens bien

donc non !!

j'ai tenter de transférer le code dans l'évènement sheet_change mais j'ai l'aller mais pas le retour
tu pourrais aussi passer par un fichier ini dynamique mais la encore se serait certainement plus lourd encore
conclusion:
si personne n'a d'idée sur ce point tu va devoir faire avec

Et si je créé une feuille "param" dans chaque classeur (appelé et appelant) et que je renseigne mon top 0 ou 1 dans une cellule (A1) de param de l'appelant juste avant l'open

en faisant une équivalence dans la cellule A1 "param" de l'appelé (='Param appelant'!A1) je devrai pouvoir ensuite récupérer le contenu de la cellule dans "Private Sub Workbook_Open()" et le tester pour exécuter ou non le code ? puis remettre le top = 0 à la fin de l'open ?

je vais tester


post#8
j'ai du mal à appréhender...

Salut,

si tu es prêt à t'accrocher, si je prends ta demande initiale, tu peux utiliser les passages de parametres avec Excel :

https://jpcheck.developpez.com/tutor...ge-parametres/