VBA export Excel vers image sous MSPAINT

Bonjour,

Sous Excel 2007, je souhaite automatiser le capture d'une plage de cellules, exporter une copie de cette sélection vers MSPAINT, la coller et enregistrer l'image en .png.

Voici le code que j'utilise :

Sub EditPics()

End Sub

La capture fonctionne bien, la copie aussi, le lancement de MSPaint aussi, puis plus rien, aucune image ne se colle ni ne s'enregistre....

Avez-vous une idée du pourquoi du comment ?

Merci par avance.

Lanic.

Le w.e. porte conseil : réponse trouvée, il y avait un problème de temporisation, corrigé de la sorte :

Sub paintum()
Range("A1:AD23").Select
Selection.Copy
ReturnValue = Shell("C:\WINDOWS\system32\mspaint.exe", 3)
Application.Wait Now + TimeValue("00:00:01")
SendKeys " ", True
SendKeys "^v", True
SendKeys "^s", True
SendKeys "%e", True        ' Save
DoEvents
Application.Wait Now + TimeValue("00:00:01")
SendKeys "%{F4}", True 'Close MS Paint
DoEvents

End Sub

@Lanic