Problème de syntaxe avec PrintArea

Bonsoir à tous
Dans un tableau ou le nb de lignes varie, cette macro me permet de sauvegarder au format PDF mon tableau de la cellule A1:M63 même si toutes les lignes ne sont pas renseignées et c’est gênant pour moi.

Code:

---

1 2 3 4 5 6

Range("A1:M63").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$M$63" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Compta \PDF\journal.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True

---

J’aimerais ne sauvegarder le tableau que jusqu’à la dernière ligne renseignée.
Problème, si je peux connaitre le numéro de la dernière ligne renseignée grâce à :

Code:

---

1 2 3

Range("C13").Select Selection.End(xlDown).Select DerniereLigne = ActiveCell.Row

---

Je suis incapable de rentrer cette valeur «Derniere Ligne » dans mes lignes ci-dessus 1) et 2)
Je suis certain qu’un cerveau du forum pourra me sortir cette épine du pied.
A l’avance merci

Salut, qqch comme ceci :

Code:

---

1 2 3 4

Dim LastRow As Long   LastRow = Feuil1.Range("C" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & LastRow

---

P.-S. : Voir ici pour baliser du code

Salut à toi kiki29

Et bien chapeau, d'un seul coup d'un seul tu as effacé quelques nuits d'insomnie :D (je rigole mais en fait c'est vrai)

Ta solution était excellente. Un grand merci à toi de la part d'un vieux bidouilleur (75 ans)

Attention a la mepise

2) ActiveSheet.PageSetup.PrintArea = "$A$1:$M$63".
paametre ce qui va etre imprimé quand tu sauve ca prends quand meme tout le sheet

Salut Patrick
Merci pour ta mise engarde mais voilà le code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

' Pour trouver la dernière ligne du tableau   Range("C13").Select Selection.End(xlDown).Select   ' Pour déterminer la zone d'impression   LastRow = Range("C" & Rows.Count).End(xlUp).Row   ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & LastRow   ' Pour forcer l'orientation paysage   With ActiveSheet.PageSetup .Orientation = xlLandscape End With

---

Et ça marche très bien!

Encore merci à vous deux