Afficher une image depuis range dans un contrôle image d'un userform

Version imprimable

Bonjour,
Je sèche complètement.

J'ai trouvé un code pour afficher une image depuis range dans un contrôle image d'un userform:
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 Sub CompteRendu() repertoire = ThisWorkbook.Path Set f = Sheets("XXXX") Set champExport = f.Range("CC1:CJ12") champExport.CopyPicture Set co = f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height) co.Chart.Paste co.Chart.Export repertoire & "\" & "imageExport.gif", "gif" UserForm3.Image1.Picture = LoadPicture(repertoire & "\" & "imageExport.gif") UserForm3.Show f.ChartObjects(1).Delete Kill repertoire & "\" & "imageExport.gif" End Sub
Qui fonctionne parfaitement bien ...... mais uniquement en pas à pas détaillé, en lancement par Exécution il n'y a aucune image dans le userform????

L'erreur de ma part doit être grosse comme un éléphant dans un couloir mais je passe au travers....

Merci du coup de main

22/04/2022, 10h18
Kestion100

En pas à pas détaillé, je vois bien l'image se copier dans le chart, le fichier se créer, avec bien une image dedans et l'image 1 du userform est bien l'image voulu.
En exécution, le chart reste vide etc....

????

Trouvé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sheets("XXXX").Activate
repertoire = ThisWorkbook.Path
Set f = Sheets("XXXX")
Set champExport = f.Range("CC1:CJ12")
 
champExport.CopyPicture
Set co = f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height)
 
 
f.ChartObjects(1).Activate
    ActiveChart.Paste
 
 
co.Chart.Export repertoire & "\" & "imageExport.gif", "gif"
 
UserForm3.Image1.Picture = LoadPicture(repertoire & "\" & "imageExport.gif")
UserForm3.Show
f.ChartObjects(1).Delete
Kill repertoire & "\" & "imageExport.gif"