multi-impression à partir d'une feuille

[lamine]

Bonjour à tous
je desire lancer une impression automatique d'une base "personnel" à partir d'une feuille impression. je suppose que cela n'est possible qu' en VBA, j,ai rajouté une piece jointe avec des commentaires sur la page impression.

Merci d'avance.

 

[Cousinhub]

Re : multi-impression à partir d'une feuille

Bonjour, un code associé à ton bouton :

Private Sub CommandButton1_Click()
Dim mat
With Sheets("personnel")
For Each mat In .Range("C3:C" & .[c65000].End(xlUp).Row)
[d3] = mat
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Preview:=True
Next mat
End With
End Sub

Tu peux supprimer "Preview" (et la virgule qui précède), c'est pour l'aperçu avant impression (économie de papier pour les tests...)

 

[lamine]

Re : multi-impression à partir d'une feuille

Bonjour, bhbh,

je vais y jeter un coup d'oeil>
merci

 

[lamine]

Re : multi-impression à partir d'une feuille

merci bhbh
c'est exactement ce que je voulais,
merci et a +