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