Récupérer toutes les pages sauf certaines

Version imprimable

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:

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

Bonjour,

Le plus simple est de placer une condition (sous réserve que tu connaisses par avance le nom des feuilles que tu ne veux pas récupérer)
Code:

1 2 3 4 5 6 7 8 For Each Sheets In XlApp.Sheets if sheets.name="accueil" then 'il ne se passe rien else strSheetName.Add(Sheets.Name) ListBox1.Items.Add(Sheets.Name) end if Next

02/10/2019, 16h55
sorbetframboise

Parfait cela marche merci beaucoup
02/10/2019, 23h49
clementmarcotte

1 pièce(s) jointe(s)

Bonjour,

Tu as oublié ta virgule dans cette ligne:

Code:

XlApp = GetObject(, "Excel.Application")

Et surtout, cela marche parce que Miicrosoft.VisualBasic a été ajouté automatiquement à ton projet. Parce que, si on le décoche dans les propriétés du Projet, cela plante:

Pièce jointe 507243

Et je suis sûr que ce serait pareil pour Create Object.

Également, avec cette méthode, le Framework crée un wrapper ad-hoc pour Excel. C'est préférable d'utiliser la série des wrappers optimisés pour Office fournis par Microsoft, les Primary Interop Assemblies Ils commencent tous par Microsoft.Office,Interop

Dans ton cas c'est Microsoft.Office.interop.Excel qui t'intéresse. S'ils ne sont pas sur ton disque, tu peux les récupérer sur le site de microsoft

Et le fais ma propre publicité en t'envoyant vers les sources VB.NET.
03/10/2019, 07h47
sorbetframboise

J'avais déjà ajouté les référence/interop il y a longtemps et merci pour les conseils :D

Bonjour,
J'arrive un peut tard mais comme c'est rigolo!!!

Code:

1
2
Dim Workbook As Workbook = XlApp.Workbooks.Open(Fichier)
ListBox1.Items.AddRange(Workbook.Sheets.Cast(Of Object)().ToArray.Select(Function(Sh) Sh.Name).Where(Function(W) W.ToString.ToUpper <> "ACCUEIL").ToArray)

Sheets Where