Comment faire des impressions nominatives

Bonjour à tous,

J'ai une question un peu compliquée.

Tous les mois je donne aux salariés de l'entreprise une fiche d'horaire (ci*jointe). J'ai installé des formules pour les dates (je n'ai pas réussi à connecter le mois (J1) aux colonnes des jours, mais tant pis je n'ai que la première ligne a modifier le reste suit).

Ma question : l'entreprise compte 36 salariés, j'aimerais que les fiches soient nominatives, avec le nom de l'employé en B1. Existe t'il un moyen de rentrer la liste des employés afin que quand j'imprime, Excel m'imprime une feuille par employé avec le nom sur chacune?

Je vous remercie d'avance, je travaille sur Excel 2013.

J'ai créé une liste du personnel dans le cellule, voici la nouvelle version, je pense que c'est nécessaire afin de réaliser ce que je veux.

Problème résolu avec la macro suivante :

Option Explicit

Sub Imprime()

Dim J As Long

With Sheets("Appartement")

For J = 1 To [Appartement].Rows.Count

.Range("D1") = [Appartement].Range("A" & J)

.PrintPreview

' ou pour imprimer direct

'.PrintOut

Next J

End With

End Sub

Bonsoir mrey et le forum,

Tous mes Meilleurs Voeux pour 2018.

J'avais quelque chose de côté pour toi.

Voir fichier joint

Cdt

Henri