Créer un PDF avec VBA
T3chN0g3n Messages postés 4971 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 24 avril 2024 - 24 mai 2023 à 16:19
- Créer un PDF avec VBA
- Créer un compte gmail - Guide
- Comment creer un pdf - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
3 réponses
Modifié le 24 mai 2023 à 15:06
Bonjour,
Oui c'est possible, par exemple ici tu à la syntaxe pour exporter en pdf:
https://forums.commentcamarche.net/forum/affich-31001371-macro-enregistrer-en-pdf
Et ici la syntaxe pour ouvrir une boite de dialogue pour sélectionner le path:
https://stackoverflow.com/questions/33411063/select-folder-for-save-location
En faisant un mix des deux en 10mn voilà un premier jet :
Sub Export_PDF() Dim DossSelect As FileDialog Dim Dossier As String Set DossSelect = Application.FileDialog(msoFileDialogFolderPicker) With DossSelect .Title = "Selectionnez l'emplacement de sauvegarde" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub Dossier = .SelectedItems(1) End With With ActiveSheet Chemin = Dossier & "\" & ActiveSheet.Name .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With Set DossSelect = Nothing End Sub
Cdlt.
EDIT: J'avais pas vu ton ébauche, mais tu doit pouvoir adapter à ton besoin.
Oh super ! Ça fonctionne :)
Maintenant j'essaie d'ajuster pour sélectionner mes 4 feuilles, mais ça m'indique une code d'erreur d'exécution 424. (Objet requis)
Sub Export_PDF() Dim DossSelect As FileDialog Dim Dossier As String Set DossSelect = Application.FileDialog(msoFileDialogFolderPicker) With DossSelect .Title = "Selectionnez l'emplacement de sauvegarde" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub Dossier = .SelectedItems(1) End With With Worksheets(Array("TES T.PLEIN", "PEH T.PLEIN", "TES T.PARTIEL", "PEH T.PARTIEL")). _ Select Chemin = Dossier & "\" & ActiveSheet.Name .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With Set DossSelect = Nothing End Sub
Merci.
Modifié le 24 mai 2023 à 16:22
Ce qui plantait c'est apparemment le manque du "Selection" avant le .ExportAs... Mais il faut aussi "activer" les zones à imprimer avec cette méthode, donc faut rajouter un bloc:
Sub ExportMulti_PDF() Dim DossSelect As FileDialog Dim Dossier As String Set DossSelect = Application.FileDialog(msoFileDialogFolderPicker) With DossSelect .Title = "Selectionnez l'emplacement de sauvegarde" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub Dossier = .SelectedItems(1) End With Sheets("TEST 1").Activate ActiveSheet.UsedRange.Select Sheets("TEST 2").Activate ActiveSheet.UsedRange.Select Sheets("TEST 3").Activate ActiveSheet.UsedRange.Select With ThisWorkbook.Sheets(Array("TEST 1", "TEST 2", "TEST 3")).Select Chemin = Dossier & "\" & "NomDuFichier.pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With Set DossSelect = Nothing End Sub
J'ai mis un nom de fichier fixe mais ont peut tout imaginer à ce niveau, le faire taper dans une fenêtre, récupérer d'une cellule, récupérer le nom du classeur ...