Discussion :

[sorbetframboise]

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

[Delaney]

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 :

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

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

[sorbetframboise]

Parfait cela marche merci beaucoup

[clementmarcotte]

Bonjour,

Tu as oublié ta virgule dans cette ligne:

Code :

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

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:



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.

[sorbetframboise]

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

[Thumb down]

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

Code :

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

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