Impression excel en pdf avec macro VBA

simdup Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
simdup Messages postés 13 Date d'inscription Statut Membre Dernière intervention - 20 nov. 2014 à 09:24

Bonjour,
Je cherche si quelqu'un aurait une solution à mon problème. J'ai crée un macro qui imprime mon fichier excel. J'aimerais si c'est possible en crée une identique mais qui "imprime" en pdf.
voici ma macro :

Public Sub Imprime()

ActiveSheet.Range("A1:AH126").PrintOut

If Cells(4, 49) <> 0 Then
ActiveSheet.Range("A127:AH189").PrintOut
End If
If Cells(5, 49) <> 0 Then
ActiveSheet.Range("A190:AH253").PrintOut
End If
If Cells(6, 49) <> 0 Then
ActiveSheet.Range("A254: AH316 ").PrintOut
End If
If Cells(7, 49) <> 0 Then
ActiveSheet.Range("A317: AH380 ").PrintOut
End If
If Cells(8, 49) <> 0 Then
ActiveSheet.Range("A381: AH443 ").PrintOut
End If

End Sub

Si quelqu'un à la réponse à ma question je le remercie déjà à l'avance

Bonne journée le forum

Afficher la suite

A voir également:

Code vba pour imprimer une feuille excel
Code ascii - Guide
Imprimer tableau excel sur une page - Guide
Comment imprimer en a5 sur une feuille a4 - Guide
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur

5 réponses

Réponse 1 / 5

PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention 26

hmm...

On imprime sur du papier, mais on enregistre sous format PDF.

Je ne comprend pas ta question, pourrais-tu clarifier si tu veux imprimer ou enregistrer.

simdup Messages postés 13 Date d'inscription Statut Membre Dernière intervention

Oui pardon pour cet abus de language, je veux en effet enregistré mon fichier en pdf.

Réponse 3 / 5

PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention 26

On ne peut pas vraiment enregistrer qu'une partie de la feuille.

Ce qui est possible, copier la sélection dans une nouvelle feuille et ensuite enregistrer cette feuille en PDF.
Ensuite on supprime la nouvelle feuille temporaire

    ActiveSheet.Range("A127:AH189").Select  'Zone à imprimé
    Selection.Copy
    ActiveWorkbook.Worksheets.Add  'on ajoute une feuille temporaire
    ActiveSheet.Paste 'on y colle la zone à imprimer
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Name & ".PDF", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Application.DisplayAlerts = False  'ignore l'avertissement quand on supprime une feuille
    ActiveSheet.Delete  'bye bye la feuille temporaire
    Application.DisplayAlerts = True  'On remet les msg d'avertissement

Attention a bien sauvegarder ton classeur sous un autre nom avant de faire les manipulation.
Quand on joue avec des activesheet.delete et pas d'avertissement, mieux vaut toujours avoir un backup.

Réponse 5 / 5

simdup Messages postés 13 Date d'inscription Statut Membre Dernière intervention

Bonjour, alors en regroupant toutes les informations que j'ai pu récolter j'ai réussi à améliorer ma première macro en choisissant l'imprimante et donc je peu sélectionner pdfCreator :
Public Sub Imprime()
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.Range("A1:AH126").PrintOut

If Cells(4, 49) <> 0 Then
ActiveSheet.Range("A127:AH189").PrintOut
End If
If Cells(5, 49) <> 0 Then
ActiveSheet.Range("A190:AH253").PrintOut
End If
If Cells(6, 49) <> 0 Then
ActiveSheet.Range("A254: AH316 ").PrintOut
End If
If Cells(7, 49) <> 0 Then
ActiveSheet.Range("A317: AH380 ").PrintOut
End If
If Cells(8, 49) <> 0 Then
ActiveSheet.Range("A381: AH443 ").PrintOut
End If

End Sub

Merci à tous, bonne journée le forum

Discussions similaires

Macro enregistrer en PDF

Comment imprimer PDF recto verso 2 pages par feuille format A4 ?

Publipostage word : créer plusieurs documents distincts

Publipostage : mettre dans des fichiers séparés

imprimer 4 fois le même ducument sur une page

Scanner plusieurs feuilles dans un seul fichier?

Votre réponse

Discussions similaires