VBA : Excel : Savoir si un fichier est ouvert [Résolu/Fermé]

Signaler
Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
-
 pikso -
Je souhaite savoir comment on peut savoir si un fichier est déjà ouvert.

Merci d'avance

2 réponses

Messages postés
221
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
4 novembre 2005
161
L'objet Workbooks s'applique à l'objet Application. Une aide sur le mot Workbooks doit t'apporter pas mal de réponses

Petit exemple :
    Dim lWorkbook As Workbook
    Dim lFound As Boolean
    
    lFound = False
    For Each lWorkbook In Workbooks
        If lWorkbook.Name = "FichierX" Then
            lFound = True
            Exit For
        End If
    Next
    If lFound Then
        <Cas ou le fichier "FichierX" existe>
    End If


DaNot
11
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
221
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
4 novembre 2005
161
Bonjour,

Je pense que la seule solution est de tester dans le tableaux des Workbooks si il exite un Workbook avec le nom du fichier (sans l'extension). Sachant que Excel n'autorise pas l'ouverture de deux fichiers avec le même nom.

DaNot
Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
7
Où se trouve le tableau des Workbook ?
Slt,

Ton fonctionne au poil par contre je dois mettre l'extension pour qu'il trouve le workbook.

VB 6.3
Excel 2003 SP3