Générer Word d'après Excel

Question

Je suis nouveau dans ce forum et nouveau dans l'utilisation de VBA sur Excel. Et j'ai besoin d'aide. Je m'occupe de la trésorerie d'une petite association, je tiens un tableur avec les cotisations des adhérents et je voudrais générer une attestation pour chaque adhérent. J'ai épluché un certain nombre de posts de ce merveilleux site, mais je n'ai pas trouvé de solution qui résolve mon problème. Voici ce que je voudrais pouvoir faire : Sur Excel, la colonne "A" contient la civilité des adhérents (Mr ou Mme), sur la colonne "B" le prénom, sur la colonne "C" le nom, sur la colonne "R" la somme versée. Le nom de la feuille est l'année (2022 par exemple). Je souhaiterais obtenir une trame qui génère, à la demande, un fichier Word avec ces renseignements contenus dans le fichier Excel. J'ai essayé avec des signets et avec des boutons de commande, comme conseillé dans certains posts. Mais rien ne marche. Merci beaucoup de votre aide...

ZeChris · Accepted Answer

Bonsoir, j'ai bricolé un petit quelque chose.

L'idée est d'avoir une feuille modèle (onglet courrier), et un onglet "données" (2022).

Dans l'onglet 2022, tu sélectionne le ou les noms pour lesquels tu veux créer un courrier, et tu lance la macro

Elle génère un fichier PDF pour chaque nom sélectionné.

A adapter à ton besoin ....

6association.xlsm (23.84 Ko)

LouReeD · Accepted Answer

J'ai eu à gérer des listes entière de personnels, et "au début" je faisais comme vous une colonne pour chaque particules du personnel. Mais j'ai arrêté afin d'avoir moins de risque de doublon. Le suivi était fait avec Nom Prénom. Bon ça c'est juste une indication au passage. La suite de ma demande est ici: pourquoi passer par Word ? Excel peut très bien faire des impressions et du coup on en arrive à ce que dit BrunoM45 : une feuille Excel structuré pour afficher le texte "commun" à tous avec des "trous" cellules connues et fixes qui comporteront des formules allant chercher les données en fonction d'une autre cellule qui elle serait une liste de choix afin de choisir à qui l'on veut écrire. Si à chaque fois c'est à la totalité du groupe qu'il faut éditer le document, alors VBA sera là pour automatiser cette opération. Une dernière chose : je crois bien que Mr est l'abréviation en anglais de Mister, en français je crois que c'est le M. Un fichier exemple : @ bientôt LouReeD...

ZeChris · Accepted Answer

Désolé pour ma réponse tardive. Pour la question des espaces et l'année, remplace 'remplissage automatique courrier Range("A30") = civil & " " & prénom & " " & nom Range("B30") = somme & " euros" par : 'remplissage automatique courrier Range("A30") = civil & " " & prénom & " " & nom & " " & somme & " euros" & " au titre de ses cotisations pour l'année " & ws ça devrait le faire Pour la question du choix de plages, laisse moi un peu digérer les repas de fin d'année et je t'explique tout ça...

ZeChris · Accepted Answer

Ayé, j'ai fini de digérer.

Concernant donc ta question sur les multiples pages :

Je fais une boucle sur chaque cellule sélectionnée, qui traite donc chaque nom un par un

On défini la ligne à traiter (variable ligneA), ce qui nous permet de récupérer nom prénom ....

puis on génère le PDF et on passe à la cellule suivante.

Voici comment fonctionne le principe de la boucle sur les cellules :

'ma variable MaPlage sera de type range (sélection de cellules)
Dim MaPlage As Range
' cette variable MaPlage contient les cellules sélectionnées)
Set MaPlage = Selection
' je ne sais pas trop expliquer la ligne suivante, désolé. Si quelqu'un sait ....
ActiveWorkbook.Names.Add Name:="MaPlage", RefersToR1C1:=MaPlage
MaPlage.Select
'ma variable d sera de type range (ici une cellule)
Dim d As Range
' je défini le nom de l'onglet (de l'année donc) dans une variable ws
Dim ws As String
ws = ActiveSheet.Name
' pour chaque cellule dans ma sélection de cellules
For Each d In MaPlage

'je génère ma feuille pdf en remplissant d'abord mon onglet "courrier"

' code ...................

' et je passe à la cellule suivante
Next d

Par contre, je viens de m'appercevoir qu'il y a toute une partie du code qui ne sert à rien :

            ' comparaison des noms et prénoms déjà venus
            Worksheets(ws).Activate
            Dim lignetest As Integer
            Dim nomtest As String
            Dim prénomtest As String
            Dim datetest As String
            Dim doublon As String
            doublon = "non"
            For lignetest = 15 To 500
            nomtest = Cells(lignetest, "C")
            prénomtest = Cells(lignetest, "D")
            datetest = Cells(lignetest, "B")
            If nom = nomtest And prénom = prénomtest And dateconvoc <> datetest Then
            doublon = "oui"
            End If
            Next lignetest

j'ai du copier un bout d'une macro que j'avais créée, et j'ai été un peu vite en besogne. Ce bout de code me servait, pour générer des convocations, à vérifier si la personne était déjà venue, et à ajouter un mot dans le nom du pdf si besoin.

J'espère avoir répondu à ta question. N'hésite pas si besoin

ZeChris · Accepted Answer

J'ai refait la macro en prenant en compte tes dernières demandes, j'espère que cela répondra à tin besoin. Concernant les boucles, je suis pas certain de comprendre ta question. L'idée est que tu peux sélectionner plusieurs noms à la fois (avec CTRL par exemple), et tu lance ta macro, qui te génère un pdf différent pour chaque nom sélectionné. Sub courrier() Application.ScreenUpdating = False Dim ligneA As Integer Dim civil As String, nom As String, prénom As String, somme As String, ws As String Dim MaPlage As Range, d As Range Set MaPlage = Selection ActiveWorkbook.Names.Add Name:="MaPlage", RefersToR1C1:=MaPlage MaPlage.Select ws = ActiveSheet.Name For Each d In MaPlage ligneA = d.Row ' première lettre de chaque mot en majuscule For Each X In Range(Cells(ligneA, "B"), Cells(ligneA, "C")) X.Value = Application.Proper(X.Value) Next X civil = Cells(ligneA, "A") prénom = Cells(ligneA, "B") nom = UCase(Cells(ligneA, "C")) ' pour mettre le nom en majuscules somme = Cells(ligneA, "T") Worksheets("Courrier").Activate Range("A22") = "" Range("A29") = "" 'remplissage automatique courrier Range("A22") = "Paris, le " & Format(Date, "d mmmm yyyy") Range("A29") = "Je soussigné, Franck PLANTET, trésorier de l'association référencée ci-dessus, certifie avoir reçu de " & civil & " " & prénom & " " & nom & " la somme de " & somme & " euros au titre de ses cotisations pour l'année " & ws & " par chèques bancaires." contenu = Range("A29") 'Contenu de la cellule tab_contenu = Split(contenu, " ")'Contenu divisé en tableau longueur_nom_prénom = Len(tab_contenu(14)) + Len(tab_contenu(15)) + 1 'Longueur nom prénom ' calcul de la position de départ du nom / prénom j = 1 For i = 0 To 13 j = j + 1 + Len(tab_contenu(i)) Next i longueur_euros = Len(tab_contenu(19))'Longueur euros l = 1 For k = 0 To 18 l = l + 1 + Len(tab_contenu(k)) Next k longueur_année = Len(tab_contenu(28)) 'Longueur Année m = 1 For k = 0 To 27 m = m + 1 + Len(tab_contenu(k)) Next k 'passer données en GRAS Range("A29").Characters(j, longueur_nom_prénom).Font.Bold = True Range("A29").Characters(l, longueur_euros).Font.Bold = True Range("A29").Characters(m, longueur_année).Font.Bold = True ' année case A29 en gras ' Pour mettre en gras l'année en cellule A22 contenu_date = Range("A22") 'Contenu de la cellule date tab_contenu_date = Split(contenu_date, " ") 'Contenu divisé en un tableau de 3 parties longueur_date = Len(tab_contenu_date(4)) 'Longueur date j = 1 For i = 0 To 3 j = j + 1 + Len(tab_contenu_date(i)) Next i Range("A22").Characters(j, longueur_date).Font.Bold = True ' enregistrement PDF Dim Chemin As String Dim Fichier As String Chemin = ActiveWorkbook.Path & "\" Fichier = nom & " " & prénom & " " & "Attestation" & " " & "2022" & ".pdf" Worksheets("Courrier").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=1, To:=1, OpenAfterPublish:=False Worksheets(ws).Activate Next d End Sub N'hésite pas à revenir vers moi pour plus d'infos Bonne soirée...

ZeChris · Accepted Answer

Désolé d'avoir mis autant de temps pour répondre. J'ai réfléchi, et je te propose le code suivant J'espère que cela répond à ton problème Sub courrier() Application.ScreenUpdating = False Dim ligneA As Integer Dim civil As String, nom As String, prénom As String, somme As String, ws As String Dim MaPlage As Range, d As Range Set MaPlage = Selection ActiveWorkbook.Names.Add Name:="MaPlage", RefersToR1C1:=MaPlage MaPlage.Select ws = ActiveSheet.Name For Each d In MaPlage ligneA = d.Row civil = Cells(ligneA, "A") prénom = Application.Proper(Cells(ligneA, "B")) ' première lettre en majuscule nom = UCase(Cells(ligneA, "C")) ' pour mettre le nom en majuscules somme = Cells(ligneA, "T") Worksheets("Courrier").Activate Range("A22") = "" Range("A29") = "" 'remplissage automatique courrier Range("A22") = "Paris, le " & Format(Date, "d mmmm yyyy") Range("A29") = "Je soussigné, Franck PLANTET, trésorier de l'association référencée ci-dessus, certifie avoir reçu de " & civil & " " & prénom & " " & nom & " la somme de " & somme & " euros au titre de ses cotisations pour l'année " & ws & " par chèques bancaires." ' mise en gras Range("A22").Characters(WorksheetFunction.Find(Format(Date, "d mmmm yyyy"), Range("A22")), Len(Format(Date, "d mmmm yyyy"))).Font.Bold = True départ = WorksheetFunction.Find(civil, Range("A29")) Range("A29").Characters(Start:=départ, Length:=Len(civil)).Font.Bold = True départ = WorksheetFunction.Find(prénom, Range("A29")) Range("A29").Characters(Start:=départ, Length:=Len(prénom)).Font.Bold = True départ = WorksheetFunction.Find(nom, Range("A29")) Range("A29").Characters(Start:=départ, Length:=Len(nom)).Font.Bold = True départ = WorksheetFunction.Find(somme, Range("A29")) Range("A29").Characters(Start:=départ, Length:=Len(somme)).Font.Bold = True &nbsp;&nbsp;&nbsp;&nbsp;départ = WorksheetFunction.Find(ws, Range("A29")) Range("A29").Characters(Start:=départ, Length:=Len(ws)).Font.Bold = True ' enregistrement PDF Dim Chemin As String Dim Fichier As String Chemin = ActiveWorkbook.Path & "\" Fichier = nom & " " & prénom & " " & "Attestation" & " " & ws & ".pdf" Worksheets("Courrier").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=1, To:=1, OpenAfterPublish:=False Worksheets(ws).Activate Next d End Sub...

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire : - La charte du forum - Quelques fonctionnalités du forum à connaître Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui : - vous permettent de poster un code ( &lt;/&gt; ) - ou de clôturer un fil lorsque vous avez terminé ( V ) Concernant votre demande, surtout quand on débute en VBA, je pense que le mieux est de créer directement un formulaire sur une feuille Excel que l'on peut remplir avec des RECHERCHEV() Merci pour votre participation Cordialement...

LouReeD · Answer

Merci @ vous pour vos remerciements collectif dont j'en prend une petite part ! @ bientôt LouReeD...