Vba exporter en format pdf

Résolu/Fermé

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 19 févr. 2020 à 22:42
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:

Vba exporter en pdf
Lire le coran en français pdf - Télécharger - Histoire & Religion
Save as pdf - Télécharger - Bureautique
Comment faire un pdf - Guide
Comment modifier un pdf - Guide
Exporter excel en pdf - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
20 févr. 2020 à 08:00

Bonjour,

voir ceci:

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

Réponse 2 / 2

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
20 févr. 2020 à 10:25

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 20 févr. 2020 à 10:47

Regarde les imprimantes virtuelles que tu as sous Windows10

@+ Le Pivert

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
Modifié le 20 févr. 2020 à 11:36

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
14 août 2022 à 15:25

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

Macro enregistrer en PDF

Conserver animation powerpoint en format pdf

Questionnaire Google Form en format PDF

télécharger/copier un questionnaire google form

Exporter depuis InDesign vers PDF via « imprimer le cahier »

Image photoshop en PDF

Discussions similaires

Newsletters