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+