Macro enregistrer image
Résolu
devi16
Messages postés
65
Statut
Membre
-
Mike-31 Messages postés 19571 Statut Contributeur -
Mike-31 Messages postés 19571 Statut Contributeur -
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
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
A voir également:
- Macro enregistrer image
- Audacity enregistrer son pc - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Image iso - Guide
- Comment enregistrer une conversation - Guide
- Enregistrer son ecran - Guide
4 réponses
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.
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.
devi16
Messages postés
65
Statut
Membre
Bonjour, je n'est pas mis de lien ces juste pour que les personne qui peuvent m'aider sache ou je veux mettre les image.
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
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
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.
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.