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

Version imprimable

Voir 40 message(s) de cette discussion en une page

re
au pire offre toi la possibilité d'argumenter ton appel a la macro OU PAS!!!!!
Code:

1 2 3 4 5 6 7 Option Explicit Sub Auto_Open() MsgBox "ouvert tout seul" End Sub Sub OpenSF(Optional argument As String = "inconu") MsgBox "ouvert par autre classeur :" & argument End Sub
lanceur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub je_lance() Dim pathSF As String pathSF = "K:\ES-SIG\SF.xlsm" Workbooks.Open Filename:=pathSF 'avec argument Application.Run "'SF.xlsm'!OpenSF", ThisWorkbook.Name 'ou sans arguments 'Application.Run "SF.xlsm!OpenSF" ' End Sub
tu aura inconnu" dans le message si tu n'injecte pas d'argument ou le nom du classeur lanceur ou tout ce que tu voudra injecter comme string
comme chez Renault c'est ......;)

Voici une alternative qui a mon avis est plus simple :

1- Dans le Workbook_Open du classeur cible :

Code:

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    If InStr(1, Application.StatusBar, "@[|`\@", vbTextCompare) = 0 Then
        MsgBox "Ouvert tout seul."
    Else
        MsgBox "Ouvert par le classeur: '" & Split(Application.StatusBar, "@[|`\@")(0) & "'"
    End If
End Sub

2- Dans le Claseeur(s) lanceur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
 
    Dim sStatusBar As String
    Dim pathSF As String
 
    On Error GoTo Xit
 
    pathSF = "K:\ES-SIG\SF.xlsm"
    With Application
        sStatusBar = .StatusBar
        .StatusBar = ThisWorkbook.FullName & "@[|`\@"
        Workbooks.Open Filename:=pathSF
Xit:
        If (UCase(sStatusBar) = UCase("False")) Or (UCase(sStatusBar) = UCase("Faux")) Then
            .StatusBar = CBool(sStatusBar)
        Else
            .StatusBar = sStatusBar
        End If
    End With
 
End Sub

12/04/2019, 16h49
retraite83

#42

oui ! cette fois j'ai compris merci ça marche impeccable, je vais adapter ça dans mon application et surtout prendre le temps de bien tut retester… Améliorer c'est bien encore faut-il ne rien casser à côté…

merci Patrick, une fois de plus…

#43
merci pour la proposition; mais à première vue je trouve cela plus complexe, enfin pour moi...

Citation:
Envoyé par RAFAAJ2000
Voici une alternative qui a mon avis est plus simple :

1- Dans le Workbook_Open du classeur cible :
Code:

1 2 3 4 5 6 7 Private Sub Workbook_Open() If InStr(1, Application.StatusBar, "@[|`\@", vbTextCompare) = 0 Then MsgBox "Ouvert tout seul." Else MsgBox "Ouvert par le classeur: '" & Split(Application.StatusBar, "@[|`\@")(0) & "'" End If End Sub
2- Dans le Claseeur(s) lanceur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub Test() Dim sStatusBar As String Dim pathSF As String On Error GoTo Xit pathSF = "K:\ES-SIG\SF.xlsm" With Application sStatusBar = .StatusBar .StatusBar = ThisWorkbook.FullName & "@[|`\@" Workbooks.Open Filename:=pathSF Xit: If (UCase(sStatusBar) = UCase("False")) Or (UCase(sStatusBar) = UCase("Faux")) Then .StatusBar = CBool(sStatusBar) Else .StatusBar = sStatusBar End If End With End Sub
re
bonjour RAFAAJ2000
oui aussi même principe qu'avec la caption de l'App démontré plus haut
cependant la méthode avec App.run ne modifie rien ni a l'App ni au a aucun classeur et me parait plus large au niveau des options qui est en fait illimité au vue du nombre d'arguments possible ,même si retraité veux s'en tenir a quelques conditions sur le(s) nom(s) du/des classeur(s) lanceur(s)
cela dit la statusbars c'est mieux que la caption pour ceux qui utiliseraient éventuellement des api Windows dans leur fichier

;)

12/04/2019, 19h11
retraite83

Je mets en place la solution du post#40 que je comprends et qui marche parfaitement

Maintenant si je veux aussi récupérer le nom de la macro lanceuse ? pour le cas où dans un même classeur une macro doit lancer le code et une autre non?

je suppose qq chose comme ARGUMENT2 ?

Code:

1
2
3
4
5
6
7
Option Explicit
Sub Auto_Open()
   MsgBox "ouvert tout seul"
End Sub
Sub OpenSF(Optional argument As String = "inconu", Optional argument2 As String = "none")
MsgBox "ouvert par autre classeur :" & argument & " avec la sub  " & argument2 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub je_lance()
Dim pathSF As String
 
pathSF = "K:\ES-SIG\SF.xlsm"
 
Workbooks.Open Filename:=pathSF
 
'avec argument
Application.Run "'SF.xlsm'!OpenSF", ThisWorkbook.Name, "je_lance"
 
'ou  sans arguments
'Application.Run "SF.xlsm!OpenSF"
'
End Sub

;)

13/04/2019, 08h42
RAFAAJ2000

Citation:

Envoyé par patricktoulon

re
bonjour RAFAAJ2000
oui aussi même principe qu'avec la caption de l'App démontré plus haut
cependant la méthode avec App.run ne modifie rien ni a l'App ni au a aucun classeur et me parait plus large au niveau des options qui est en fait illimité au vue du nombre d'arguments possible ,même si retraité veux s'en tenir a quelques conditions sur le(s) nom(s) du/des classeur(s) lanceur(s)
cela dit la statusbars c'est mieux que la caption pour ceux qui utiliseraient éventuellement des api Windows dans leur fichier

;)

Je n'avais pas vu votre solution qui utilise la caption ... Je suis tout a fait d'accord avec vous en ce qui concerne la méthode Application.Run qui ne modifie rien ... La raison pour laquelle j'ai écarté la methode Run est le fait qu'on a besoin d'utiliser Auto_Open ce qui peut etre problematique en cas ou le classeur cible soit lui aussi ouvert programmatiquement et on veuille executer le code de traitement.

Merci de votre interet.
13/04/2019, 13h50
patricktoulon

re

Citation:

ce qui peut etre problematique en cas ou le classeur cible soit lui aussi ouvert programmatiquement et on veuille executer le code de traitement.

non pas du tout
comme il a été dit tu sépare les code dans des sub et dans le auto-open ou la sub appelée par le lanceur tu lance celles que tu veux ou pas
c'est propre net
18/04/2019, 11h07
retraite83

#46

bonjour Patrick, ta solution marche super bien mais dans :

Code:

Application.Run "'SF.xlsm'!OpenSF", ThisWorkbook.Name, "je_lance"

je n'arrive pas à trouver la syntaxe pour remplacer

Citation:

'SF.xlsm'

par la variable contenant le nom SF.xlsm
18/04/2019, 18h57
patricktoulon

re

re
bonjour retraité
je pense que ca doit être ca

Code:

Application.Run "'" & mavariable & "'!OpenSF", ThisWorkbook.Name, "je_lance"
18/04/2019, 20h10
retraite83

Re

en effet c'est cela... franchement je n'aurai jamais trouvé...

merci
26/04/2019, 21h08
retraite83

Bonjour,

et si en plus mon classeur est protégé par un mot de passe, comment j'inclus la syntaxe de la déprotection dans l'open et la reprotection dans le close ?

Voir 40 message(s) de cette discussion en une page