Macro enregistrer image

Bonsoir,

ton lien n'est pas valide fait comme ceci
1) Clic sur ce lien https://www.cjoint.com/
2) Clic sur le bouton Parcourir pour sélectionner ton fichier
3) Clic sur le bouton Créer le lien en bas de la page
4) Au bout de quelques secondes en haut de la page en bleu souligné un lien sera généré, tu le sélectionnes et tu le copies dans une réponse

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

essaye comme cela si le chemin du fichier est bon

Option Explicit

Sub enregistre_image()
Dim sh As Shape, img As Object
Dim nom As String
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 1) <> "B" Then
nom = Range(sh.TopLeftCell.Address).Offset(0, -1).Text
nom = "C:\Users\virginie\Pictures\" & nom & ".jpg"
sh.CopyPicture xlScreen, xlPicture
Set img = ActiveSheet.ChartObjects.Add(0, 0, sh.Width * 1.25, sh.Height * 1.25)
img.Chart.Paste
img.Chart.Export nom, "jpg"
img.Delete
End If
Next sh
End Sub

Re,

bizarre, je viens de retester sans problème, j'ai ajouté une gestion d'erreur pour ne pas bloquer le code.
enregistre le fichier et teste le, avec ce fichier les images s’enregistreront dans le même répertoire, on verra plus tard comment les copier dans le répertoire voulue
https://www.cjoint.com/c/FFjgOcMqsXj

Re,

regarde ton fichier en retour, il te suffit de l'enregistrer dans un dossier et cliquer sur le bouton.
je l'ai enregistré avec l'extension xls mais tu peux l'enregistrer sous et lui donner l'extension xlsm mais surtout pas xlsx, cette extension ne prends pas en compte les macros
https://www.cjoint.com/c/FFjmRCTKY6j
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.