Discussion :

[mimicor15]

Bonjour le forum

Dans mon programme j'appelle une image d'un graphique dans un userform. Quand je ferme l'userform et le programme il reste l'icone de l'image temporaire sur mon bureau.

Code :

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

1
2
Fname = ThisWorkbook.Path & "\temp2.gif"                                       ' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
CurrentChart.Export Filename:=Fname, FilterName:="GIF"

je souhaite si possible que l'image temporaire soit effacer du bureau en même temps que je ferme l'userform et je n'arrive pas à trouver la ligne de code.

Merci pour votre aide

Une partie du code," plusieurs graphiques" je ne les mets pas tous, trop long!

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
Private Sub b_fin_Click()
  Unload Me                                                                    'decharge le formulaire
 
 
End Sub
 
Private Sub CommandButton8_Click()                                             'courbe nb  jours
Call Compte_jours                                                              ' applique  la procédure (compte jours décalaration dans le module 2)
'Sheets("courbe jours").Select                                                 ' active la feuille contenant le graphique la feuille s'appelle courbe jours
ActiveWorkbook.RefreshAll                                                      ' raffraichir les données du tableau croisé dynamique
Set CurrentChart = Sheets("courbe jours").ChartObjects(1).Chart                ' référencé l'objet CurrentChart, là dans l'exemple, c'est le 1er graphique "ChartObjects(1)"
Sheets("courbe jours").ChartObjects("Graphique 1").Activate                    ' active le graphique qui s'appelle "Graphique 1"
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"                                       ' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm6.Image1.Picture = LoadPicture(Fname)                                  ' ensuite j'ai créé un UserForm (userform6) avec juste une image (vierge, qui s'appelle Image1), qui charge donc l'image venant d'être enregistré.
 
End Sub
 
Private Sub Equipe_Click()                                                        'Graphes équipes
 
Sheets("Graphes équipes").Select                                                  ' active la feuille contenant le graphique la feuille s'appelle Graphes équipes
ActiveWorkbook.RefreshAll                                                         ' raffraichir les données du tableau croisé dynamique
Set CurrentChart = Sheets("Graphes équipes").ChartObjects(1).Chart                ' référencé l'objet CurrentChart, là dans l'exemple, c'est le 1er graphique "ChartObjects(1)"
Sheets("Graphes équipes").ChartObjects("Graphique 1").Activate                    ' active le graphique qui s'appelle "Graphique 1"
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"                                          ' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm6.Image1.Picture = LoadPicture(Fname)                                     ' ensuite j'ai créé un UserForm (userform6) avec juste une image (vierge, qui s'appelle Image1), qui charge donc l'image venant d'être enregistré.
 
End Sub

[pijaku]

Bonjour,

Code :

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

Kill chemin_complet_d_acces_au_fichier_image

[mimicor15]

Bonjour et merci pour la réponse
Je viens de faire un essai, mais ça ne fonctionne pas. Surbrillance jaune sur l'adressage

Une idée?



Peut être qu'il faut décharger le cadre image qui reçoit l'image avant?

[pijaku]

chemin_complet_d_acces_au_fichier_image
était un exemple...

Code :

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

Kill ThisWorkbook.Path & "\temp2.gif"

Kill est suivi du chemin du fichier.
Exemple :

Code :

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

Kill "C:/Repertoire/Donssier/exemple.gif"

[mimicor15]

Nickel merci pour le coup de main