is workbooks("BD") open

[Manu]

salut à tous....

J'ai un méchant trou de mémoire et je ne trouve pas de réponse sur le forum

Comment vérifié si un fichier Excel est déjà ouvert ?

merci de votre réponse

Manu

 

[michel_m]

Bonsoir Manu

Ci dessous une fonction que j'utilise pour tester si un classeur est ouvert, fonction écrite par Didier_mydearfriend et proposée sur ce forum:

Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf sur forum www.Excel-downloads.com (merci)
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F) '(Merci à Ti pour cette astuce)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

A+

Michel

 

[Manu]

Génial....tout simplement......

je viens de tester après les modifications d'usage.... et ça marche

Merci beaucoup

Et à une prochaine....