Problème d'affichage après filtre
Bonjour,
je suis débutante dans le VBA, et je dois créer une macro pour créer un fichier par magasin. Le but est d'aller chercher dans un fichier base les informations qui ne concerne qu'un magasin, de les copier et de les coller dans un autre document puis d'enregistrer ce document. Et je dois le faire pour tous les magasins.
J'ai fait une macro qui fonctionne avec le premier magasin, mais à partir du second, les résultats après le filtre n'apparaissent pas, je suis obligé de retourner sur le filtre personnalisé et de faire OK pour valider la sélection. par conséquent rien ne se copie/colle dans le nouveaux document qui s'enregistre à vide.
Voici ma macro :
Workbooks.Open Filename:= _
"******************************\base paie 01-2019.xlsx"
Range("A1").Select
Selection.CurrentRegion.Select
ActiveSheet.Range("$A$2:$IP$3835").AutoFilter Field:=9, Criteria1:="FRPG77"
Selection.Copy
ChDir "S:\*********************\FPj-15"
Workbooks.Open Filename:="S:\*****************\maquette FPj-15.xlsx", _
UpdateLinks:=0
Sheets("PUCs").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Janvier").Select
Range("C1").Value = "FRPG77"
ChDir "S:\********************\FPj-15 2019"
ActiveWorkbook.SaveAs Filename:= _
"S:\********************************\maquette FPj-15 FRPG77.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Windows("base paie 01-2019.xlsx").Activate
ActiveSheet.Range("$A$2:$IP$3835").AutoFilter Field:=9, Criteria1:="FRPE01"
Selection.Copy
ChDir "S:\**************************\FPj-15"
Workbooks.Open Filename:="S:\*******************************\maquette FPj-15.xlsx", _
UpdateLinks:=0
Sheets("PUCs").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Janvier").Select
Range("C1").Value = "FRPG77"
ChDir "S:\**************************\FPj-15 2019"
ActiveWorkbook.SaveAs Filename:= _
"S:\C**********************************\maquette FPj-15 FRPE01.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveWindow.Close
J'espère que vous pourrez m'aider car j'ai chercher sur internet mais je n'ai rien trouvé.