Macro classeur ouvert ou fermé

[jose_67]

Re-Bonjour, j'ai une marco qui m'ouvre un fichier

Workbooks.Open Filename:="Y:\111-chantier RP\3-Master BAR\LDA_Encours.xls", ReadOnly:=True

Si par hasard ce fichier est déjà ouvert ma macro Bogue
Y a t'il une possibilité d'exécuter cette macro, classeur fermé ou ouvert ?

Merci pour l'aide

 

[job75]

Re : Macro classeur ouvert ou fermé

Bonjour jose_67,

Par exemple :

On Error Resume next
nomfich = Workbooks("LDA_Encours.xls").Name
If Err Then Workbooks.Open "Y:\111-chantier RP\3-Master BAR\LDA_Encours.xls", ReadOnly:=True
On Error GoTo 0
Workbooks("LDA_Encours.xls").Activate

A+

 

[Robert]

Re : Macro classeur ouvert ou fermé

Bonjour José, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim cl As Workbook
For Each cl In Workbooks
    If cl.FullName = "Y:\111-chantier RP\3-Master BAR\LDA_Encours.xls" Then Exit Sub
Next cl
Workbooks.Open Filename:="Y:\111-chantier RP\3-Master BAR\LDA_Encours.xls", ReadOnly:=True
End Sub

Édition :

Salut Job on s'est croisé. Ton code est bien meilleur.