Bonjour
Pour banir toutes les explications du Publipostage Word à mes collègues avec un fichier source de données Excel (pas facile pour tous), j'essaie de finaliser mon projet de mon classeur Excel par l'envoie de lettres automatisées, le tout sans sortir du classeur en cours.
J'ai donc un onglet "Récap trimestre 1" avec les données sources avec un nombre de lignes variable, et un onglet "Lettre".
J'ai fait le code qui fonctionne pour 1 lettre en prenant les données sous la ligne des titres.
Je cherche que le code se répète autant de fois qu'il y a des lignes dans mon onglet "Récap trimestre 1", en partant du bas et en remontant, à chaque ligne copie (A? : P?), le colle toujours en (A20) de l'onglet "Lettre", et imprime, etc...
Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Module05()
 
 Sheets("Récap trimestre 1").Range("A2:P2").Copy
    Sheets("Lettre").Select
    Range("A20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Sheets("Lettre").PrintOut
Sheets("Récap trimestre 1").Select