Imprimer une selection de cellule en une page via VBA

Bonjour a tous et merci d'avance pour vos réponses.

j'aurais voulu savoir si il était possible par VBA de permettre l'impression d'un tableau excel s'étalant sur plusieurs pages (2 de haut et 2 largeur) en une seule page.

afin de mieux comprendre ma demande je vous joint le fichier que j'ai réalisé sur excel ne comprenant que l'onglet excel devant être imprimé (a cause d'un pb de taille excedant les 300 KO)

la sélection que je souhaite imprimer est une sélection sur l'onglet "Récapitulatif général"

allant de A1 à AA70 compris

merci d'avance

Bonjour lolostaps,

Avec le code suivant (adapté d'un code de Jacques Boisgontier), tu crées une image représentant la plage A1:AA70 :

Sub ExportZoneTableau()
    Dim f As Worksheet
    Dim rep As String, nomImage$, typImage$

    Set f = ActiveSheet
    Set champExport = Range("A1:AA70")
    rep = ThisWorkbook.Path & "\"
    nomImage = "tartampion"
    typImage = "jpeg"

    champExport.CopyPicture
    f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height).Chart.Paste
    f.ChartObjects(1).Chart.Export rep & nomImage & "." & typImage, typImage
    f.ChartObjects(1).Delete
End Sub

Je te laisse adapter le répertoire, le nom de l'image...

vba-new a écrit :

Bonjour lolostaps,

Avec le code suivant (adapté d'un code de Jacques Boisgontier), tu crées une image représentant la plage A1:AA70 :

Sub ExportZoneTableau()
    Dim f As Worksheet
    Dim rep As String, nomImage$, typImage$

    Set f = ActiveSheet
    Set champExport = Range("A1:AA70")
    rep = ThisWorkbook.Path & "\"
    nomImage = "tartampion"
    typImage = "jpeg"

    champExport.CopyPicture
    f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height).Chart.Paste
    f.ChartObjects(1).Chart.Export rep & nomImage & "." & typImage, typImage
    f.ChartObjects(1).Delete
End Sub

Je te laisse adapter le répertoire, le nom de l'image...

Merci vba-new, car je suis débutant en VBA.

j'aurais voulu savoir si tu pouvais encore me donner un coup de main afin de modifier ces memes lignes VBA afin que cette image puisse etre imprimé par cette macro au lieu de s'enregistrer sur le bureau.

j'ai essayé de la collé sur une feuil13 d'excel mais je n'arrive a la redimensionner via VBA pour qu'elle soit ajusté à la taille d'une feuille A4

merci d'avance et bon dimanche

Re lolostaps,

Que veux-tu faire exactement ? Créer un fichier image à partir de la sélection, simplement imprimer la sélection ou les 2 ?

je souhaite stp pouvoir enregistrer l'image comme tes lignes VBA me le permettent et en même temps lancé l'impression de cette image via une imprimante.

Bonjour,

Pourquoi pas employer les fonctions d'Excel ?

    Sheets("Feuil2").Select
    ActiveSheet.PageSetup.PrintArea = "A1:W53"
    ActiveSheet.PrintOut

D'abord faire la mise en page, éventuellement zoomer la page pour l'adapter à la vue voulue.

A+