Sujet Précédent Sujet Suivant

Enregistrement automatique en PDF au nom d'une cellule.

Résolu/Fermé
Olive30129 - 18 janv. 2018 à 13:24
 Olivier30129 - 30 janv. 2018 à 09:40
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

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 18 janv. 2018 à 14:44
Bonjour,

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
1
Olive30129
18 janv. 2018 à 15:06
Mais quelle rapidité !!!! J'ai posté ma question il y a moins de 1 heure... top efficace "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
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
18 janv. 2018 à 15:08
Mettre ceci seulement: 

ActiveSheet.PageSetup.PrintArea = "B1:X124"
0

Discussions similaires

créer FICHIER PDF avec nom récupérer dans une cellule
marco -
marco -

8 réponses
Macro enregistrer sous PDF + Renommer avec contenu de cellules
LNA2002 -
Styla27 -

11 réponses
Dossiers disparus Windows 10
Maïlys -
Armelle -

13 réponses
Nom trop long pour le dossier de destination
Awdeline -
Awdeline -

7 réponses
Récupérer les noms des fichiers présents dans un dossier
Fabrice -
Fabrice -

4 réponses
Windows - Obtenir la liste des fichiers d'un dossier
baissaoui -
baissaoui -

0 réponse