Discussion :

[Sebastien_INR59]

Bonjour,

J'aimerais insérer une image dans une cellule de feuille Excel à partir d'une ligne de code vba sur access.

Une ligne dans ce genre mais avec une image au lieu d'une variable :

vClasseurExcel.Worksheets(1).Cells(7, 7).Value = vPourcentNQ

Est-ce possible ?
Quelqu'un pourrait-il m'aider ?


Cordialement.
Sébastien

[Muhad'hib]

Voila un exemple de code que j'utilise :

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
 
Dim objPict As Picture
Dim Hauteur, Largeur, Rapport  As Double
 
Set objPict = ExcelSheet.Sheets(1).Pictures.Insert(path)
With objPict
 
    .Left = ExcelSheet.Sheets(1).Range("I31").Left + 10
    .Top = ExcelSheet.Sheets(1).Range("I31").Top
    Hauteur = .Height
    Largeur = .Width
    Rapport = Hauteur / Largeur
    If Rapport >= 140 / 260 Then
        .Height = 140
        .Width = 140 / Rapport
    Else
        .Width = 260
        .Height = 260 * Rapport
    End If
 
 
End With

En espérant que cela te sera utile

A+