Discussion :

[Yumat]

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 :

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

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 :

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

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

[kiki29]

Salut, qqch comme ceci :

Code :

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

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

[Yumat]

Salut à toi kiki29

Et bien chapeau, d'un seul coup d'un seul tu as effacé quelques nuits d'insomnie (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)

[patricktoulon]

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

[Yumat]

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

Code :

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

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