Enregistrement automatique en PDF au nom d'une cellule.
Résolu/Fermé
A voir également:
- Excel enregistrer fichier en pdf avec nom cellule
- Vba enregistrer sous pdf - Meilleures réponses
- Vba enregistrer pdf dans dossier - Meilleures réponses
- Créer FICHIER PDF avec nom récupérer dans une cellule - Forum - Excel
- Enregistrement automatique en PDF au nom d'une cellule. ✓ - Forum - Excel
- Macro enregistrer sous PDF + Renommer avec contenu de cellules ✓ - Forum - Excel
- Macro enregistrer en PDF ✓ - Forum - Excel
- Enregistrer doc excel en pdf, avec nom variable + impression. - Forum - VB / VBA
2 réponses
cs_Le Pivert
Modifié le 18 janv. 2018 à 14:44
- Messages postés
- 7749
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 23 mai 2022
Modifié le 18 janv. 2018 à 14:44
Bonjour,
affecter cette macro à un bouton qui se trouve sur la feuille à enregistrer:
Pour affecter cette macro à un bouton qui se trouve sur la feuille à enregistrer:
https://www.excel-plus.fr/vba/demvba/affecter-une-macro-a-un-bouton/
@+ Le Pivert
affecter cette macro à un bouton qui se trouve sur la feuille à enregistrer:
Sub savePDF() ActiveSheet.PageSetup.PrintArea = "A1:J" & Range("J" & Rows.Count).End(xlUp).Row 'plage de cellule à enregistrer a adapter ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT ADHESION\CONTRATS DU MOIS\" & Range("AB7").Value & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub
Pour affecter cette macro à un bouton qui se trouve sur la feuille à enregistrer:
https://www.excel-plus.fr/vba/demvba/affecter-une-macro-a-un-bouton/
@+ Le Pivert
18 janv. 2018 à 15:06
cependant et bien évidement comme c'est ma première... je n'y parviens pas...
J'ai un message d'erreur sur le code que j'ai "tenté" de mettre en place...
erreur de compilation
instruction incorrect a l’extérieur d'une procédure
ActiveSheet.PageSetup.PrintArea = "B1:X124" & Range("X124" & Rows.Count).End(xlUp).Row
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT ADHESION\CONTRATS DU MOIS\" & Range("AB7").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
18 janv. 2018 à 15:08
18 janv. 2018 à 15:11
par avance merci
18 janv. 2018 à 15:12
18 janv. 2018 à 15:18
Voici le code en place, et j'ai toujours le meme message d'erreur comme precedement.
Bien cordialement
ActiveSheet.PageSetup.PrintArea = "B1:X124"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT ADHESION\CONTRATS DU MOIS\" & Range("AB7").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False