Code impression dernière page excel

Bonjour,

Je souhaite imprimer uniquement la dernière page d'un onglet excel.

Mes lignes sont variables en fonction des données saisies au préalable, j'ai donc inséré une zone d'impression automatique via le code suivant :

Code:

---

1 2 3

Dim DerLig As Long DerLig = Range("D" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "a1:n" & DerLig

---

Il arrive que cette zone d'impression représente plusieurs pages, comment puis-je faire pour imprimer que la dernière page.
J'ai essayé de redéfinir ma zone d'impression en fonction de la dernière ligne sans succès... :

Code:

---

1 2 3 4

Dim DerLig As Long   DerLig = Range("D" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = ("a1:n" & DerLig) - ("a1:n" & DerLig - 30)

---

Si quelqu'un a eu le problème, merci de m'éclairer.
Xavier

Bonjour,

Essayez de voir du coté de

Code:

---

ActiveWindow.SelectedSheets.HPageBreaks.Count

---

JP

Merci de votre aide,

où faut-il placer ce bout de code ?

VBA m'affiche un message d'erreur "utilisation incorrecte de la propriété" (.count)

Essayez le code suivant, la variable a devrait donner l'adresse de la première cellule en haut de la dernière page à imprimer.
On peut ensuite définir une zone d'impression en utilisant cette adresse et celle de Derlig

Code:

---

1 2 3 4 5

Sub sc() With ActiveSheet a = .HPageBreaks(.HPageBreaks.Count).Location.Address End With End Sub

---

JP

Meric, malheureusement, ca ne fonctionne pas mieux,

j'ai donc essayé avec le code suivant :

Code:

---

1 2 3 4 5

Dim DerLig As Long Dim a As Long a = .HPageBreaks(.HPageBreaks.Count).Location.Address DerLig = Range("D" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = a & DerLig

---

Sans résultats...

j'ai un message d'erreur : "référence de (.hPageBreaks) incorrecte ou non qualifiée"

Xavier.

Vous n'avez pas tout retranscrit

Il manque

Code:

---

1 2 3

With ActiveSheet   End With

---

Excusez-moi d'insister...

Code:

---

1 2 3 4 5 6 7

With ActiveSheet Dim a As Long Dim derlig As Long derlig = Range("D" & Rows.Count).End(xlUp).Row a = .HPageBreaks(.HPageBreaks.Count).Location.Addresss End With ActiveSheet.PageSetup.PrintArea = a & derlig

---

j'ai toujours un message d'erreur :"l'indice n'appartient pas à la sélection"

Bonjour à vous, Bonjour au Forum,

On peut définir le nombre N de pages par MacroExcel4 puis imprimer les pages de N à N.

Soit (à adapter)

Code:

---

1 2 3 4 5 6

Public Sub Contrôle_Pages() Dim N As Byte Sheets("lafeuiile").Activate N = ExecuteExcel4Macro("GET.DOCUMENT(50)") ActiveWindow.SelectedSheets.PrintOut From:=N, To:=N End Sub

---

Merci Marcel,

Pouvez-vous expliquer votre code.

Que signifie "Byte" ?

A quoi correspond cette partie ?

Code:

---

ExecuteExcel4Macro("GET.DOCUMENT(50)")

---

Salut,

Si je peux me permettre, instruis-toi avant tout des bases avant de coder. Tu trouveras sur cet environnement de nombreux tutoriels qui pourront t'aider.
Ceux de Sylkiroad, Didier, Fring et les autres, en général.
Celui de Sylkiroad sur les variables, en particuler

les variables par Sylkiroad

qui t'expliquera ce que signifie "Byte".

Les macros Execute d'Excel 4 sont utiles pour retourner certaines informations sur les objets Excel.

Sauf erreur, 50 est l'argument qui permet de retourner le nombre de pages imprimées d'une feuille.

Bonne continuation.