XL 2016 Macro filtre date (les derniers 48 h)

sousou

XLDnaute Barbatruc

• 19 Octobre 2016

• #2

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

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 19 Octobre 2016

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Octobre 2016

• #4

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

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 19 Octobre 2016

• #5

Oui par macro si c'est possible

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Octobre 2016

• #6

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

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 19 Octobre 2016

• #7

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?

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 20 Octobre 2016

• #8

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

 

Pièces jointes

• upload_2016-10-20_19-0-34.png

  16.4 KB · Affichages: 89

Vote positif 0 Vote négatif

U

USER2112

Guest

• 21 Octobre 2016

• #9

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Octobre 2016

• #10

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

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 21 Octobre 2016

• #11

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Octobre 2016

• #12

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

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 21 Octobre 2016

• #13

merci,

en faite j'ai trouvé la solution

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Octobre 2016

• #14

Good

 

Vote positif 0 Vote négatif

U

USER2112

Guest

• 24 Octobre 2016

• #15

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

 

Vote positif 0 Vote négatif