subtilité "Private Sub Workbook_Open()"

[Frédéric]

Bonjour à tous,
la procédure ci dessous est dans un classeur "classeur 1" et s'execute comme vous le savez à l'ouverture du fichier.

Selon vous, comment pourrais je faire pour que toutes les instructions
de cette procedure ne s'execute que si le fichier "librairie macro.xls" n'est pas déjà ouvert?


'[classeur1]
Private Sub Workbook_Open()
Workbooks.Open Filename:= _
"S:\DSIS\CmdOuv\sigma\librairie\librairie macro.xls"
initialisation1 'macro
initialisation2 'macro



merci d'avance à tous de vos réponses.
Bonne journée
Cdt
FL

 

[sousou]

Bonjour Frédéric

Si tu ajoutes cela en début de procédure, cela devrait t'aider.

...
flag=0
for each classeur in workbooks
if classeur.name="librairie macro.xls" then flag=1
next

if flag=1 then exit sub
....

 

[Frédéric]

Bonjour Julien,
bien merci pour la solution que tu me proposes.
Elle fonctionnne parfaitement!
Cela va bien me dépanner.
Bonne journée.
Cordialement.
FL