Discussion :

[ancel17]

Bonjour,

J'ai lu cette discussion.
J'ai une erreur qui me dit Image incorrecte...
Alors du coup j'ai une grosse envie de dire "Mais euuuuuuhhhhhhh... "

Voici le code :

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
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
 
Dim wb As Workbook
Dim fl As Worksheet
Dim c As Range
 
Set wb = ThisWorkbook
Set fl = wb.Worksheets("Résultat")
 
For Each c In fl.Range("B2:I" & fl.Cells.SpecialCells(xlCellTypeLastCell).Row).Cells
Debug.Print wb.Path, c.Value * 2 & "star.png"
    c.Picture = LoadPicture(wb.Path & "\etoiles\" & c.Value * 2 & "star.png")
Next c
 
Application.ScreenUpdating = True
End Sub

[sabzzz]

bonjour ancel17,

ajoute cette ligne,

Code :

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

Application.DefaultWebOptions.AllowPNG = True

[ancel17]

Salut et merci sabzzz !

Ceci dit, j'ai toujours la même erreur au même endroit :

Code :

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

c.Picture = LoadPicture(wb.Path & "\etoiles\" & c.Value * 2 & "star.png")

Par contre, c correspond à une cellule, donc je me demande si le problème ne viendrait pas de là...

[patricktoulon]

je pense que ca corigeraie l'erreur

Code :

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

c.Picture = LoadPicture(wb.Path & "\etoiles\" & c.Value * 2 & "\star.png")

au plaisir

[ancel17]

Merci de ta participation, mais non !

l'erreur est "image incorrecte", pas "chemin d'accès introuvable"...

Du coup j'ai fait autrement :

Code :

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

ActiveSheet.Pictures.Insert ("Chemin d'accès de l'image")

[patricktoulon]

bonjour c'est encore une facon plus facile

effectivement quand on manipule les "png" ca bug de temp en temp