Numérotation folio excel

Bonsoir,
ce n'est pas forcement pour l'impression.
je souhaite que cela apparaisse dans la cellule en bas a droite car cela fait partie d'une procedure client et il faut lui numeroter tous les folios du documents.

C'est beaucoup plus complexe.
D'abord, je ne vois pas de solution autre que de passer par des macros, lesquelles macros peuvent être moyennement simples à complexes car :
1. Tout dépend s'il y a une ou plusieurs pages par onglet. Il est en effet très simple de calculer un nombre total de pages suivant le nombre d'onglets (ThisWorkbook.Worksheets.Count fait l'affaire). Les choses se compliquent très sérieusement s'il y a plusieurs pages par onglet car il faut analyser chaque onglet un a un pour calculer le nombre de pages, mémoriser le nombre de pages pour chaque onglet et incrémenter un compteur pour avoir le nombre total de pages.
2. Comment définir la chronologie des onglets pour leur attribuer le ou les numéros de page correct(s)? Ont-ils un nom ou un chiffre qui peut-être utilisé pour définir un numéro d'ordre ?
Comme vous le voyez, ce n'est pas un sujet vraiment simple a traiter.

Michel

Ci-dessous pour débuter une macro finalement assez simple qui calcule et affiche le nombre total de pages à imprimer dans un classeur :

Sub NombrePagesImpression()      
    NbPages = 0      
    For i = 1 To ThisWorkbook.Worksheets.Count      
        Worksheets(i).DisplayAutomaticPageBreaks = True      
        HorizBreaks = Worksheets(i).HPageBreaks.Count      
        HPages = HorizBreaks + 1      
        VertBreaks = Worksheets(i).VPageBreaks.Count      
        VPages = VertBreaks + 1      
        NbPages = NbPages + HPages * VPages      
        Worksheets(i).DisplayAutomaticPageBreaks = False      
    Next i      
    MsgBox "Ce Classeur contient " & NbPages & " pages à imprimer"      
End Sub      

Ce code est une base pour commencer un travail plus complexe sur la numérotation de chaque page.

Michel

Info supplémentaire : Cette macro calcule le nombre de pages en fonction des paramètres de l'imprimante par défaut. Si les pages de chaque feuille sont délimitées, il faut alors supprimer les deux lignes Worksheets(i).DisplayAutomaticPageBreaks = True & False pour calculer le nombre réel de pages à imprimer.
La macro devient alors :

Sub NombrePagesImpression()      
    NbPages = 0      
    For i = 1 To ThisWorkbook.Worksheets.Count      
        HorizBreaks = Worksheets(i).HPageBreaks.Count      
        HPages = HorizBreaks + 1      
        VertBreaks = Worksheets(i).VPageBreaks.Count      
        VPages = VertBreaks + 1      
        NbPages = NbPages + HPages * VPages      
    Next i      
    MsgBox "Ce Classeur contient " & NbPages & " pages à imprimer"      
End Sub      

Bonjour,
je comprend que cela a l'air complexe si tout est sur le meme onglet.
Si je decoupe mon fichier pour que pages de celui ci soit un onglet du classeur excel, est ce que cela devient plus simple pour trouver une formule de numérotation automatique ???
Cordialement.

Bonjour,

Je rejoins complètement ce qu'écrit Raymond sur la numérotation des pages d'un fichier Excel, mais si c'est ce que vous souhaitez pourquoi pas.

OK pour une page par onglet, mais si vous avez beaucoup d'onglets, vous allez très vite être submergé !

Voici un code qui vous permet d'inscrire le "N° Page " / "Nbre Total de Pages" dans toutes les cellules A1 de votre classeur.

Sub NumerotationPages()    
Dim i As Integer    
ThisWorkbook.Worksheets(1).Select    
For i = 1 To ThisWorkbook.Worksheets.Count    
Worksheets(i).Range("A1").Value = "Page " & i & " / " & ThisWorkbook.Worksheets.Count    
Next    
End Sub    

Voir aussi mon message modifié concernant le calcul du nombre de pages d'un document .

Cordialement,

Michel