Opérations sur plusieurs fichiers

Bonjour,

J'ai des fichiers dans un répertoir, je souhaite recopier ces mêmes fichiers pour ne contenir que les données d'un client particulier identifié par deux critères colonne A et colonne B, pour avoir in fine:

C:\fichiers initials
C:\fichiers modifiés

Comment je dois procéder?

Salut,

Alors personnellement je mettrais la macro dans un troisième fichiers Excel.

J'ouvrirais les 2 fichiers de départs que je mettrais dans des variables Workbook

Code:

---

1 2 3 4 5

Dim Initial as Workbook Dim Modifiés as Workbook   Set Initial = Workbooks.Open(Chemin_Fichier_Initial, ...) Set Modifiés = Workbooks.Open(Chemin_Fichier_Modifiés, ...)

---

Après je créerais les deux fichiers "copiés" que je stocke et enregistre tout de suite

Code:

---

1 2 3 4 5 6 7 8

Dim Initial2 as Workbook Dim Modifiés2 as Workbook   Set Initial2 = Workbooks.Add Initial2.SaveAs Filename:=Chemin_Fichier_Initial2   Set Modifiés2 = Workbooks.Add Modifiés2 .SaveAs Filename:=Chemin_Fichier_Modifiés2

---

Ensuite dans chaque nouveau fichiers, je crée / efface / renomme les onglets pour être identique aux fichiers de base, je crée les en-têtes des tableaux de chaque onglet.

Et après je ferais le test colonne A et B pour ensuite copié la ligne pour la coller dans le nouveau fichier correspondant.

Voila, sinon l'autre solution serai de copié les fichiers et de supprimé les lignes ne répondant pas positivement à ton test col A et B

Code:

---

1 2	Initial.SaveAs Filename:=Chemin_Fichier_Initial2 'enregistre initial sous le nom Initial2(donc copié) faire pareil avec Modifiés Set Initial2 = Workbook.Open(Chemin_Fichier_Initial2) 'pour l'ouvrir et l'utilisé

---

Quelque soit ton choix, à la fin de la macro

Code:

---

1 2	Initial2.Save Modifiés2.Save

---

En espérant que ca t'aide, ++