Soucis Export Image vers Excel en VB.net

Version imprimable

Bonjour

Je n'arrive pas à exporter une image vers Excel en VB.net malgré mes nombreuses recherches et essais trouvés sur le net !!!

Voici mon code de base et soucis ligne 47:

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
 
Dim ExcelApp As Object, ExcelBook As Object
            Dim ExcelSheet As Object
            Dim i As Integer
            Dim j As Integer
 
            ' Minimum à 1 
            ProgressBar1.Minimum = 0
            ' Maximum= nombre total de fichier à copier.
            'ProgressBar1 = filenames.Length
            ' On initialise la ProgressBar.
            ProgressBar1.Value = 1
            ' On indique le pas.
            ProgressBar1.Step = 6
            ProgressBar1.Style = ProgressBarStyle.Continuous
            ProgressBar1.Visible = True
 
            'Export Excel
            ExcelApp = CreateObject("Excel.Application")
            ExcelBook = ExcelApp.WorkBooks.Add
            ExcelSheet = ExcelBook.WorkSheets(1)
 
            Dim c As Color
            Dim titre As String
            With ExcelSheet
                titre = nom & " " & prenom
                If numero <> "" Then titre = titre + " - N° Référant Pôle Emploi: " & numero
                ExcelSheet.Cells(1, 1).value = titre
                For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                    ExcelSheet.Cells(3, col.Index + 1).Font.Color = System.Drawing.ColorTranslator.ToOle(Color.White)
                    ExcelSheet.Cells(3, col.Index + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(Color.Black)
                    ExcelSheet.Cells(3, col.Index + 1) = col.HeaderText.ToString
                    For i = 1 To Me.DataGridView1.RowCount - 1
                        ExcelSheet.cells(i + 3, 1) = Me.DataGridView1.Rows(i - 1).Cells("numero_offre").Value
                        For j = 0 To DataGridView1.Columns.Count - 1
                            ExcelSheet.cells(i + 3, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
                            c = DataGridView1.Rows(i - 1).Cells(j).Style.BackColor
                            Dim value As Integer = c.ToArgb()
                            Dim hex As String = value.ToString("X6")
                            If hex <> "000000" Then 'MessageBox.Show(MyColor.Name)
                                ExcelSheet.Cells(i + 3, j + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(c)
                            End If
                        Next
                    Next
                ExcelSheet.Cells.font.size = 8
	'--------------------- Export image vers Excel -----------------------------------------------
                ExcelSheet.Pictures.Add(i + 1 + 3, 1, "images\code_couleur_legende.jpg") ' <------------------
	'---------------------------------------------------------------------------------------------
                ExcelSheet.Cells(i + 1 + 12, 1).value = "© Copyright 2017 - DP - EMPLOI Suivi®"
                    ExcelSheet.Cells(i + 1 + 13, 1).value = "Site EMPLOI Suivi : http://contact72.free.fr//sites/EMPLOI_Suivi/"
                    ProgressBar1.PerformStep()
                Next
            End With

Pouvez-vous m'aider à résoudre ce problème ?

Merci à tous

Cordialement.

:calim2:

Bonjour,

une rapide recherche me donne ce lien et donc ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
With xlApp.ActiveSheet.Pictures.Insert(PicPath)
    With .ShapeRange
        .LockAspectRatio = msoTrue
        .Width = 75
        .Height = 100
    End With
    .Left = xlApp.ActiveSheet.Cells(i, 20).Left
    .Top = xlApp.ActiveSheet.Cells(i, 20).Top
    .Placement = 1
    .PrintObject = True
End With

A adapter au votre bien entendu.

27/10/2017, 09h34
didpoy

merci

Bonjour

Ok Merci, je vais essayer le code...

Cordialement.

:mrgreen:
27/10/2017, 09h52
didpoy

re

re

j'ai une erreur au niveau de la ligne d'insertion : Informations supplémentaires : Le membre public 'ActiveSheet' du type 'Worksheet' est introuvable !!!

Je suppose que je dois mettre un élément dans Import mais lequel ?

Merci.
27/10/2017, 11h15
Sankasssss

Avec votre code ce sera plus facile ;-)
27/10/2017, 11h30
didpoy

re
Mon code complet est dans le premier post !!!

J'ai réussi à importer mon image avec ce code:
Code:

1 2 ExcelSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg", True, True, 1, (i + 1 + 3) * 10, 150, 80)
Mais la position est en pixel et non dans la case spécifique (i+1+3,3)

Si je veux utiliser un range, il me faut mettre un Imports Microsoft.Office.Interop.Excel
mais je rentre en conflit avec Imports System.Drawing que j'utilise avec Drawing.Rectangle utilisé pour d'autres circonstances dans mon code !!!!

Bon, c'est de la bidouille et l'image s'affiche bien dans Excel à une position aléatoire (1, (i + 1 + 3) * 10)...

J'aimerai vraiment que l'image s'affiche dans la cellule précise, alors je cherche pour trouver une solution...

Merci.
27/10/2017, 13h26
Sankasssss

Citation:

Envoyé par didpoy

Mon code complet est dans le premier post !!!i.

Le code que je demandais n'était pas celui de votre premier message mais celui que vous avez essayé d'adapter et qui a levé une erreur.

Citation:

Envoyé par didpoy

Si je veux utiliser un range, il me faut mettre un Imports Microsoft.Office.Interop.Excel
mais je rentre en conflit avec Imports System.Drawing que j'utilise avec Drawing.Rectangle utilisé pour d'autres circonstances dans mon code !!!!

Les imports ne sont pas obligatoir, vous pouvez ne rien importer et mettre le namespace complet ou alors vous pouvez n'en importer qu'une partie et mettre l'autre partie dans le code.

Citation:

Envoyé par didpoy

J'aimerai vraiment que l'image s'affiche dans la cellule précise, alors je cherche pour trouver une solution....

La solution se trouve dans le code que je vous ai donné.

Re

Ok j'ai re-manipulé les choses en me basant sur votre code et j'ai trouvé cette solution qui positionne l'image selon le nombre de ligne de la Datagrid:

Code:

1
2
3
4
 
Dim T As Single
T = ExcelSheet.Cells(i + 1 + 3, 5).Top
ExcelSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg", True, True, 1, T, 150, 80)

Sinon, votre code que j'avais adapté:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
With ExcelSheet.ActiveSheet.Pictures.Insert(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg")
With .ShapeRange
.LockAspectRatio = True
.Width = 150
.Height = 80
End With
.Left = ExcelSheet.ActiveSheet.Cells(i + 1 + 3, 5).Left
.Top = ExcelSheet.ActiveSheet.Cells(i + 1 + 3, 5).Top
.Placement = 1
.PrintObject = True
End With

qui me renvoie l'erreur : Le membre public 'ActiveSheet' du type 'Worksheet' est introuvable sur la première ligne.

si je vire ActiveSheet:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
With ExcelSheet.Pictures.Insert(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg")
                    With .ShapeRange
                        .LockAspectRatio = True
                        .Width = 150
                        .Height = 80
                    End With
                    .Top = ExcelSheet.Cells(i + 1 + 3, 5).Top
                    .Placement = 1
                    .PrintObject = True
                End With

Votre code Fonctionne parfaitement aussi.

Merci.

27/10/2017, 14h15
Sankasssss

Effectivement, dans le code que je vous ai donné c'est sur l'application qu'il cherche l'activesheet (logique)

Code:

With xlApp.ActiveSheet.Pictures.Insert(PicPath)

Alors que vous avez essayé sur directement sur une feuille :

Code:

With ExcelSheet.ActiveSheet.Pictures.Insert(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg")

Donc c'est logique qu'en enlevant "ActiveSheet" ça fonctionne, vu que vous êtes sur la feuille où vous travaillez ^^
27/10/2017, 16h05
didpoy

re

OK

Tout fonctionne... :P

Merci pour votre aide très utile.

Bon Courage.

Cordialement.