Copie "image 1" de Feuil Excel sur Bureau

[néné06]

Bonjour le Forum

L'explication est simple, mais je cale sur la résolution.
Je cherche à transférer une image placée sur une feuille Excel (ex:"image 1"),
soit sur le Bureau, soit dans un dossier adjacent et si possible dans le format
"JPG"

Merci à tous.

 

[tototiti2008]

Re : Copie "image 1" de Feuil Excel sur Bureau

Bonjour néné06,

je suppose que tu souhaites le faire avec VBA...
La technique classique consiste à créer un graphique vide, à coller l'image dedans et à exporter le graphique en JPG, mais ça laisse un bord blanc autour de l'image :

Export an Image from Excel Sheet to Hard Drive - VBForums

 

[néné06]

Re : Copie "image 1" de Feuil Excel sur Bureau

Bonjour tototiti2008
J'ai essayé en VBA avec la méthode du graph mais à chaque sauvegarde, ma feuille enfle
de 4MO par photos.
j'ai pourtant placé les instructions .
ActiveSheet.Chartobjets.Delete
ActiveSheet.Pictures.Delete
Je pensai qu'une instruction simple VBA du style "Savepicture\chemin" existait

Merci
A+

 

[néné06]

Re : Copie "image 1" de Feuil Excel sur Bureau

Bonjour tototiti2008

Est-il possible que suite à l'instruction
Application.Dialogs(xlDialogInsertPicture).Show
l'image ne soit pas placée sur Excel mais dans un dossier de son choix ????

Merci

 

[tototiti2008]

Re : Copie "image 1" de Feuil Excel sur Bureau

Re,

en fait tu n'as pas du tout besoin d'insérer l'image dans Excel, juste de la copier à un autre endroit ?

si c'est le cas, tu peux copier un fichier comme ça :

Sub test()
Dim FS
    Set FS = CreateObject("Scripting.Filesystemobject")
    FS.copyfile "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg", "C:\"
End Sub

 

[néné06]

Re : Copie "image 1" de Feuil Excel sur Bureau

Re,
Je cherche à copier une image sur le bureau ,mais j'ai la boite de dialogues qui s'ouvre dans ma Userform et en recherchant et validant l'image , je la retrouve sur la feuille Excel.
Je ne trouve pas de commande pour la déposer ailleur.

 

[néné06]

Re : Copie "image 1" de Feuil Excel sur Bureau

Re
Pour palier à la prise de poids de ma feuille Excel, j'ajoute une feuille excel temp sur laquelle
mes graphisme se dépose , je transfert l'image dans le dossier et je supprime ma feuille temp.
Ma feuille ne prend donc pas les 4 MO par photo

Merci pour tout

A+