Exception : 0x80010105 sur creation d'un chart

Version imprimable

Bonjour,

J'ai réaliser une bout de code en vb pour exporter des valeurs vb vers Excel. J'ai tester cela sur mon ordinateur ça marche parfaitement mais lorsque je le lance sur un autre pc avec une version d'Excel plus récente cela me met une exception 0x80010105.

Le code :

Code:

1
2
3
4
5
6
7
8
9
 xlCharts = excelWorksheet2.ChartObjects
 msgbox("1")
            myChart = xlCharts.Add(0, 0, 600, 450)
 msgbox("2")
            chartPage = myChart.Chart
 msgbox("3")
            chartRange = excelWorksheet.Range(excelWorksheet.Cells(1, 3), excelWorksheet.Cells(rowsTotal + 1, colsTotal + 1))
 msgbox("4")
            chartPage.SetSourceData(Source:=chartRange, PlotBy:=Microsoft.Office.Interop.Excel.XlRowCol.xlColumns)

J'ai mis des msgbox pour tester et voir quand cela plante exactement et la messagebox ("1") apparait et l'exception apparait juste apres.

Et juste avant :

Code:

1
2
3
4
5
6
7
8
 
            excelWorksheet2.Select()
            With excelWorksheet2
                .Cells.Select()
                .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).ColorIndex = 2
                .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).ColorIndex = 2
                .Name = "Graphe"
            End With

Ce code est beaucoup plus long à s'exécuter que normalement.

Mon exception :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
See the end of this message for details on invoking 
just-in-time (JIT) debugging instead of this dialog box.
 
************** Exception Text **************
System.Runtime.InteropServices.COMException (0x80010105): The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
   at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
   at Microsoft.Office.Interop.Excel.ChartObjects.Add(Double Left, Double Top, Double Width, Double Height)
   at WindowsApplication1.graph_data.export(String& cyclename, String& cycleshort, String& axe) in C:\Documents and Settings\AUDUSER.FRLT132375\Bureau\dAVID\GAT_EX_vb2010\GatherPmac_exemple\graph_data.vb:line 378
   at WindowsApplication1.Form2.Button4_Click(Object sender, EventArgs e) in C:\Documents and Settings\AUDUSER.FRLT132375\Bureau\dAVID\GAT_EX_vb2010\GatherPmac_exemple\Form2.vb:line 974
   at System.Windows.Forms.Control.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ButtonBase.WndProc(Message& m)
   at System.Windows.Forms.Button.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
 
 
************** Loaded Assemblies **************
mscorlib
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
    CodeBase: file:///E:/WINDOWS/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
GatherPmac_exemple
    Assembly Version: 1.0.0.0
    Win32 Version: 1.0.0.0
    CodeBase: file:///G:/dAVID/GAT_EX_vb2010/GatherPmac_exemple/bin/Release/GatherPmac_exemple.exe
----------------------------------------
Microsoft.VisualBasic
    Assembly Version: 10.0.0.0
    Win32 Version: 10.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Windows.Forms.DataVisualization
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.DataVisualization/v4.0_4.0.0.0__31bf3856ad364e35/System.Windows.Forms.DataVisualization.dll
----------------------------------------
System.Data
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Xml
    Assembly Version: 4.0.0.0
    Win32 Version: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///E:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
Microsoft.Office.Interop.Excel
    Assembly Version: 12.0.0.0
    Win32 Version: 12.0.4518.1014
    CodeBase: file:///E:/WINDOWS/assembly/GAC/Microsoft.Office.Interop.Excel/12.0.0.0__71e9bce111e9429c/Microsoft.Office.Interop.Excel.dll
----------------------------------------
office
    Assembly Version: 12.0.0.0
    Win32 Version: 12.0.4518.1014
    CodeBase: file:///E:/WINDOWS/assembly/GAC/office/12.0.0.0__71e9bce111e9429c/office.dll
----------------------------------------
 
************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.
 
For example:
 
<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>
 
When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

Si quelqu'un peut m'aider

Cordialement

Visual Studio 2010 express

23/08/2013, 20h43
anasschiguer

Bonjour, peut être que le .net framework 4.0 n'est pas installé sur le pc cible non ??
avant de tester cela sur l'autre pc est ce que tu as bien déployer ton application ?? tu l'as bien installé ?? ou tu as simplement copier l'executable ???
23/08/2013, 21h03
clementmarcotte

Bonjour,

Le numéro de l'erreur laisse voir une erreur com/automation, mais je ne sais pas laquelle.

Si ma boule de cristal est efficace, tu sembles utiliser Excel pour afficher des graphiques en VB.net, et cela génère en moi la question pourquoi ?

Microsoft offre gratuitement son ChartControl pour .net.

Chez SourceForge, tu peux trouver la bibliothèque gratuite Zedgraph.

Et il y a sûrement d'autres composants .net gratuits et payants, disponibles un peu partout.

Tout ça pour dire que tu peux sûrement te passer d'Excel pour afficher des graphiques en .net
23/08/2013, 22h02
Neoxaro

Les graphiques sont afficher sur mon application vb.net mais je les exporte sous Excel pour pouvoir les utiliser par d'autre personnes sur n'importe quel autre PC. Et je ne peux pas transporter autrement mes graphiques que sous Excel donc.

.net framework est installé, je lance parfaitement toute mon application et réalise d'autre action parfaitement (communication avec des automates entre autre chose)

Citation:

Envoyé par anasschiguer

Bonjour, peut être que le .net framework 4.0 n'est pas installé sur le pc cible non ??
avant de tester cela sur l'autre pc est ce que tu as bien déployer ton application ?? tu l'as bien installé ?? ou tu as simplement copier l'executable ???

J'ai simplement copier le dossier release et lancé l'exécutable, et mon application fonctionne, j'arrive à me connecter à mon automate avec la librairie correspondante. Tout fonctionne de cette mainère sauf cette exception sur l'instruction

Code:

myChart = .ChartObjects.Add(0, 0, 600, 450)

que je ne comprend pas

(j'avais essayé de faire publish, il m'a créé une installe que j'ai exécuté, il me l'a installé et quand j'essayais de le lancer un processus s'ouvrait mais rien ne se passait.)

Mon code complet est le suivant :

Excel commence à ralentir à la ligne 75 et
L'exception apparait à la ligne 79

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
         Dim rowsTotal, colsTotal As Short
        Dim I, j, iC As Short
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp As New Microsoft.Office.Interop.Excel.Application
        Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
        Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        Dim excelWorksheet2 As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(2), Microsoft.Office.Interop.Excel.Worksheet)
 
        ' Define a title for the message box.
        Dim title = "Exportation"
        Dim response = MsgBox("Exportation des données, veuillez patienter.", , title)
 
        Try
            xlApp.Visible = True
            rowsTotal = Form2.DataGridView1.RowCount - 1
            colsTotal = Form2.DataGridView1.Columns.Count - 1
 
 
            With excelWorksheet
                .Name = "Données"
                .Cells.Select()
                .Cells.Delete()
                For iC = 0 To colsTotal
                    .Cells(1, iC + 1).Value = Form2.DataGridView1.Columns(iC).HeaderText
                    .Cells(1, iC + 1).Interior.ColorIndex = 3
                Next
 
                With excelWorksheet.Cells.Range(excelWorksheet.Cells(1, 1), excelWorksheet.Cells(1, colsTotal + 1))
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).ColorIndex = 0
                End With
 
                For I = 0 To rowsTotal - 1
                    For j = 0 To colsTotal
                        .Cells(I + 2, j + 1).value = Form2.DataGridView1.Rows(I).Cells(j).Value
                    Next j
                Next I
 
                With excelWorksheet.Cells.Range(excelWorksheet.Cells(2, 1), excelWorksheet.Cells(rowsTotal + 1, colsTotal + 1))
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).ColorIndex = 0
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
                    .Cells.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).ColorIndex = 0
                End With
 
                .Rows("1:1").Font.FontStyle = "Bold"
                .Rows("1:1").Font.Size = 10
                .Cells.Columns.AutoFit()
            End With
 
            'create chart
            Dim chartPage As Microsoft.Office.Interop.Excel.Chart
            Dim myChart As Microsoft.Office.Interop.Excel.ChartObject
            Dim chartRange As Microsoft.Office.Interop.Excel.Range
 
msgbox("jusque là ça marche nickel ensuite ça plante sur myChart = .ChartObjects.Add(0, 0, 600, 450)") 
            excelWorksheet2.Select()
 
            With excelWorksheet2
                .Name = "Graphe"
                myChart = .ChartObjects.Add(0, 0, 600, 450)
            End With
 
            Dim misValue As Object = System.Reflection.Missing.Value
            xlApp = New Microsoft.Office.Interop.Excel.Application
            excelBook = xlApp.Workbooks.Add(misValue)
 
            '   xlCharts = excelWorksheet2.ChartObjects
            '   myChart = excelWorksheet2.ChartObjects.Add(0, 0, 600, 450)
 
            chartPage = myChart.Chart
            chartRange = excelWorksheet.Range(excelWorksheet.Cells(1, 3), excelWorksheet.Cells(rowsTotal + 1, colsTotal + 1))
            chartPage.SetSourceData(Source:=chartRange, PlotBy:=Microsoft.Office.Interop.Excel.XlRowCol.xlColumns)
            chartPage.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlLine
 
            Dim NameFile As String
            If cyclename = "" Or cycleshort = "" Then
                If Directory.Exists(Application.StartupPath.ToString() & "\" & "enregistrement manuel") = False Then
                    Directory.CreateDirectory(Application.StartupPath.ToString() & "\" & "enregistrement manuel")
                End If
                NameFile = Application.StartupPath.ToString() & "\" & "enregistrement manuel" & "\" & "_axe" & axe & "_manu" & "_" & Date.Now.Hour & "h" & Date.Now.Minute & ".xls"
                If File.Exists(NameFile) Then
                    NameFile = Application.StartupPath.ToString() & "\" & "enregistrement manuel" & "\" & "_axe" & axe & "_manu" & "_" & Date.Now.Hour & "h" & Date.Now.Minute & "min" & Date.Now.Second & ".xls"
                End If
            Else
                If Directory.Exists(Application.StartupPath.ToString() & "\" & cyclename) = False Then
                    Directory.CreateDirectory(Application.StartupPath.ToString() & "\" & cyclename)
                End If
                NameFile = (Application.StartupPath.ToString() & "\" & cyclename & "\" & cycleshort & "_axe" & axe & "_auto" & "_" & Date.Now.Hour & "h" & Date.Now.Minute & ".xls")
                If File.Exists(NameFile) Then
                    NameFile = Application.StartupPath.ToString() & "\" & cyclename & "\" & cycleshort & "_axe" & axe & "_auto" & "_" & Date.Now.Hour & "h" & Date.Now.Minute & "min" & Date.Now.Second & ".xls"
                End If
            End If
 
            excelWorksheet2.Cells(1, 1).select()
            excelWorksheet2.SaveAs(NameFile)
            excelBook.Close(False)
            ' xlApp.Quit()
            releaseObject(xlApp)
            releaseObject(excelBook)
            releaseObject(excelWorksheet)
 
            Dim style = MsgBoxStyle.MsgBoxSetForeground
            MsgBox("Exportation terminée avec succès.", style)
 
        Catch ex As Exception
            MsgBox("Export Excel Error " & ex.Message)
        Finally
            'RELEASE ALLOACTED RESOURCES   
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            xlApp = Nothing
        End Try
        Return (True)

Cordialement

Visual Studio 2010 express

PS : dans mes références visual studio Microsoft.office.interop.Excel sa version et la 11 elle ne fera donc pas fonctionner la version 2007 d'office ? Comment puis-je mettre la version 12 en référence sachant que j'ai office 2003 d'installer sur l'ordinateur de programmation.

26/08/2013, 14h41
Neoxaro

Bonjour,

J'ai résolu mon problème par moi même après une semaine de recherche, donc je viens donner ma solution.

Après recherche l'instruction qui ne fonctionnait pas était bien dû a la mauvaise version du interop.Excel qui était en v11.0. J'ai donc était sur un ordinateur qui était sous office 2007 et j'ai extrait le fichier microsoft.office.interop.Excel.dll de l'assembly avec l'invite de commande cmd, un simple "dir vers l'assembly" et ensuite un "copy" m'a permis de récuperer le dll et ensuite le mettre sur le PC avec office 2003 pour l'intégrer comme référence à mon projet

Cordialement
26/08/2013, 22h34
clementmarcotte

Bonjour,

Je n'ai pas le temps actuellement de faire les recherches; mais, sauf modification récente, tous les Primary Interop Assemblies (PIA) d'Office, depuis au moins Office 2002, sont disponibles en téléchargement gratuit sur le site de Microsoft.
27/08/2013, 09h33
Neoxaro

Ils le sont mais installable uniquement avec la bonne version d'office installé sur la machine

Mais bon maintenant c'est réglé
29/08/2013, 07h51
Sankasssss

Citation:

Envoyé par Neoxaro

Mais bon maintenant c'est réglé

Bonjour,

Si tu pouvais mettre comment tu as résolu ton problème ca pourrait aider d'autres personnes tombant sur la discussion par recherche...

Merci. :ccool:
29/08/2013, 09h54
_Ez3kiel

Citation:

Envoyé par Sankasssss

Bonjour,

Si tu pouvais mettre comment tu as résolu ton problème ca pourrait aider d'autres personnes tombant sur la discussion par recherche...

Merci. :ccool:

Citation:

Envoyé par Neoxaro

J'ai résolu mon problème par moi même après une semaine de recherche, donc je viens donner ma solution.

Après recherche l'instruction qui ne fonctionnait pas était bien dû a la mauvaise version du interop.Excel qui était en v11.0. J'ai donc était sur un ordinateur qui était sous office 2007 et j'ai extrait le fichier microsoft.office.interop.Excel.dll de l'assembly avec l'invite de commande cmd, un simple "dir vers l'assembly" et ensuite un "copy" m'a permis de récuperer le dll et ensuite le mettre sur le PC avec office 2003 pour l'intégrer comme référence à mon projet

;)
29/08/2013, 19h28
Sankasssss

:boulet:

Voilà ce qui arrive quand on regarde les discussions trop vite sur son smartphone durant les déplacements en transport en commun...

:dehors:

Merci pour la remarque _Ez3kiel

Hresult 0x80010105 copypicture

Bonjour,
j'ai le même le probléme : sur mon PC fonctionne parfaitement, Sur d'autre PC un message d'erreur se produise :
dans la ligne "xlRange.CopyPicture(Microsoft.Office.Interop.Excel.XlPictureAppearance.xlPrinter, Microsoft.Office.Interop.Excel.XlCopyPictureFormat.xlPicture)"
avec le message : HRESULT 0x80010105
pendant un mois j'ai essayer plusieurs façons (utiliser les même références , utiliser le même NET.Framework) mais je n'arrive pas a résoudre ce problème
Aidez moi SVP cette erreur m'ennuie

Description de code :

Ouvrir fichier Excel, selectioner une range, le copier et le coller en format d'image, exporter l'image dans un emplacement, importer l'image et le charger dans le picturebox de ma form

voila mon code

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
  Try
 
            Dim oExcel As New Microsoft.Office.Interop.Excel.Application
            Dim x As Microsoft.Office.Interop.Excel.Workbook
            Dim ws1 As Microsoft.Office.Interop.Excel.Worksheet
 
            Dim xlRange As Microsoft.Office.Interop.Excel.Range
            x = oExcel.Workbooks.Open("C:\Users\nejib\Desktop\Efficience SATE 2018 ")
 
            ws1 = x.Worksheets("KW")
            xlRange = ws1.Range("A1:O20")
            xlRange.Select()
            xlRange.CopyPicture(Microsoft.Office.Interop.Excel.XlPictureAppearance.xlPrinter, Microsoft.Office.Interop.Excel.XlCopyPictureFormat.xlPicture)
            Dim oChtobj As Microsoft.Office.Interop.Excel.ChartObject = ws1.ChartObjects.add(Left, Top, Height, Width)
            Dim oCht As Microsoft.Office.Interop.Excel.Chart
            oCht = oChtobj.Chart
            oCht.Paste()
            oCht.Export(Filename:="C:\Users\nejib\Desktop\DG.jpg")
            oChtobj.Delete()
            Using monstream As New IO.FileStream("C:\Users\nejib\Desktop\DG.jpg", IO.FileMode.Open)
                PictureBox1.Image = Image.FromStream(monstream)
            End Using
            Me.Refresh()
 
        Catch ex As Exception
 
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

Merci d'avance