XL 2016 Macro filtre date (les derniers 48 h)
- Initiateur de la discussion USER2112
- Date de début
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
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
Bonjour,
merci c'est très gentille.
mon problème et résolue.
une autre question comment peut-on trier les date?
merci c'est très gentille.
mon problème et résolue.
une autre question comment peut-on trier les date?
sousou
XLDnaute Barbatruc
Par Macro?
Sinon le tri sur le tableau via menu accueil/tri
Sinon le tri sur le tableau via menu accueil/tri
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
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
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?
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?
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é.
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
Bonjour,
personne ne peut m'aider.s'il vous plait je suis bloqué.
personne ne peut m'aider.s'il vous plait je suis bloqué.
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
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
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
en faite je souhaite automatiser l'enregistrement de fichier sans demandé la confirmation.
avec le format xls ça marche bien
sousou
XLDnaute Barbatruc
En cherchant un peu tu aurais trouvé ceci
Application.DisplayAlerts = False
f.SaveAs Filename:=f.Path & "/" & fname & "1.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
Application.DisplayAlerts = False
f.SaveAs Filename:=f.Path & "/" & fname & "1.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
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
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
- Résolu(e)
- Question
- Question
