Vba exporter en format pdf
Résolu/Fermé
noe2008
cs_Le Pivert
- Messages postés
- 180
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 mai 2022
cs_Le Pivert
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
A voir également:
- Vba exporter en pdf
- Vba export pdf - Meilleures réponses
- Export pdf vba - Meilleures réponses
- Vba exporter en format pdf ✓ - Forum - Excel
- Macro enregistrer en PDF ✓ - Forum - Excel
- Exporter un pdf en word - Guide
- Exporter en pdf - Guide
- Installer les compléments d'exportation microsoft pdf et xps - Télécharger
2 réponses
cs_Le Pivert
20 févr. 2020 à 08:00
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
20 févr. 2020 à 08:00
Bonjour,
voir ceci:
http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7055
voir ceci:
http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7055
noe2008
20 févr. 2020 à 10:25
- Messages postés
- 180
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 mai 2022
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 )
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
Modifié le 20 févr. 2020 à 10:47
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
Modifié le 20 févr. 2020 à 10:47
cs_Le Pivert
Modifié le 20 févr. 2020 à 11:36
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
Modifié le 20 févr. 2020 à 11:36
Sinon enregistrement en PDF de toutes les feuilles comme ceci:
Voilà
@+ Le Pivert
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