Tester si un fichier excel est ouvert

Résolu
alban -  
 alban -
Bonjour,

J'ai un problème pour faire marcher un bout de macro.
Je veux tester si un fichier excel est ouvert et si tel est le cas, je veux le sélectionner.
Le programme ci-dessous ne fonctionne pas. Cela ne balaye pas mes fichiers ouverts et donc la macro me renvoit un message d'erreur car le fichier est déja ouvert.
Quelqu'un peut il m'aider?
Merci beaucoup par avance

Alban



Nom_fichier = "test"

Dim lWindow As Workbook
Dim lFound As Boolean

lFound = False
For Each lWorbook In Windows
If lWorbook.Name = Nom_fichier & ".xls" Then
lFound = True
Exit For
End If
Next
If lFound = False Then
' Cas ou le fichier "test" n'est pas ouvert
Workbooks.Open Filename:= _
"K:\GE-AGORA\ECHANGES-OPT-DGF\Positions Book PPE\" & Nom_fichier & ".xls"

Else

Windows(Nom_fichier & ".xls").Activate

End If
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour, 

Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf   (merci) site INCONTOURNABLE :http://www.mdf-xlpages.com/
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function


si le répertoire actif n'est pas le répertoire du classeur F doit être le "fullname" du classeur
0
Réponse 2 / 2
alban
 
Merci beaucou Michel
0