Soucis Export Image vers Excel en VB.net

**didpoy** · 26/10/2017, 12h50

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 :

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

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.

**Sankasssss** · 26/10/2017, 16h58

Bonjour,

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

Code :

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

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.

**didpoy** · 27/10/2017, 09h34

Bonjour

Ok Merci, je vais essayer le code...

Cordialement.

**didpoy** · 27/10/2017, 09h52

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.

**Sankasssss** · 27/10/2017, 11h15

Avec votre code ce sera plus facile ;-)

**didpoy** · 27/10/2017, 11h30

Mon code complet est dans le premier post !!!

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

Code :

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

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.

**Sankasssss** · 27/10/2017, 13h26

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.

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.

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é.

**didpoy** · 27/10/2017, 13h43

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 :

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

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 :

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

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 :

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

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.

**Sankasssss** · 27/10/2017, 14h15

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

Code :

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

With xlApp.ActiveSheet.Pictures.Insert(PicPath)

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

Code :

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

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 ^^

**didpoy** · 27/10/2017, 16h05

OK

Tout fonctionne...

Merci pour votre aide très utile.

Bon Courage.

Cordialement.

Soucis Export Image vers Excel en VB.net

VB.NET

Discussions similaires

Partager

Partager