XL 2010 RESOLU - Borner impression feuille de date à date

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • Test Forum.xlsm
    38.4 KB · Affichages: 27

Yurperqod

XLDnaute Occasionnel
Bonjour le forum

Ci-dessous un essai de macro
VB:
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
 

Yurperqod

XLDnaute Occasionnel
Une version un peu remaniée de ma première macro
VB:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07