J'alimente une base de nouveaux clients à partir d'une BDD Access que j'exporte sous Excel.
J'imprime ensuite pour chaque client une fiche reprenant les infos de la base et ajoutant des champs calculés d'amotissement financier qui ne epuvent se faire dans un rapport Access.
Est-il possible d'automatiser ce traitement sachant que le nbre de clients est chaque fois variable ?
Un exemple dans le fichier joint (2 onglets : un pour la base, l'autre pour la fiche).
Re : Imprimer des fiches client à partir d'une liste
Bonjour
Code:
Set bd = Sheets("base")
For i = 2 To [A65000].End(xlUp).Row
Sheets("fiche").Cells(4, "J") = bd.Cells(i, 1)
For j = 1 To 7
Sheets("fiche").Cells(7 + j * 2, 4) = bd.Cells(i, j + 1)
Next j
Sheets("fiche").PrintOut
Next i
Bonjour à tous !,
Génial ! Et si un génie bienfaiteur disposait en plus du bout de code qui nommerait et validerait chaque impression de fiche (en fonction d'une des colonnes), bah...ce sera encore plus génial !
Paul