Vba exporter en format pdf

Résolu

noe2008 Messages postés 184 Date d'inscription Statut Membre Dernière intervention -
Icare - 14 août 2022 à 15:25

Salut les amis,
Je souhaite modifier un peu ma macro
au lieu d'envoyer des pages vers l'imprimante par défaut je préfère les exporter en format pdf en un seul fichier vers le bureau
merci d'avance

Macro :

Sub imprimer()

Range("A12") = 1

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Dim i As Integer
i = Range("A12")
For i = 1 To Range("E1").Value

If Range("E1") >= Range("F40") Then
Range("A12") = Range("A12") + 6
i = i + 6

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End If
Next
End Sub

Configuration: Windows / Chrome 79.0.3945.130

A voir également:

Exporter une feuille excel en pdf vba
Lire le coran en français pdf - Télécharger - Histoire & Religion
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Déplacer une colonne excel - Guide
Exporter excel en pdf sur une page - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

voir ceci:

http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7055

Réponse 2 / 2

noe2008 Messages postés 184 Date d'inscription Statut Membre Dernière intervention 4

Merci cs_Le Pivert pour votre réponse
la macro de mon classeur fait changer la valeur de la cellule A12 ( jusqu'à 200 fois ) en fonction d'elle les données change ( formule recherchv) puis elles sont envoyées vers l'imprimante par défaut
installer une imprimante virtuelle ( Dopdf....) résoudra le problème pour moi mais je dois donner le fichier à d'autres personnes qui surement n'ont aucune imprimante virtuelle sur leur pc et qui souhaitent sauvegarder le résultat ( jusqu'à 200 pages environ selon la valeur de F40 )

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Regarde les imprimantes virtuelles que tu as sous Windows10

@+ Le Pivert

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729 > cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention

Sinon enregistrement en PDF de toutes les feuilles comme ceci:

Sub CreerPDF()
    Dim sRep As String
    Dim sFilename As String
 'Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets.Select 'sélection de toutes les feuilles
    sRep = ThisWorkbook.Path & "\"
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
            MsgBox "Enregistrer en PDF dans le même dossier que ce classeur", vbInformation, "Enregistrement en PDF"
End Sub

Voilà

@+ Le Pivert

Icare > cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention

Bonjour, moi j’ai un problème c’est qu’il n’accepte pas les deux point égale il me mets un message d’erreur

Discussions similaires

Export feuilles excel séparées au format pdf

Impression PDF multiples depuis onglets Excel

Sauvegarder plusieurs onglets Excel en PDF

Macro enregistrer en PDF

VBA pour Excel pour les nuls

envoyer excel en pdf via outlook vba

Votre réponse

Discussions similaires