Je souhaiterais avoir une petite commande macro pour exporter des feuilles excel en pdf.
Deux contraintes néanmoins: sur toutes les feuilles, je souhaiterais que seules celles dont les onglets sont sélectionnés (ctrl clic sur chacune) soit exportés et que chaque onglet produise un pdf séparément.
Mais dans ce cas il m'exporte certes que les onglets sélectionnés et me produit un pdf par onglet, mais réunit tous les onglets dans chaque pdf...
Le top aussi serait que les pdf soient générés dans un dossier "PDF" dans le même répertoire que le fichier excel.
D'avance merci pour le coup de main, bien à vous.
Bapt.
Option Explicit
Dim nom, chemin As String
Dim sh As Worksheet
Private Sub CommandButton1_Click()
For Each sh In Workbooks("Save_pdf.xls").Windows(1).SelectedSheets 'adapter nom classeur
nom = sh.Name
Save_pdf
Next
End Sub
Private Sub Save_pdf()
chemin = "C:\Users\LePivert\Documents\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "Enregistrer" 'on peut supprimer
End Sub
Bonsoir,
Et merci beaucoup pour ta réactivité.
Néanmoins je bloque sur la façon d'utiliser la macro. S'agissant d'une private sub, elle n’apparaît pas dans la liste des macro et se déclenche automatiquement c'est ça ? Mais à quelle condition svp ? N'est-il pas possible de générer l'action via un bouton ?
J'ai testé ce code et lancé depuis la fenêtre VBA dans l'onglet développeur (petit triangle vert), il m’apparaît l' Erreur d'exécution '1004': Erreur définie par l’application ou par l’objet. Je lis qu'il s'agit souvent d'un problème d'appel de cellule, pourtant il n'y a pas d'erreur de ce côté là si ?
Option Explicit Dim nom, chemin As String Dim sh As Worksheet Private Sub Command_Click() For Each sh In Workbooks("Test.xlsm").Windows(1).SelectedSheets 'adapter nom classeur nom = sh.Name Save_pdf Next End Sub Private Sub Save_pdf() chemin = ActiveWorkbook.Path & "\PDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False MsgBox "Enregistrer" 'on peut supprimer End Sub
Je t'ai fait un exemple, tu n'auras qu'a changer le chemin de destination dans le code:
https://www.cjoint.com/c/HEphgSW1aPQ
Si tu veux te servir du code, il faut le mettre dans un module comme ceci:
Option Explicit
Dim nom, chemin As String
Dim sh As Worksheet
Sub Save_onglet()
For Each sh In Workbooks("Test.xlsm").Windows(1).SelectedSheets 'adapter nom classeur
nom = sh.Name
Sheets(nom).Select
Save_pdf
Next
End Sub
Private Sub Save_pdf()
chemin = ActiveWorkbook.Path & "\PDF\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "Enregistrer" 'on peut supprimer
End Sub
ensuite pour le lancer tu lui attribues (Save_onglet) un raccourci clavier comme ceci:
Bonjour,
L'exemple marche à la perfection, l'interface est une super idée pour ne pas avoir à copier le bouton sur chaque feuille !
Néanmoins, lorsque je copie le code dans un fichier vierge et colle le code suivant, ça ne marche pas:
Option Explicit Dim nom, chemin As String Dim sh As Worksheet Sub Save_onglet() For Each sh In Workbooks("Classeur2.xlsm").Windows(1).SelectedSheets 'adapter nom classeur nom = sh.Name Sheets(nom).Select Save_pdf Next End Sub Private Sub Save_pdf() chemin = ActiveWorkbook.Path & "\PDF\" 'chemin du dossier destination à adapter ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & "\PDF\" & nom & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False MsgBox "Enregistrer" 'on peut supprimer End Sub
Sinon je peux copier la boite de dialogue et le code rattaché + le bouton et la macro liste déroulante dans mon fichier et ça devrait fonctionner ?
Encore merci pour l'aide !
Bapt.
Il ne faut pas mettre le code dans ThisWorkbook!!!!!!!!!!!
Il faut insérer un module et le mettre dans ce module. J'ai mis un raccourci clavier, cela évite le bouton que tu verras sur la feuille lors de l'enregistrement.
Je dois vraiment être mauvais, mais le raccourci ne fonctionne pas. Et même en exécutant la macro depuis l'éditeur, ça m'affiche ce message: "erreur d’exécution 1004, document non enregistré, le document doit p-e être ouvert, ou une erreur s'est produite lors de l'enregistrement..."
En fait cela marche si j'enlève le \PDF, est-ce lié ?
Difficile donc de générer un dossier, je n'aurai qu'à le créer en amont :)
Mille mercis pour ta dispo, j'essaye d'intégrer la petite boite de dialogue dans mon fichier.
Je reviens juste vers toi Le_Pivert. J'ai dupliqué la macro et l'interface de liste déroulante dans un fichier de la boite. Néanmoins, il semble que lorsque qu'un onglet contient deux pages A4, il n'en exporte qu'une ? Tu penses que l'on peut y remédier ?
Je te joins le fichier pour tester avec l'onglet "avance forfaitaire" par exemple: https://www.cjoint.com/c/HErqJUZE2ny Le raccourci est ctrl+w est il renvoit vers un dossier PDF dans le répertoire du fichier excel.
Merci d'avance, bien à toi.
Bapt.
Ce soir je n'ai pas trop le temps, mais je vais te donner la solution. Je pense vu le travail que tu as fait que tu vas pouvoir te débrouiller seul. Mais en cas de problème je suis là.
'Enregistrer une feuille par PDF
Sub SavePDF()
chemin = ThisWorkbook.Path & "\PDF\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & ChoixFeuille & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False 'From:=1 numero de la page début, To:=1 numero de la page fin c'est cette ligne qu'il faut modifier
MsgBox "Yes Muriel ! Enregistré dans le dossier PDF du classeur :)", vbInformation, "Enregistrement en PDF"
End Sub
Je te joins le fichier pour tester avec l'onglet "avance forfaitaire" par exemple: https://www.cjoint.com/c/HErqJUZE2ny Le raccourci est ctrl+w est il renvoit vers un dossier PDF dans le répertoire du fichier excel.
Merci d'avance, bien à toi.
Bapt.
- Messages postés
-
6868
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 7 août 2020
535'Enregistrer une feuille par PDF Sub SavePDF() chemin = ThisWorkbook.Path & "\PDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & ChoixFeuille & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ From:=1, To:=1, OpenAfterPublish:=False 'From:=1 numero de la page début, To:=1 numero de la page fin c'est cette ligne qu'il faut modifier MsgBox "Yes Muriel ! Enregistré dans le dossier PDF du classeur :)", vbInformation, "Enregistrement en PDF" End SubBon courage
- Messages postés
-
6868
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 7 août 2020
535https://www.cjoint.com/c/HEsgibkxtcQ
Bonne journée
@+ Le Pivert
Bapt.