Imprimer des fiches client à partir d'une liste

[Christophe]

Bonjour le Forum,

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).

Merci par avance du coup de mains. Bonne journée.

Christophe

 

[BOISGONTIER]

Re : Imprimer des fiches client à partir d'une liste

Bonjour

 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

JB

 

[Dull]

Re : Imprimer des fiches client à partir d'une liste

Salut Christophe, Boisgontier, le Forum

Avec Formule et InputBox pour choisir le N° de Client

Encore désolé

Bonne Journée

 

[Christophe]

Re : Imprimer des fiches client à partir d'une liste

Merci JB pour ce code qui répond exactement à ma demande et va grandement me faciliter la vie !!!

Christophe

 

[Paulhardmen]

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