Exporter une feuille en tant qu'image

[itoine]

Bonjour,

Je dispose d'un classeur Excel composés de plusieurs feuilles et graphes que je voudrais exporter en tant que fichiers images (jpg, png ou autre).

Pour exporter un graphe en image, aucun prob

Set Graph = Sheets("Graphe 1")
Graph.Export "P:\perso\graphe 1.png", "png"

Par contre, je voudrais également sortir en image les feuilles, et ca, je sais pas faire.

Merci de votre aide 🙂

 

[Dan]

Re : Exporter une feuille en tant qu'image

Bonjour,

Sans macro, pourquoi ne pas utiliser le petit utilitaire "photo" fourni par Excel.
- VAs dans menu/outils/personnaliser barre d'outils
- dans la fenêtre sélectionne l'onglet "commande"
- dans catégorie, sélectionne outils et à droite va chercher ce petit icone "appareil photo" que tu fais glisser dans ta barre d'outils excel. Clique sur Ok pour fermer la fenêtre.
- sélectionne la feuille en question puis clique ensuite sur cette icone photo
- positionne toi où tu veux sur ta feuille et sélectionne la zone où tu veux voir cette photo ou vas dans un autre document (word) et fais "coller".

Si pb n'hésite pas.

 

[itoine]

Re : Exporter une feuille en tant qu'image

merci mais ca ne correspond pas a l'utilisation que j'en attend.

pour l'instant j'ai créé un bouton qui permet de sortir les images de tous les graphes.
je voudrais que ca soit egalement automatique pour les tables.

 

[CB60]

Re : Exporter une feuille en tant qu'image

Bonjour Itoine et Dan,
peut être de cette façon.
Bruno

 

[itoine]

Re : Exporter une feuille en tant qu'image

oui merci, je pense que c'est le début de ma solution

maintenant, il faut que ça génère un fichier jpg ou pgn plutot que de copier/coller d'une feuille à l'autre...

 

[itoine]

Re : Exporter une feuille en tant qu'image

merci
C'est bon j'ai trouvé 🙂

source : Ce site n'existe plus

Dim Plage As range
' Exportation en .gif de la plage A1:I25 (feuille active)
Set Plage = ActiveSheet.range("A1:I25")
Application.ScreenUpdating = False
Workbooks.Add : Plage.CopyPicture : ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Temp\Test.gif", "GIF"
End With
ActiveWorkbook.Close False

 

[edlinger]

Re : Exporter une feuille en tant qu'image

Excellent !!!

 

[ashy]

Re : Exporter une feuille en tant qu'image

merci pour cette excellente solution, pas trouvé mieux😉

 

[JBC]

Re : Exporter une feuille en tant qu'image

bonjour et merci itoine pour cette macro qui fonctionne,
seulement elle ne me permet pas de creer des images à partir de grosses feuilles excel (environ 800 lignes et 1280 colonnes)
en effet l'image créer se limite à environ 100 lignes et 100 colonnes
quelqu'un à une solution pour adapter le code de la macro ?
merci d'avance
jbc