VBA : Excel : Savoir si un fichier est ouvert

Résolu

mario90 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
pikso - 31 mars 2008 à 15:56

Je souhaite savoir comment on peut savoir si un fichier est déjà ouvert.

Merci d'avance

Afficher la suite

2 réponses

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

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

VBA : Excel : Savoir si un fichier est ouvert

2 réponses

Discussions similaires

Newsletters