OVH Cloud OVH Cloud

Ouverture classeur

2 réponses
Avatar
Marie
Bonsoir,

Si en VBA je demande d'ouvrir un classeur, si celui-ci est déjà ouvert,
message d'erreur.
Je n'ai pas trouvé comment faire pour dire que si le classeur est déjà
ouvert, alors il faut seulement l'activer.
Merci si vous avez une idée.

Bonne soirée,
Marie

2 réponses

Avatar
michdenis
Bonjour Marie,

'------------------
Dim Wk As Workbook

On error Resume Next
Set Wk = Workbooks("NomDuclasseur.xls")

if err = 0 then
Msgbox "Le Classeur est déjà ouvert"
else
'Chemin à adapter ...
Workbooks.Open "C:ExcelNomDuclasseur.xls"
End if
'------------------



Salutations!

"Marie" a écrit dans le message de news: 43d51855$0$26395$
Bonsoir,

Si en VBA je demande d'ouvrir un classeur, si celui-ci est déjà ouvert,
message d'erreur.
Je n'ai pas trouvé comment faire pour dire que si le classeur est déjà
ouvert, alors il faut seulement l'activer.
Merci si vous avez une idée.

Bonne soirée,
Marie
Avatar
Marie
Merci, Michdenis !!
Bonne année en prime.
Marie


"michdenis" a écrit dans le message de news:

Bonjour Marie,

'------------------
Dim Wk As Workbook

On error Resume Next
Set Wk = Workbooks("NomDuclasseur.xls")

if err = 0 then
Msgbox "Le Classeur est déjà ouvert"
else
'Chemin à adapter ...
Workbooks.Open "C:ExcelNomDuclasseur.xls"
End if
'------------------



Salutations!

"Marie" a écrit dans le message de news:
43d51855$0$26395$
Bonsoir,

Si en VBA je demande d'ouvrir un classeur, si celui-ci est déjà ouvert,
message d'erreur.
Je n'ai pas trouvé comment faire pour dire que si le classeur est déjà
ouvert, alors il faut seulement l'activer.
Merci si vous avez une idée.

Bonne soirée,
Marie