VBA : Excel : Savoir si un fichier est ouvert

Résolu
mario90 Messages postés 31 Statut Membre -  
 pikso -
Je souhaite savoir comment on peut savoir si un fichier est déjà ouvert.

Merci d'avance

2 réponses

Réponse 1 / 2
DaNot Messages postés 221 Statut Membre 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
Réponse 2 / 2
DaNot Messages postés 221 Statut Membre 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 31 Statut Membre 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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses