Graphique excel sur VB.net

Version imprimable

Bonjour à tous,

Je cherche à faire apparaître un graphique excel sur Visual basic

Pour l'instant après quelques recherches j'ai ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim XlApp As Object = Nothing, Workbook As Object = Nothing, ActiveSheet As Object = Nothing
        XlApp = GetObject("Excel.Application")
        'XlApp.visible = True'
        Workbook = XlApp.Workbooks.Open(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Dossier final - Copie.exe")
        ActiveSheet = Workbook.ActiveSheet
        ActiveSheet.ChartObjects("Graphique 1").Activate()
        With ActiveChart
            .PlotArea.Select()
            .ShowWindow = True
        End With
    End Sub

Le problème que j'ai est au niveau du ActiveChart il me demande de générer un stub et si jamais je le fais une erreur se met sur le stub quand je click sur le bouton

19/09/2019, 11h36
Delaney
Bonjour,

avant tout autre choses, je note ceci :
Code:

1 2 Dim XlApp As Object = Nothing, Workbook As Object = Nothing, ActiveSheet As Object = Nothing XlApp = GetObject("Excel.Application")
tss,tss, même erreur que la dernière fois :roll: :lol: : utilise CreateObject...

"ActiveChart" n'est déclaré nulle part...

Ton graphique est il inclus dans une feuille ou est-ce une feuille ?

La dernière fois j'ai finalement gardé le Getobject car tout est déjà créé sur excel :) .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
  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
 
    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim nom As String
        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(1)
        nom = ListBox1.SelectedItem.ToString
 
        Sheets.Cells(1, 5).Value = nom
        Sheets.application.Run("Bouton2_Cliquer")
        Me.Hide()
        Form2.Show()
 
        XlApp.DisplayAlerts = False
        Workbook.Save()
        Workbook.Close()
        XlApp.DisplayAlerts = True
        XlApp.Quit()
    End Sub

Si, il est déclaré un peu plus loin.

Code:

1
2
3
 Private Function ActiveChart() As Object
        Throw New NotImplementedException
    End Function

c'est justement à ce niveau la qu'il y a un problème

Mon graphique est inclus dans une feuille.

salut,

concernant "getobject", c'est bizarre car chez moi il me renvoie une erreur ("impossible de créer le composant activeX") même avec un fichier déjà créé ou une instance ouverte. Mais cela vient peut-être du fait que tu as déjà ouvert une instance excel quelque part dans ton projet .

J'ai testé ça et cela fonctionne mais est ce que cela correspond à ce que tu veux faire ? (cela affiche la feuille et le graphe et cela sélectionne le graphe)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim XlApp As Object = CreateObject("excel.application") Dim Workbook As Microsoft.Office.Interop.Excel.Workbook Dim activesheet As Microsoft.Office.Interop.Excel.Worksheet Dim ActiveChart As Microsoft.Office.Interop.Excel.ChartObject Workbook = XlApp.Workbooks.Open("X:\programmation\VB.net\Projets\test\essais.xls") activesheet = Workbook.Sheets("Feuil1") activesheet.Activate() activesheet.ChartObjects("Graphique 1").activate() ActiveChart = activesheet.ChartObjects("Graphique 1") ActiveChart.Select() XlApp.visible = True msgbox("attente") 'obligatoire car les deux lignes d'après te ferment immédiatement le fichier ;) ou alors tu enlèves les deux lignes suivantes Workbook.Close() XlApp.quit()

Bonjour,
en fait GetObject c'est du vba et ça s'utilise comme ça!

Code:

Xls=GetObject(,"Excel.Application")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports System.Runtime.InteropServices
 Friend Function GetObject(ByVal App As String) As Object
Try
            Try
                Return Marshal.GetActiveObject(App)
            Catch ex As Exception
                Return False
            End Try
        Catch exRD As Exception
            log.Error("", exRD)
            Return False
        Finally
        End Try
    End Function
 Friend Function CreateObject(ByVal app As String) As Object
        Try
            Dim AppType As Object = Type.GetTypeFromProgID(app)
            Try
                Dim ApplInst As Object = Activator.CreateInstance(AppType)
                Return ApplInst
            Catch ex As Exception
                Return False
            End Try
        Catch exRD As Exception
            log.Error("", exRD)
            Return False
        Finally
        End Try
    End Function

19/09/2019, 12h55
Delaney

Salut,

Après quelques vérif, il faut que le fichier ou EXCEL soit déjà ouvert pour que getobject ne donne pas d'erreur.
19/09/2019, 13h29
sorbetframboise

Non elthorn justement je ne veux pas que la page excel puisse s'afficher je veux que le graphique apparaisse par exemple dans une picturebox.

Bizarre Thumb down car je suis en VB.net et cela marche très bien pour récupérer le nom de mes feuilles excel. (Je ne suis pas du tout habitué à ton style de code il n'y a aucune dim pour aller récupérer mon fichier je ne vois pas trop comment ton code fonctionne mais je suis débutant ce doit être pour sa)

Merci beaucoup en tout cas je continue à travailler dessus et si je trouve une solution je vous la poste

1 pièce(s) jointe(s)

j'ai un peu avancer ( je crois)

j'ai ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim XlApp As Object = Nothing, Workbook As Object = Nothing, ActiveSheet As Object = Nothing
        XlApp = GetObject("Excel.Application")
        'XlApp.visible = True'
        Workbook = XlApp.Workbooks.Open(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Dossier final - Copie.exe")
        ActiveSheet = Workbook.ActiveSheet
        ActiveSheet.ChartObjects(2).Activate()
        ActiveSheet.ChartObjects(2).activate()
        ActiveChart = ActiveSheet.ChartObjects(2)
 
        PictureBox1 = ActiveChart
 
 
 
        XlApp.DisplayAlerts = False
        Workbook.Save()
        Workbook.Close()
        XlApp.DisplayAlerts = True
        XlApp.Quit()
    End Sub

et cette erreur apparaît

Pièce jointe 504285

19/09/2019, 15h00
sorbetframboise

Je vais voir ça merci :D
19/09/2019, 15h05
Delaney
salut,

pour récupérer ta chart et la mettre dans ta picture box :
Code:

1 2 3 4 ActiveChart.select() ActiveChart.copy() picturebox1.image=clipboard.getimage
19/09/2019, 15h19
sorbetframboise

c'est parfait Elthorn merci énormément :D