Enregistrer image D'excel vers JPG

[vinpp]

J'ai une erreur au niveau de la ligne .
VBA me renvoit une erreur 1004.

QUI PEUT M'AIDER CAR CA COMMENCE A ME FAIRE c....

Dim x As Byte
Dim Sh As Shape
Dim monImage As String


'Compte le nombre d'objet initial dans la feuille
x = ActiveSheet.Shapes.Count

Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
'Colle le contenu du presse papier dans la feuille de calcul
ActiveSheet.Paste

'vérifie si le collage effectué correspond à une image
If x = ActiveSheet.Shapes.Count Then
Application.ScreenUpdating = True
MsgBox "Opération annulée"
Exit Function

Else

'Récupère la dernière forme de la feuille
Set Sh = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
'Définit le nom et le lieu de stockage de l'image
monImage = "C:\monImage.jpg"

'Colle l'image dans un graphique
With ActiveSheet.ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
.Paste
'Sauvegarde l'image du graphique au format jpg
.Export monImage, "JPG"
'End With


'Supprime le graphique et la forme.
With ActiveSheet
.ChartObjects(ActiveSheet.ChartObjects.Count).Delete
.Shapes(ActiveSheet.Shapes.Count).Delete
End With

Application.ScreenUpdating = True
End If

 

[Compte Supprimé 979]

Re : Enregistrer image D'excel vers JPG

Salut VinPP,

Le fichier "monimage.jpg" ne serait pas déjà existant sur ton "C:\"
par hasard !?

Sinon supprime le et essaye de nouveau ton code.

A+