badraaliou4
XLDnaute Occasionnel
Bonjour,
Merci pour votre aide j'ai essayé avec le code ci-dessous mais ça ne marche pas...
Merci pour votre aide j'ai essayé avec le code ci-dessous mais ça ne marche pas...
VB:
sub print()
activesheet.listObjects("Bord").range.Autofilter Field:=1, operator:=_
xlFilterValues,Criterias2:=Array(2, now())
end sub