Bonjour,
J'ai ce code me permettant de récupérer les feuilles sur excel pour les mettre dans une Listbox et je souhaiterais que certaine feuille comme la feuille "accueil" n'apparaissent pas merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim XlApp As Object = Nothing, Workbook As Object = Nothing, Sheets As Object = Nothing
        XlApp = GetObject("Excel.Application")
        'XlApp.visible = True'
        Workbook = XlApp.Workbooks.Open(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Dossier final - Copie.exe ")
        Sheets = Workbook.Sheets(2)
 
        Dim strSheetName As New List(Of String)
        For Each Sheets In XlApp.Sheets
            strSheetName.Add(Sheets.Name)
            ListBox1.Items.Add(Sheets.Name)
        Next
        Workbook.Close()
        XlApp.Quit()
    End Sub