vérification de la presence d'une feuille

Version imprimable

Bonjour,
je cherche à vérifier la présence d'une feuille dans un classeur.
Le nom du fichier provient d'une combobox, et après avoir vérifié l'existence du fichier, je voudrais vérifier la présence de la feuille avant de pouvoir l'utiliser.
Code:

1 2 3 4 5 6 7 8 9 nomdechemin = "E:\GABRIEL PERSO\GESTION VBA\AFFAIRE\" & bl.numaff.Text & ".xls" Dim fs As FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(nomdechemin) = True Then Workbooks.Open Filename:=nomdechemin, UpdateLinks:=0, ReadOnly:=False, ignorereadonlyrecommended:=True, notify:=False If ActiveWorkbook.Sheets(bl.commande.Text).Exists = True Then ActiveWorkbook.Worksheets(bl.commande.Text).Activate End If End If
en fait il faudrait remplacer la ligne en gras par une commande qui fonctionne !!

Si quelqu'un a une idée...

Bonjour

Essaye ca

Code:

1
2
3
4
5
6
7
8
9
10
11
    If fs.FileExists(nomdechemin) = True Then
        Workbooks.Open Filename:=nomdechemin, UpdateLinks:=0, ReadOnly:=False, ignorereadonlyrecommended:=True, notify:=False
        on error goto erreur
        ActiveWorkbook.Worksheets(bl.commande.Text).select
        goto suite
 erreur:
        Msgbox "La feuille " & bl.commande.texte & " n'existe pas"
        Activeworkbook.close false
        exit sub
suite:
    End If

En reprenant l'exemple de Wilfried

Code:

1
2
3
4
5
Dim FL1 as worksheet
    If fs.FileExists(nomdechemin) = True Then
        Workbooks.Open Filename:=nomdechemin, UpdateLinks:=0, ReadOnly:=False, ignorereadonlyrecommended:=True, notify:=False
        Set FL1 = ActiveWorkbook.Worksheets(bl.commande.Text)
        if not FL1 is nothing then msgbox "Ta feuille existe"

Pas testé...
Tu dis ;)

19/03/2008, 12h26
zandru

la solution avec gestion d'erreur marche parfaitement, merci
:resolu: :merci:

par contre la deuxième solution plante sur la ligne "Set FL1 ..." si la feuille n'existe pas
:nono:

Merci, comme ça je le saurai ;)
En effet, je viens de tester, il faut également une gestion d'erreur

Code:

1
2
3
4
5
6
7
8
Dim FL1 as worksheet
    If fs.FileExists(nomdechemin) = True Then
        Workbooks.Open Filename:=nomdechemin, UpdateLinks:=0, ReadOnly:=False, ignorereadonlyrecommended:=True, notify:=False
        on error resume next
             Set FL1 = ActiveWorkbook.Worksheets(bl.commande.Text)
        on error goto 0
        if not FL1 is nothing then msgbox "Ta feuille existe"
    Endif

19/03/2008, 19h53
wilfried_42

re: bonjour ouskel'n'or :)

Prend la solution de ouskel'n'or, elle est plus propre que la mienne (pas de goto, pas jolis les goto :oops:)

Bonne soirée