Discussion :

[zandru]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[wilfried_42]

Bonjour

Essaye ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

En reprenant l'exemple de Wilfried

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

la solution avec gestion d'erreur marche parfaitement, merci


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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 )

Bonne soirée