D
Domi
Guest
Bonjour à tous,
Tout d'abord je tiens à remercier les 2 JM qui m'ont aidée à résoudre mon 1er Pb de date. Voici mon second :
Dans la macro suivante, je souhaiterais que 2004 soit l'année en cours et 2003 l'année en cours-1. Mes essais n'étant pas du tout concluant et mes recherches peu fructueuses, je fais appel à vous!
Merci d'avance.
Domi
Sub Macro1()
'
' Macro1 Macro
' Sheets("Feuil1").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=">=12/31/2003", Operator:=xlAnd _
, Criteria2:="<03/17/2004"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Tout d'abord je tiens à remercier les 2 JM qui m'ont aidée à résoudre mon 1er Pb de date. Voici mon second :
Dans la macro suivante, je souhaiterais que 2004 soit l'année en cours et 2003 l'année en cours-1. Mes essais n'étant pas du tout concluant et mes recherches peu fructueuses, je fais appel à vous!
Merci d'avance.
Domi
Sub Macro1()
'
' Macro1 Macro
' Sheets("Feuil1").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=">=12/31/2003", Operator:=xlAnd _
, Criteria2:="<03/17/2004"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub