Classeur ouvert ?? (suite)

Re- Eric,


Heu... là j'avoue que j'ai un peu de mal à suivre (d'ailleurs tu aurais dû continuer sur le même fil de discussion Lien supprimé)

Je vais tenter une interprétation de ta question : tu voudrais savoir si parmi les classeurs du répertoire X de ton disque dur, il y en a un actuellement ouvert ? C'est bien ça ?

Sub Test()
Dim Ouvert As Boolean
   Ouvert = VerifClasseurs("C:\mon_Chemin\")
   ...
End Sub

Function VerifClasseur(Cible As String) As Boolean
Dim Classeur As Workbook
   'Pour chaque classeur ouvert
   For Each Classeur In Workbooks
      'Si le chemin du classeur passe par le répertoire cible
      If Ucase(Left(Classeur.Path, Len(Cible))) = Ucase(Cible) Then
         VerifClasseur = True
         Exit For
      End If
   Next Classeur
End Function

Remarque : j'ai utilisé Ucase() pour que la fonction ne soit pas sensible à la casse pour le nom du chemin cible...


Cordialement.

Didier_mDF

Re Bonsoir myDearFriend,

Désolé pour la multiplication des fils, mais ayant eu 5 réponses, j'ai eu peur que cette précision sur la question passe inapperçue.

je te remercie pour la rapidité de ta réponce, c'est effectivement une bonne interprétation.

Amicalement

Eric D