VBA : Excel : Savoir si un fichier est ouvert

Résolu
mario90 Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
 pikso -
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   Statut Membre Dernière intervention   163
 
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   Statut Membre Dernière intervention   163
 
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   Statut Membre Dernière intervention   7
 
Où se trouve le tableau des Workbook ?
0
pikso
 
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