Bonjour à tous,
Je voudrais copier des données de la feuil1 vers la feuil2 via une macro.
Mais je voudrais, avant de copier ces données, faire un filtre sur la colonne F, correspondant à la date que j'ai placé en J1.
Actuellement j'utilise cette macro, mais elle copie toutes les données sans filtrer.
S'il y a moyen d'un coup de main?
Je voudrais copier des données de la feuil1 vers la feuil2 via une macro.
Mais je voudrais, avant de copier ces données, faire un filtre sur la colonne F, correspondant à la date que j'ai placé en J1.
Actuellement j'utilise cette macro, mais elle copie toutes les données sans filtrer.
S'il y a moyen d'un coup de main?
Sub maj()
Const fichier As String = "listeOTE_prevus.csv"
Dim wbkSource As Workbook
Dim wbkDestination As Workbook
Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("H:\Reports\LOGYS\listeOTE_prevus.csv", , local:=True)
Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("listeOTE_prevus")
If Not miseablanc Then
Workbooks("Lieu du chargement DA.xlsm").Sheets("Ote prevu").Range("A2:G2000").ClearContents
miseablanc = True
End If
Workbooks(fichier).Sheets("listeOTE_prevus").Range("a2:G2000").Copy _
Destination:=Workbooks("Lieu du chargement DA.xlsm").Sheets("Ote prevu").Range("a2:G2000")
Workbooks(fichier).Close False
Sheets("Ote prevu").Select
Range("C2:C2000").Select
Selection.NumberFormat = "0"
Range("C2").Select
Pièces jointes
Dernière édition: