Tester si un fichier excel est ouvert

Résolu/Fermé

alban - 13 déc. 2010 à 19:04
alban - 14 déc. 2010 à 10:04

Bonjour,

J'ai un problème pour faire marcher un bout de macro.
Je veux tester si un fichier excel est ouvert et si tel est le cas, je veux le sélectionner.
Le programme ci-dessous ne fonctionne pas. Cela ne balaye pas mes fichiers ouverts et donc la macro me renvoit un message d'erreur car le fichier est déja ouvert.
Quelqu'un peut il m'aider?
Merci beaucoup par avance

Alban

Nom_fichier = "test"

Dim lWindow As Workbook
Dim lFound As Boolean

lFound = False
For Each lWorbook In Windows
If lWorbook.Name = Nom_fichier & ".xls" Then
lFound = True
Exit For
End If
Next
If lFound = False Then
' Cas ou le fichier "test" n'est pas ouvert
Workbooks.Open Filename:= _
"K:\GE-AGORA\ECHANGES-OPT-DGF\Positions Book PPE\" & Nom_fichier & ".xls"

Else

Windows(Nom_fichier & ".xls").Activate

End If

A voir également:

Tester si un fichier excel est ouvert
Fichier rar - Guide
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
13 déc. 2010 à 22:42

Bonjour,

Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf   (merci) site INCONTOURNABLE :http://www.mdf-xlpages.com/
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

si le répertoire actif n'est pas le répertoire du classeur F doit être le "fullname" du classeur

Réponse 2 / 2

alban
14 déc. 2010 à 10:04

Merci beaucou Michel

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters