Bonsoir à tous,

Je cherche une méthode pour copier une image d'un groupe de cellules directement sur le disque dur.
Dans les "F.A.Q. Excel", rubrique "24. Les Images", je pensais avoir trouvé la solution avec le code qui est proposé sous la question "Comment exporter toutes les images d'une feuille sur le disque dur ?".

Dans le principe, c'est exactement ce qu'il me faut.
Le problème c'est que la macro marche très bien lorsque je fais du pas à pas avec F8, mais elle ne marche plus lorsque je la déroule en mode normal avec F5.
En fait, l'action "Paste" du bloc de lignes :
With Worksheets("Grille").ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\" & nom_fic & ".jpg", "JPG"
End With
ne fonctionne pas.

Quelqu'un sait-il pourquoi ? Avez-vous une solution ?

Je vous remercie.

HyeJack