Discussion :

[iliaseyah]

Bonjour,

Je me tourne vers vous aujourd'hui car j'aimerais faire une macro qui me permettrait d'ajouter une inscription du type "Page de x à y" sur mes feuilles contenu dans mon classeur. Je veux avoir une macro qui effectue cela qu'on active par un bouton, comme ça je pourrais activer ou pas cette fonctionnalité.
En effet, j'écris dans mes feuilles des données et des fois le nombre de données est important, sachant que j'imprime ces feuilles, pour m'y retrouver avoir le numéro de chaque page lorsqu'un saut de page est effectué serait top.

Merci d'avance !!

[Quentin77170]

Bonjour,

Veux-tu que cela soit écrit dans une cellule Excel ?
Si oui, utilise par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Sh As Worksheet
For Each Sh in Activeworkbook.sheets
Sh.Range... = "Page " & Sh.Index & " sur " & ActiveWorkBook.Sheets.Count
Next Sh

[iliaseyah]

Je sais pas si tu as bien compris ce que je voulais faire alors je vais préciser.
Sur la photo ci -dessous tu constate que j'ai deux page (pour ma deuxième page un entête viens ce positionner lors de l'impression).
Je voudrais que ces deux pages soit numéroté "page 1 sur 2" & "page 2 sur 2" mais seulement pour cette feuille précisément.

Dans l'idéale une macro flexible serait bien, car je n'ai pas tout le temps 2 pages mais parfois 4 ou 6 ....

Pour répondre à ta question, partons sur l'idée de mettre cette info dans la cellule A1

Image:


Pièce jointe 177462

PS: Dans la même structure est-il possible de mettre la date du jour?

[Quentin77170]

Tu peux le faire directement depuis : Imprimer/Mise en page / En-tête et pied de page

Pas de macro nécessaire !

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Range("RightHeader")= "&P de &N"
 
With ActiveSheet.PageSetup
        .LeftHeader = Range("LeftHeader")
        .CenterHeader = Range("CenterHeader")
         .RightHeader = Range("RightHeader") 
        .LeftFooter = Range("LeftFooter")
        .CenterFooter = AjouterLineFeed(Range("CenterFooter"))
        .RightFooter = Range("RightFooter")
End With

Liste de codes possibles pour l'Entête et le Pied-de-page
&D Imprimer la date.

&T Imprimer l'heure.
&F Imprimer le nom du fichier

&A Imprimer le nom de la feuille
&P Imprimer le numéro de la page.
&P+number Imprimer le numéro de la page plus un nombre
&P-number Imprimer le numéro de la page moins un nombre
&& Imprimer le caractère &
&N Imprimer le nombre total de pages dans le document
&B Imprimer en caractères gras
&"arial,bold"mon texte Imprimer avec la police Arial Gras
&U&24mon texte Imprimer avec une taille de 24 et soulignement

[iliaseyah]

Bonjour,

J'ai essayé la méthode que vous me conseillez mais malheureusement elle ne fonctionne pas ou alors pas très bien. Dès lors que je génère une nouvelle feuille avec donc de nouvelles données mon entête se voit modifier..; En effet, même si je créée un entête personnalisé, il est modifié.

"Tu peux le faire directement depuis : Imprimer/Mise en page / En-tête et pied de page
Pas de macro nécessaire !"

Le code que vous m'avez transmis ne fonctionne pas ou alors je ne l'ai pas compris. Pourriez-vous m'apporter des infos supplémentaire sur ce code ?

Merci pour vos réponses et pour l'importance que vous accordez à ma question!

[Docmarti]

Appelle ce code avant l'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub tt()
 
Worksheets("Feuil1").PageSetup.RightHeader = "&P de &N"
 
End Sub

[iliaseyah]

J'ai essayé ce code mais il ne fonctionne pas, de plus peut-on le modifier pour la "feuille active" ActiveSheet ?

[Docmarti]

peut-on le modifier pour la "feuille active" ActiveSheet ?

Bien sûr. Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").PageSetup.RightHeader = "&P de &N"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.RightHeader = "&P de &N"

Ca fera apparaître les numéros de page en haut à droite de cette feuille lors de l'aperçu avant impression comme lors de l'impression.

[topito411]

Bonjour à tous,

Et tout d'abord merci à tous de faire vivre ce forum fort utile ! Je réveille un vieux sujet, j'espèr avoir un retour malgré tout.
J'ai suivi certaines des indications du forum pour faire mon propre code VBA (je n'y connais rien, je fais avec des morceaux ici ou là et un peu de logique )

Ma question est rapide pour quelqu'un qui connait je pense :
je souhaite ajoute le numéro de page par macro donc a une sélection de 2 onglets

contexte: Je fais un fichier Excel avec en onglet 1 : CGV onglet 2 : devis 1 onglet 3 : devis 2 etc...
Je souhaite exporter en pdf le devis actuel (page active) + cgv sur le même pdf et avoir page 1 sur 2 et page 2 sur 2
avec le code suivant je n'obtiens que le page 1 sur 2 et rien sur la deuxième page.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub DEVIS_EXPORT()
'
chemin = "D:\COMPTA\All_D-F"
 
 Sheets(Array("CGV", "DEVIS (2)")).Select False
 ActiveSheet.PageSetup.RightHeader = "page" & "&P de &N"
.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & [H6]
 
End With
'
End Sub

Merci d'avance pour votre entraide
Amicalement
Franck