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()
Range("A1:AD23").Select
Selection.Copy
TheEditor = "C:\WINDOWS\system32\mspaint.exe"
TaskId = Shell(TheEditor, 1)
Application.SendKeys "^{V}", True
Application.SendKeys "^{S}", True
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 ? une histoire de temporisation...?
Merci par avance.
Lanic.
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()
Range("A1:AD23").Select
Selection.Copy
TheEditor = "C:\WINDOWS\system32\mspaint.exe"
TaskId = Shell(TheEditor, 1)
Application.SendKeys "^{V}", True
Application.SendKeys "^{S}", True
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 ? une histoire de temporisation...?
Merci par avance.
Lanic.