VBA : Excel : Savoir si un fichier est ouvert

Résolu/Fermé
mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 - 24 oct. 2003 à 11:43
 pikso - 31 mars 2008 à 15:56
Je souhaite savoir comment on peut savoir si un fichier est déjà ouvert.

Merci d'avance

2 réponses

DaNot Messages postés 221 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 4 novembre 2005 163
24 oct. 2003 à 17:41
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
DaNot Messages postés 221 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 4 novembre 2005 163
24 oct. 2003 à 12:01
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
1
mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 7
24 oct. 2003 à 14:11
Où se trouve le tableau des Workbook ?
0
Slt,

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

VB 6.3
Excel 2003 SP3
0