Macro enregistrer image Résolu/Fermé

Question

Bonjour;
J'ai un fichier avec deux colonne une avec du textes (A) et l'autre avec des images (B).
Je voudrais enregistrer les images dans un dossier en associent le texte comme nom de l'image.
Connaissez-vous une macro ?
voici le lien vers le dossier;
C:\Users\virginie\Pictures
Merci

Mike-31 · Answer

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.

Mike-31 · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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.

Macro enregistrer image

4 réponses

Discussions similaires

Newsletters