Imprimer model de page unique avec nomination

[syphon]

Bonjour,

Dans une zone de liste déroulante, j'ai 3 prénoms et j'aimerais faire en sorte de pouvoir imprimer d'un coup un exemplaire pour chaque personne de la liste avec son prénom dans une cellule donnée.

Si la liste contient 3 prénoms => l'imprimante sort 3 exemplaires.
Si la liste contient 10 prénoms => l'imprimante sort 10 exemplaires.
Si la liste contient 50 prénoms => l'imprimante sort 50 exemplaires.
...

Il s'agit d'une fonction de publipostage disponible dans Word mais je suis obligé de me restreindre à Excel.

Quelqu'un pourrait-il m'aider?

Merci d'avance.

 

[JYLL]

Re : Imprimer model de page unique avec nomination

Bonsoir Syphon et le forum,

Te serait-il possible de mettre un petit exemple de ton classeur sans données confidentielles, plus facile pour te trouver une solution.

Au plaisr de te lire.

 

[syphon]

Re : Imprimer model de page unique avec nomination

Bonsoir,

Tout d'abord, merci de votre attention quand à mon problème.

Je joins un modèle tout simple.

J'espère avoir été assez clair quand à ce que j'essaye de faire.

A bientôt j'espère.

 

[JYLL]

Re : Imprimer model de page unique avec nomination

Re Bonsoir Syphon et le forum,

J'ai modifié ton classeur, il n'y a plus besoin de liste déroulante. Tu cliques sur imprimer et la macro te sort autant de feuille que de personne(s), avec le nom à chaque feuille.

Si tu veux des modifs, demande.

Bon test.

 

[syphon]

Re : Imprimer model de page unique avec nomination

T'as tué

Maintenant j'aimerais bien savoir comment tu as fais pour pouvoir le refaire à mon boulot ...

Je ne sais pas prendre le fichier original au bureau car niveau sécurité, on ne sait rien passer. Pas de clé usb, ni disquette, ni cd, ...

Merci merci

 

[JYLL]

Re : Imprimer model de page unique avec nomination

Re Syphon,

Sur deux fil en même temps, Tu fais ALT + F11 tu va voir la macro "Impression" qui suit :

Sub Imprimer()
Dim fin As Double, Noms(1000) As String, I As Double
Sheets("ID").Select
fin = Range("B65536").End(xlUp).Row
For I = 2 To fin
Noms(I - 1) = Cells(CStr(I), 2)
Next I
Sheets("Rapport").Select
I = 1
While Noms(I) <> ""
Cells(1, 5) = Noms(I)
Range("A1:N45").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
I = I + 1
Wend

End Sub

et il faut créer un bouton et affecter cette macro au bouton.

 

[syphon]

Re : Imprimer model de page unique avec nomination

Tout grand merci, j'avais déjà capté pour voir le code de la macro

J'ai mal posé ma question. J'aimerais juste terminer en comprendant comment tu as fais pour préciser dans la macro dans quelle cellule devait se mettre les prénoms (cellule jaune) ???

Merci et après je te fiche la paix

 

[syphon]

Re : Imprimer model de page unique avec nomination

Sub Imprimer()
Dim fin As Double, Noms(1000) As String, I As Double
Sheets("ID").Select
fin = Range("B65536").End(xlUp).Row
For I = 2 To fin
Noms(I - 1) = Cells(CStr(I), 2)
Next I
Sheets("Rapport").Select
I = 1
While Noms(I) <> ""
Cells(1, 5) = Noms(I)
Range("A1:N45").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
I = I + 1
Wend

End Sub

Cells(1, 5) étant la cellule E1 car E étant la 5ème lettre de l'alphabet ???

 

[syphon]

Re : Imprimer model de page unique avec nomination

Oui c'est ça

Touuuuuuuuuuuut grand merci, monsieur

Respect !

On peut clôturer ce post et continuer sur l'autre