Enregistrement automatique en PDF au nom d'une cellule.
Résolu
Olive30129
-
Olivier30129 -
Olivier30129 -
Bonjour,
Je suis totalement novice en VBA, et les seules macros utilisées jusqu'à présent étaient réalisées avec l'assistant auto de macro qui ne peut plus répondre à mes besoins.
Je cherche sur les différents forums depuis maintenant plusieurs jours la solution à mon problème... solutions que j'ai trouvée à de nombreuses reprises mais que je ne parviens pas à mettre en place... il y aurait il un génie serviable susceptible de m'aider ?
Voila, j'ai un contrat d'adhésion client sur l'onglet :(CONTRAT), (défini par une zone d'impression) que je souhaite enregistrer en PDF, dans un fichier donné, (C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT ADHESION\CONTRATS DU MOIS), et au nom d'une cellule (AB7, elle même étant le résultats de plusieurs cellules concaténer), figurant sur cette même feuille nommée, (CONTRAT).
En bref, je cherche à enregistrer d'un simple "clic" au format PDF, tous les nouveaux contrats d'adhésion, dans un fichier dédié, sans que cela ne modifie la matrice de base de mon contrat d'adhésion qui est "remplie" de formules multiples et diverses, en nommant automatiquement le nouveau fichier PDF au nom de la cellule AB7 de cette même feuille nommée (CONTRAT).
Je sais l'opération possible pour avoir lu de nombreuses réponses sur les forums, mais je ne parviens pas à mettre ceci en place moi même en copiant les "codes" trouvés, pour la simple raison que je ne sais même pas OU copier les codes, et quoi changer dans ces codes pour adapter le chemin à mon ordinateur.
Je vous remercie par avance de votre aide
Je suis totalement novice en VBA, et les seules macros utilisées jusqu'à présent étaient réalisées avec l'assistant auto de macro qui ne peut plus répondre à mes besoins.
Je cherche sur les différents forums depuis maintenant plusieurs jours la solution à mon problème... solutions que j'ai trouvée à de nombreuses reprises mais que je ne parviens pas à mettre en place... il y aurait il un génie serviable susceptible de m'aider ?
Voila, j'ai un contrat d'adhésion client sur l'onglet :(CONTRAT), (défini par une zone d'impression) que je souhaite enregistrer en PDF, dans un fichier donné, (C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT ADHESION\CONTRATS DU MOIS), et au nom d'une cellule (AB7, elle même étant le résultats de plusieurs cellules concaténer), figurant sur cette même feuille nommée, (CONTRAT).
En bref, je cherche à enregistrer d'un simple "clic" au format PDF, tous les nouveaux contrats d'adhésion, dans un fichier dédié, sans que cela ne modifie la matrice de base de mon contrat d'adhésion qui est "remplie" de formules multiples et diverses, en nommant automatiquement le nouveau fichier PDF au nom de la cellule AB7 de cette même feuille nommée (CONTRAT).
Je sais l'opération possible pour avoir lu de nombreuses réponses sur les forums, mais je ne parviens pas à mettre ceci en place moi même en copiant les "codes" trouvés, pour la simple raison que je ne sais même pas OU copier les codes, et quoi changer dans ces codes pour adapter le chemin à mon ordinateur.
Je vous remercie par avance de votre aide
A voir également:
- Macro enregistrer sous pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Audacity enregistrer son pc - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
2 réponses
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
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