XL 2016 Macro filtre date (les derniers 48 h)

USER2112

XLDnaute Nouveau
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.
 

Pièces jointes

  • REPORT1.xlsm
    594.4 KB · Affichages: 105

sousou

XLDnaute Barbatruc
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
 

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
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é.


upload_2016-10-20_18-58-31.png
 

Pièces jointes

  • upload_2016-10-20_19-0-34.png
    upload_2016-10-20_19-0-34.png
    16.4 KB · Affichages: 84

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 809
Messages
2 092 295
Membres
105 343
dernier inscrit
Poipi81