Tester si un fichier excel est ouvert Résolu

Question

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

michel_m · Answer

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

alban · Answer

Merci beaucou Michel

Tester si un fichier excel est ouvert

2 réponses

Discussions similaires

Newsletters