is workbooks("BD") open

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

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

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

Merci beaucoup

Et à une prochaine....