Si le classeur "toto" est ouvert alors...

Le
Didier NOVARIN
Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors
Si "tata" n'est pas ouvert alors
Je vous remercie
Didier
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 #4976821
Bonsoir,

Function EstOuvert(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
Next i
EstOuvert = témoin
End Function

Sub essai()
If EstOuvert("x.xls") Then

Else

End If
End Sub

JB
http://boisgontierjacques.free.fr


On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors...
Si "tata" n'est pas ouvert alors...
Je vous remercie
Didier


Didier NOVARIN
Le #4976671
Bonsoir JB,
Comme dab...
C'est parfait !!!
Merci beaucoup
Bonne soirée
Didier

"JB"
Bonsoir,

Function EstOuvert(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
Next i
EstOuvert = témoin
End Function

Sub essai()
If EstOuvert("x.xls") Then

Else

End If
End Sub

JB
http://boisgontierjacques.free.fr


On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors...
Si "tata" n'est pas ouvert alors...
Je vous remercie
Didier


Publicité
Poster une réponse
Anonyme