Exporter une image d'excel vers un repertoire

[anismegrine]

Bonjour à tous,

j'ai besoins de vos lumières.
je bloque depuis quelques jours sur une macro.
j'ai plusieurs fichiers excel contenants des photos d'identité dans la feuille 3 cellule A1
je cherche une macro qui m'enregistre la photo dans le bureau tout en gardant le nom de l'image et en format JPG.
pouvez vous m'aider SVP.
merci d'avance.

 

[camarchepas]

Re : Exporter une image d'excel vers un repertoire

Bonjour ,

Il nous faudrait au moins un classeur avec une photo complétement bidon ; la tour eiffel ou autre ,

Mais stockée de la même maniére que dans ton vrai fichier.

afin d'avoir la réponse appropriée à ta question

L'autre chose , pourquoi vouloir tous stocker sur le bureau , alors qu'un répertoire dédié directement dans l'arborescence du DD serait plus pertinant .

 

[Roland_M]

Re : Exporter une image d'excel vers un repertoire

bonjour,

EDIT: salut à toi camarchepas !

voir cette macro à adapter mais qui fonctionne très bien !
voir simplement l'initialisation des variables à adapter !
le chemin est celui du classeur en cours ! ThisWorkbook.Path

Private Sub SaveImageJPG()

'initialisation des vars
Image$ = "image 1" '<<<<<<<<<<<< nom de l'image !?
Feuil$ = "Feuil3" '<<<<<<<<<<<<< nom de la feuille !?
Chemin$ = ThisWorkbook.Path '<<< chemin sauvagarde !?
'----------------------------------------------------

'--- ne rien modifier ci-dessous -------------------
'--- création du fichier JPEG---
CheminImage$ = Chemin$ & "\" & Image$ & ".jpg"
With Sheets(Feuil$).Pictures(Image$)
 .CopyPicture
  Workbooks.Add 'nouveau document
  With ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Chart
   .Paste: .Export CheminImage, "JPG"
  End With
  [Z1000].Copy [Z1000] 'vide le presse-papier
  ActiveWorkbook.Close False 'fermeture du document
End With

'---chargement de l'image---
'Image1.Picture = LoadPicture(Chemin)
End Sub