Discussion :

[M1k3_38]

Bonjour à tous,

Je suis un grand débutant dans le mode de la macro (je n'en ai jamais fait), mais j'ai exceptionnellement un besoin qui nécessite ce type d'outil. J'ai bien conscience que l'idéal serait de me former à la programmation, ou à minima à la compréhension du code VBA, mais le temps m'en empêche pour ce besoin précis.

A partir d'un classeur excel comprenant plusieurs feuilles, je souhaiterais sur chacune d'entre elles avoir un bouton permettant d'enregistrer automatiquement la feuille dans un dossier défini au format JPG. Le nom devrait être celui du classeur, et s'il peut être suivi par celui de la feuille ça serait parfait.

A ce niveau, ce que je sais, c'est qu'il est possible d'insérer une forme, cliquer droit dessus et mettre associer à une macro. Je sais aussi que PDFcreator permet d'enregistrer sous forme JPG. Mais mes connaissances s'arrêtent là. En cherchant sur le forum, j'ai trouvé plusieurs codes permettant d'enregistrer ne serait-ce qu'en pdf. Mais je dois mal m'y prendre pour l'insérer dans un fichier excel car quand j'appuie sur le petit bouton play de "Visual Basic pour Applications", il me met systématiquement une erreur. Par exemple, "Un composant ActiveX ne peut pas créer d'objet".

Bref, je m'en excuse, mais il me faudrait de l'aide pour intégrer ça à partir du début, car j'ai peur qu'un "simple" code ne me permette pas d'arriver à une solution fonctionnelle.

Je vous remercie d'avance.

[tototiti2008]

Bonjour à tous,

Sinon, peut-être installer une imprimante virtuelle qui fait ça ?
https://code-industry.net/imageprinter/

[boisgontierjacques]

Bonsoir,

Exemple

Code :

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

1
2
3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Répertoire & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Boisgontier

[M1k3_38]

Bonjour à tous,

Sinon, peut-être installer une imprimante virtuelle qui fait ça ?
https://code-industry.net/imageprinter/

Tout à fait!

C'est pourquoi j'ai pdfcreator qui me permet justement cet export en jpg, et qui me convient parfaitement en terme de rendu obtenu. C'est juste l'automatisation qui me manque. En gros je voudrais qu'en cliquant sur un bouton, pdfcreator soit automatiquement sollicité pour imprimer la zone d'impression de la feuille active en jpg avec les profils par défaut de pdfcreator. Ca me permettrait d'éviter la démarche manuelle qui me prend beaucoup de temps sur chacune des feuilles.

[tototiti2008]

Bonjour à tous,

C'est pourquoi j'ai pdfcreator qui me permet justement cet export en jpg

De la lecture proposée, alors... : https://www.developpez.net/forums/d1...interface-com/

[TonyNiort79]

Bonjour à tous

si çà peut intéresser
Nota: la plage des feuilles est à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SauvegardeJPG()
 
Dim Plage As Range, Feuille As String
Dim NomFeuille As String
Dim NBfeuille As Integer
Dim i As Integer
 
NBfeuille = Worksheets.Count
    For i = 1 To NBfeuille
        Worksheets(i).Activate
        Feuille = ActiveSheet.Name
        Set Plage = Range("A1:D20") ' à adapter
 
        Application.ScreenUpdating = False
        Workbooks.Add
        Plage.CopyPicture
        ActiveSheet.Paste
            With ActiveSheet.ChartObjects.Add(0, 0, _
                Selection.Width, Selection.Height).Chart
                .Paste
                .Export ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name & "-" & Feuille & ".jpg", "JPG"
            End With
        ActiveWorkbook.Close False
    Next
 
End Sub

[M1k3_38]

Merci TonyNiort79.

Ce code reprend celui de Curt qui fonctionne très bien (mais ne répond pas parfaitement à mon besoin).

Il faut que je prenne le temps de lire le lien de tototiti2008 en espérant comprendre un minimum pour l'appliquer chez moi, et je reviens vers vous :-)

Merci

[curt]

Bonjour M1k3_38,
une petite recherche renvoi ce lien... L'as-tu déjà testé ?

https://excel-malin.com/vba-astuces/excel-vers-jpg/
Curt

[curt]

Et au cas où tu ne t'en sortes pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Function ExporterPlageCommeImage(PlageAExporter As Range)
 
On Error GoTo FonctionErreur
 
    'cacher ou afficher les lignes de grille
    ActiveWindow.DisplayGridlines = False ' or True
 
    'Copier la PlageAExporter comme image dans le Presse-papier
    PlageAExporter.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 
    'Créer un nouveau  "graphique" temporaire qui servira de support - avec la taille exacte de la plage à exporter
    With ActiveSheet.ChartObjects.Add(Left:=PlageAExporter.Left, Top:=PlageAExporter.Top, _
        Width:=PlageAExporter.Width, Height:=PlageAExporter.Height)
        .Name = "ExportImage"
        .Activate
    End With
 
    'Copier l'image dans le graphique, ouvrir le dialog de "Sauvegarder sous", sauvegarde le fichier et supprime le graphique temporaire
    ActiveChart.Paste
    FichierImage = Application.GetSaveAsFilename(InitialFileName:="*.jpg", FileFilter:="Image file (*.jpg), *.jpg")
    If FichierImage = False Then Exit Function
    ActiveSheet.ChartObjects("ExportImage").Chart.Export FichierImage
    ActiveSheet.ChartObjects("ExportImage").Delete
 
Exit Function
 
FonctionErreur:
 
    MsgBox "Une erreur est survenue..."
 
End Function
 
Sub test()
 
    ExporterPlageCommeImage (ActiveSheet.UsedRange)
 
End Sub

Et comme disait DEGAULLE : des Chercheurs on en trouve - Des Trouveurs on en cherche
Curt

[M1k3_38]

Merci beaucoup curt pour ton aide!

Le code parait plus simple que d'essayer de passer par pdf creator! Et en essayant au boulot ce matin, il se trouve que ça fonctionne! Arès avoir bataillé un moment, j'ai trouvé que pour identifier une plage de cellules il fallait utiliser Range("A1:I52") par exemple, à la place de PlageAExporter.

Ce que je n'ai pas encore réussi, c'est à donner un nom à mon fichier. J'ai tenté de remplacer les * devant les .jpg du code par test par exemple, mais ça me renvoi une erreur lorsque j'execute la macro. Idéalement en fait, j'aimerais que ça me reprenne le texte d'une cellule. Vu que je n'ai pas encore réussi à intégrer dans le code un texte simple, je ne me suis pas encore aventuré à essayer d'intégrer des choses que j'ai pu trouver sur le forum pour reprendre le texte d'une cellule...

Merci encore!

[curt]

Bonjour M1k3_38,

à priori, tu ne maitrises pas VBA (mais ce n'est pas grave)
La procédure TEST permettait une approche générique de faire une photo de l'ensemble de la plage de la feuille utilisée. Tu préfères fixer la plage dans le code, pourquoi pas sus réserve qu'elle ne change jamais.
Pour fixer un nom au fichier jpg, il faut déclarer une variable est l'alimenter avec le contenu d'une cellule (ou autre chose comme le nom de la feuille, ou le nom du fichier Excel)
Le forum ne manque pas d'exemple sur le sujet.

Curt

[M1k3_38]

Re bonjour curt,

Merci pour tes encouragements. En effet je n'y connais rien. Quand j'aurai le temps il faudra que j'apprenne les bases. En attendant je me casse les dents.

J'ai fixé une plage de cellules car je souhaite restreindre l'enregistrement à la zone d'impression (ce qui se passait quand je passais manuellement par pdfcreator). Ma plage varie d'une feuille à une autre, mais s'il n'y a pas la possibilité de le faire en fonction de la zone d'impression je ferai comme ça.

Concernant l'enregistrement en prenant le nom d'une cellule, en cherchant un peu, j'ai vu qu'il fallait créer et définir une variable. J'ai donc rajouté, après la ligne Public Function, les deux lignes suivantes :

Code :

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

1
2
Dim NomComplet
NomComplet = Range("L9").Value

Mais comment dire à ma macro d'utiliser ensuite cette variable comme nom de fichier avant le .jpg?

Merci d'avance pour votre patience!