fonction "existe" alternative a dir

Version imprimable

25/03/2011, 15h36
volubiliss

fonction "existe" alternative a dir

Bonjour

Je recherche une fonction qui permette la syntaxe « est ce que le nom de ce workbook existe dans l’application en cours »J’ai essayé la fonction Dir, mais celle-ci est adapté pour une vérification par un chemin d’accès pas pour vérifier directement par le nom du workbook recherché.

Merci d’avance
25/03/2011, 15h49
Invité

Bonjour

La fonction Dir est là pour la recherche dans un répertoire Windows.

Par ta phrase est ce que le nom de ce workbook existe dans l’application en cours, si je traduis, tu as Excel d'ouvert et tu cherches combien il y a de classeurs ouverts dans Excel.

Peux-tu donc éclaircir les membres du forum.

Philippe
25/03/2011, 16h11
volubiliss

Bonjour Philippe,

Pour être plus claire la recherche consiste à dire par exemple si j'ai un workbook nommé "Classeur4", est ce que ce workbook est actuellement présent dans l'application parmis les autres.

J'espère que c'est un peu plus clair

Bonsoir,

Si j'ai bien compris, tu cherche une fonction utilisable dans Excel qui t'indique si un classeur est ouvert ou pas ?
Regarde si ça convient :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function CLASSEUROUVERT(Cel As Range) As Boolean
 
    Dim Classeur As Workbook
    Application.Volatile
 
    'cherche à affecter le classeur
    'à la variable, si il n'existe pas
    '(pas ouvert) une erreur est générée
    On Error Resume Next
    Set Classeur = Workbooks(Cel.Value)
 
    'cette erreur, si elle existe, permet
    'de retourner FAUX
    If Err.Number <> 0 Then
        CLASSEUROUVERT = False
    Else
        CLASSEUROUVERT = True
    End If
 
    Set Classeur = Nothing
 
End Function

et dans Excel =CLASSEUROUVERT(A1)
dans A1 par exemple : Classeur1.xls

Hervé.