XL 2016 Edition d'un PDF à partir de plusieurs données d'une feuille (RESOLU)

[Bambi35]

Bonjour à tous

Vous n’aviez aidé à réaliser un fichier pour éditer des PDF en renseignant des cellules manuellement,

(Edition d’un PDF dans un répertoire et enregistrement de la personne sur une feuille Chrono)

Serrait-il possible de récupérer plusieurs informations automatiquement à partir d’une autre feuille Inscription. Le but est de pouvoir éditer le PDF en une seule action et éviter les erreurs.

J’arrive quand la personne a juste une cotisation (voir exemple sur le fichier adhérent 3) mais quand elle a plusieurs activités et option comme pour l’adhérent 7 alors là problème.

L’objectif est d’avoir toutes les cotisations ainsi que les options sur le PDF

l'adhésion 14 €

Cotisation Art Floral 10 €

Cotisation Judo Baby 8 €

Cotisation Karaté Adulte 11 €

La licence Karaté 30 €

Cotisation Escalade 12 €

Location Matériel Escalade 13 €

La liste des cotisation et option sont sur la feuille Activité

Pour info je peux intercaler dans nouveaux adhérents dans le temps

Merci de votre aide

B@mbi35

Ci-joint le fichier

 

[Bambi35]

Bonjour Sousou

Après avoir modifier le fichier comme tu me l’as dit ,
j’ai lancé mes attestations sur mon fichier de travail et j’avais quand même un léger bug
Je revenais sur la feuille Facture j’ai donc aussi rajouté dans Enregistrement de la facture
'Enregistrement de la facture
Sub enregistrement()
numerodefacture 'Calcul du numéro de facture
With Sheets("facture")
nomfichier = "facture" & "_" & ThisWorkbook.Names("numfact").RefersToRange & "_" & .Range("i21") & " " & .Range("g21")
chemin = cheminfacture & nomfichier
ThisWorkbook.Sheets("Inscription").Activate

Et là cela fonctionne bien
Je clic « OUI »
Annonce Voulez-vous visualiser la facture PDF
Réponse « OUI »
Je visionne le PDF
Je ferme l’aperçu
Je reviens sur le feuille inscription et j’ai la fenêtre « Impression de la facture pour : xxxxxx »
Réponse « Oui »
Je vois la barre de téléchargement
« Le fichier facture xxxxxxx est enregistré dans répertoire «
Réponse « OK »
Et là je reviens sur la feuille inscription

Je ne sais pas si c’est propre mais cela fonction avec Windows 10



Ci-joint le fichier avec les modifs

Merci encore


Bambi35

 

[sousou]

Ca semble correct