XL 2016 Macro filtre date (les derniers 48 h)

[USER2112]

Bonjour à tous,
j'ai créée un état que vous trouvez ci-joint, en fait j'ai voulu filtrer les dates (aujourd'hui + hier) avec un macro.
Malheureusement j'ai pas réussi.
S'il vous plait quelqu'un peut m'aider?
Merci d'avance.

 

[sousou]

bonjour
sachant que dans ton exemple tu as un tableau nommé "Sales_Shipment_Line"
Tu peux faire ainsi en utilisant le nom de ce tableau
Private Sub Workbook_Open()
'Dim Sh As Worksheet
With ActiveSheet.ListObjects("Sales_Shipment_Line").Range
.AutoFilter Field:=5, Operator:=xlOr, Criteria1:=CStr(Date), Criteria2:=CStr(Date - 1)
End With
End Sub

 

[USER2112]

Bonjour,
merci c'est très gentille.
mon problème et résolue.
une autre question comment peut-on trier les date?

 

[sousou]

Par Macro?
Sinon le tri sur le tableau via menu accueil/tri

 

[USER2112]

Oui par macro si c'est possible

 

[sousou]

Ajoute la méthode sort sur le tableau avec le numéro de la colonne du tableau à trier et la propriété header pour conserver la première ligne du tableau

Private Sub Workbook_Open()
'Dim Sh As Worksheet

With ActiveSheet.ListObjects("Sales_Shipment_Line").Range
.Sort key1:=.Columns(5), Header:=True
.AutoFilter Field:=5, Operator:=xlOr, Criteria1:=CStr(Date), Criteria2:=CStr(Date - 1)
End With
End Sub

 

[USER2112]

merci beaucoup,
c'est fonctionnel.
et si je veut trier selon l'ordre descendant (par exemple je veut afficher les données d'aujourd'hui avant les autres données), comment sa se fait?

 

[USER2112]

bonjour a tous,
j'ai voulu enregistrer mon fichier xlsm en format xlsx sous un répertoire, j'ai utiliser ce macro:
Sub SaveAsXLSX()
FName = ActiveWorkbook.Name
FName = Left(FName, Len(FName) - 4)
ActiveWorkbook.SaveAs Filename:="C:\med\" & FName & ".xlsx", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Malheureusement sa fonctionne pas il m'affiche l'erreur suivant:
s'il vous plait vous pouvez m'aidé.

 

[USER2112]

Bonjour,
personne ne peut m'aider.s'il vous plait je suis bloqué.

 

[sousou]

est tu sur de vouloir l'enregistrer au format xlsx?
si oui
Sub SaveAsXLSX()
Set f = ActiveWorkbook
fname = Left(f.Name, Len(f.Name) - 5)
f.SaveAs Filename:=f.Path & "/" & fname & "1.xlsx", FileFormat:=xlOpenXMLWorkbook

End Sub

en modifiant f.path par ton chemin

 

[USER2112]

Lorsque j'exécute le macro affiche le message suivant:
en faite je souhaite automatiser l'enregistrement de fichier sans demandé la confirmation.
avec le format xls ça marche bien

 

[sousou]

En cherchant un peu tu aurais trouvé ceci
Application.DisplayAlerts = False
f.SaveAs Filename:=f.Path & "/" & fname & "1.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

 

[USER2112]

merci,

en faite j'ai trouvé la solution

 

[sousou]

Good

 

[USER2112]

bonjour,
est ce que c'est possible de regrouper 5 classeurs de même structure en un seul.
par exemple j'ai 5 états de livraison chacune est relatifs a un code vendeur, chaque état est créer sous un classeur unique. et je voudrais insérer ces 5 feuilles sur un seul classeur nommé BL'S