Saisie classeur

bonjour,

je souhaite qu une box s affiche a l ouverture d un classeur excel , me demande de saisir le nom et numéro de dossier attribue,

(possibilité de refuser pour éviter la saisie a chaque ouverture)

et mettre ses données dans les entêtes de toute les feuilles du classeur pour que ses infos se retrouve sur les impressions.

Bonsoir Éric, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim BN As Variant 'déclare la variable BN (Boîte d'entrée Nom)
Dim BND As Variant 'déclare la variable BND (Boîte d'entrée Numéro de Dossier)
Dim O As Object 'déclare la variable O (Onglet)

nom: 'étiquette
BN = Application.InputBox("Veuillez taper le Nom !", "NOM", Type:=2) 'définit la boîte d'entrée BN
If BN = False Or BN = "" Then 'condition : si bouton "Annuler ou non renseignée
    'si Oui au message, sort de la procédure, si non, retourne à la boîte d'entrée via l'étiquette "nom"
    If MsgBox("Voulez-vous annuler cette action ?", vbYesNo, "EN-TÊTE") = vbNo Then GoTo nom Else Exit Sub
End If 'fin de la condition
numdos: 'étiquette
BND = Application.InputBox("Veuillez taper le Numéro de Dossier !", "NUMËRO", Type:=2) 'définit la boîte d'entrée BND
If BND = fale Or BND = "" Then 'condition : si bouton "Annuler ou non renseignée
    'si Oui au message, sort de la procédure, si non, retourne à la boîte d'entrée via l'étiquette "numdos"
    If MsgBox("Voulez-vous annuler cette action ?", vbYesNo, "EN-TÊTE") = vbNo Then GoTo numdos Else Exit Sub
End If 'fin de la condition
For Each O In Sheets 'boucle sur tous les onglets du classeur
    'renvoie dans l'en-tête (au centre) le nom suivi du numéro de dossier
    O.PageSetup.CenterHeader = BN & " / " & BND
Next O 'prochain onglet de la boucle
End Sub

[Édition]

Lancer cette macro à l'ouverture dans le composant ThisWorkbook / procédure Workbook_Open soit en copiant le code, soit par

Private Sub Workbook_Open()
Module1.Macro1 'à adapter au module
End Sub

merci, excellent travail, avec les commentaires très utile pour comprendre le code