Bonjour a tous !
Je suis actuellement bloqué sur un problème, en effet j'ai réussi a créer une image.jpg d'une plage de donnée. J'aimerai ensuite qu'une boite de dialogue s'ouvre pour me demander ou je souhaite enregistrer mon image créé...
J'arrive actuellement a enregistrer a un endroit donnée mon image mais pas a faire apparaître la fenêtre "enregistrer sous"...
Je vous met mon code.
Je souhaiterai également qu'il me supprime l'image creer qui est dans mon fichier excel...
Merci beaucoup par avance !!!
Je suis actuellement bloqué sur un problème, en effet j'ai réussi a créer une image.jpg d'une plage de donnée. J'aimerai ensuite qu'une boite de dialogue s'ouvre pour me demander ou je souhaite enregistrer mon image créé...
J'arrive actuellement a enregistrer a un endroit donnée mon image mais pas a faire apparaître la fenêtre "enregistrer sous"...
Je vous met mon code.
Je souhaiterai également qu'il me supprime l'image creer qui est dans mon fichier excel...
Merci beaucoup par avance !!!
Code:
Sub image()
sheets(1).Range("A7:F27").CopyPicture
'L'image est collée dans la feuille active
sheets(1).Paste
Application.ScreenUpdating = False
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Mes_documents\test\Jour".jpg", "jpg" 'ici je souhaiterais que la boite de dialogue s'ouvre pour me demander ou enregistrer l'image...
sheets(1).ChartObjects.Delete
End With
End Sub