Discussion :

[JJCODO]

J'ai des fiches Excel (DURANT Paul.xlsm) contenant entre autre Nom (cellule E7), Prénom (cellule I7) et 1 photo (cellules fusionnées L7 :M15).
Ces fiches sont dans le répertoire c:\Mes documents\Fiches\.
Après ouverture du fichier "DURANT Paul.xlsm", je voudrais par une macro pouvoir enregistrer la photo (uniquement) au format JPG (suivant la méthode ci-dessous) avec comme nom de fichier l'année en cours et le contenu des cellules Nom et Prénom soit par exemple : 2014/10/05 DURANT Paul.jpg.

Méthode d'enregistrement d'une image en conservant sa définition d'origine :

Ouvrir le document Excel contenant l'image exemple : "DURANT Paul.xlsm"
L'enregistrer au format : Page Web (*.htm;*.html)
(répondre oui aux questions posées par Excel)
Dans le répertoire (Fiches) de "DURANT Paul.xlsm" un nouveau dossier est créé : "DURANT Paul_fichiers"
En ouvrant ce dossier on trouve "Image 00X.png".
Cette image peut être alors enregistrée au format .JPG dans le dossier Fiches

La méthode (donnée dans le forum) qui consiste à coller l'image dans un graphique puis de sauver au format image procure une perte de définition de l'image peu acceptable.

Je n'ai pas trouvé dans le forum quelque chose qui correspond à ma recherche et je n'ai pas suffisamment de connaissance en VBA pour savoir si cela est possible. Dans le doute, quelqu'un pourrait-il m'aider ? Merci d'avance

[clementmarcotte]

Bonjour,

À mon humble avis, la conversion de formats de fichiers d'images n'est absolument pas le point fort d'Excel, ni de VBA d'ailleurs. La voie qui me semble la plus prometteuse est d'utiliser une bibliothèque spécialisée dans la manipulation d'images et pilotable par VBA.

Je sais qu'il existe la bibliothèque gratuite ImageMagick qui pourrait probablement faire cela

http://www.imagemagick.org/

Cependant, il faut être prudent au moment de l'installation et cocher la case pour installer l'activex pour VB6-VBA-VBScript. (Je ne me souviens pas de la formulation exacte.)

[JJCODO]

Merci Clement pour cette réponse.

A priori ma requête ne semble pas facile a résoudre.
Je vais m'orienter vers d'autres solutions moins automatisées.

[ESVBA]

Cafeine a répondu à la question, il y a bien longtemps :

http://www.developpez.net/forums/d25...f/#post1636854

Si l'on ne sélectionne pas la plage de cellules manuellement, on peut la fixer directement dans le code ou choisir le nom Excel de l'image.


Bonne soirée.


ESVBA

[clementmarcotte]

Bonjour,

On peut aussi regarder par là.


http://silkyroad.developpez.com/VBA/...geAcquisition/


P.S. La solution de Caféine est en GIF. Mais comme je n'ai jamais utilisé son composant, je ne sais pas s'il supporte JPEG.

[ESVBA]

On peut changer le format assez facilement. Pour du "jpg" :

1. Suppression du

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   & ".gif"

2. Et nommage des extensions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ' export
varFullPath = Application.GetSaveAsFilename("C:\export-" & Format(Now, "yyyymmddhhnn"), _
                "Fichiers JPEG (*.jpg), *.jpg")           '*.JPG  pour afficher le bon format
ActiveChart.Export varFullPath, "JPG"                 '"JPG" pour enregistrer dans le bon format

ESVBA