tester si un classeur est ouvert

Le
Hicham Oudrhiri
Hi
Je cherche une macro pour tester si in classeur x.xls par exemple est ouvert
ou pas et renvoi un msgbox en fonction de chaque situation
Merci de votre aide
H
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4330681
Bonsoir,

Function est_ouvert(f)
témoin = False
For Each i In Workbooks 'on parcourt la collection des classeurs
If UCase(i.Name) = UCase(f) Then
témoin = True
End If
Next i
est_ouvert = témoin
End Function

=est_ouvert("x.xls")

If est_ouvert("x.xls") then

JB

On 12 mar, 18:51, "Hicham Oudrhiri"
Hi
Je cherche une macro pour tester si in classeur x.xls par exemple est ouv ert
ou pas et renvoi un msgbox en fonction de chaque situation
Merci de votre aide
H


LSteph
Le #4330651
Sub testouvert()
on error goto fin

Workbooks("x.xls").activate
msgbox "Et oui je suis là!"
exit sub
fin:
msgbox "Non , pas là!"
end sub

Hi
Je cherche une macro pour tester si in classeur x.xls par exemple est ouvert
ou pas et renvoi un msgbox en fonction de chaque situation
Merci de votre aide
H




Hicham Oudrhiri
Le #4330491
Merci à tous
H
"JB"
Bonsoir,

Function est_ouvert(f)
témoin = False
For Each i In Workbooks 'on parcourt la collection des classeurs
If UCase(i.Name) = UCase(f) Then
témoin = True
End If
Next i
est_ouvert = témoin
End Function

=est_ouvert("x.xls")

If est_ouvert("x.xls") then

JB

On 12 mar, 18:51, "Hicham Oudrhiri"
Hi
Je cherche une macro pour tester si in classeur x.xls par exemple est
ouvert
ou pas et renvoi un msgbox en fonction de chaque situation
Merci de votre aide
H


Publicité
Poster une réponse
Anonyme