Macro qui délimite la zone d'impression en fonction d'une cellule

Bonjour à tous.

J'ai utilisé une macro (trouvée sur le net car je n'y connais malheureusement rien en VBA) qui me permet de sauvegarder un onglet au format PDF :

Sub Export_PDF()
Dim fichier As String

With Worksheets("Synthèse par élève")
fichier = .Range("H3") & ".pdf"
Dossier = "C:\Users\Dropbox\ECOLE\eMaileur pour publipostage des points\"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Elle fonctionne très bien.
Cependant je voudrais rajouter quelques lignes au début pour qu'Excel délimite automatiquement la zone d'impression avant la sauvegarde en PDF.

Il faudrait que les colonnes de A jusque J soient imprimées mais il faudrait limiter les lignes imprimées de la première jusqu'à la ligne numéro X avec la valeur X qui serait indiquée dans la cellule K10.

Merci à quiconque pourra m'aider.

Bonjour,

Si j'ai bien compris. :

Sub Export_PDF()
Dim fichier As String
Dim NBLIGNE As Long
NBLIGNE = Worksheets("Synthèse par élève").Range("K10").Value

Worksheets("Synthèse par élève").Range("A1:J" & NBLIGNE).Select
With Selection
fichier = .Range("H3") & ".pdf"
Dossier = "C:\Users\Dropbox\ECOLE\eMaileur pour publipostage des points\"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Bonjour,

Une autre approche, en ajoutant une zone d'impression

.PageSetup.PrintArea = "A1:J" & .Range("K10")

Cordialement

Wouaw.
Merci beaucoup à tous les deux.

Vos solutions fonctionnent parfaitement. Sujet résolu.