Vba exporter en format pdf [Résolu]

Signaler
Messages postés
147
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
17 octobre 2020
-
Messages postés
6977
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 octobre 2020
-
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

2 réponses

Messages postés
6977
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 octobre 2020
561
Messages postés
147
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
17 octobre 2020
3
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 )
Messages postés
6977
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 octobre 2020
561
Regarde les imprimantes virtuelles que tu as sous Windows10



@+ Le Pivert
Messages postés
6977
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 octobre 2020
561 >
Messages postés
6977
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 octobre 2020

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