XL 2010 RESOLU - Borner impression feuille de date à date

[Usine à gaz]

Bonjour à toutes et à tous,

Je suis à la recherche d'un code pour imprimer une feuille de date à date (selon dates d'impression saisies).
J'ai tenté et cherché sur le net et je n'ai pas trouvé.

Peut-être n'y a-t-il pas de solution ?

Je joins un fichier test.
Avec mes remerciements pour votre aide,
Je vous souhaite une très bonne journée,
Amicalement,
Lionel,

 

[Yurperqod]

Bonjour le forum

Ci-dessous un essai de macro

Sub test()
Dim Date_D As Long, Date_F As Long, ZoneImpression As String
Date_D = CLng(Range("L2").Value)
Date_F = CLng(Range("M2").Value)
ActiveSheet.Range("$A$2:$J$435").AutoFilter _
    Field:=1, _
    Criteria1:= _
    ">=" & Date_D, Operator:=xlAnd, _
    Criteria2:="<=" & Date_F
ZoneImpression = "$A$1:" & StrReverse(Split(StrReverse(ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address), ":")(0))
ActiveSheet.PageSetup.PrintArea = ZoneImpression
ActiveSheet.PrintPreview
End Sub

 

[Usine à gaz]

Bonjour Yurperqod,

Merci pour ce retour si rapide.
Super, ça marche et je n'avais pas pensé à masquer les lignes à ne pas imprimer.
Encore Merci,
Amicalement,
Lionel,

 

[Yurperqod]

Une version un peu remaniée de ma première macro

Sub testV2()
Dim Date_D As Long, Date_F As Long, vF As Worksheet, ZoneImpression As String
Set vF = ActiveSheet
Date_D = CLng(vF.Range("L2").Value)
Date_F = CLng(vF.Range("M2").Value)
vF.Range("$A$2:$J$435").AutoFilter _
    Field:=1, _
    Criteria1:= _
    ">=" & Date_D, Operator:=xlAnd, _
    Criteria2:="<=" & Date_F
ZoneImpression = "$A$1:" & Split(vF.AutoFilter.Range.Columns(10).SpecialCells(12).Cells.Address, ":")(1)
vF.PageSetup.PrintArea = ZoneImpression
vF.PrintPreview
End Sub

 

[Usine à gaz]

Super, merci, je vais regarder

 

[Usine à gaz]

LOL, ça marche et c'est certainement mieux.
Merci à vous,
Bonne fin de journée,