Discussion :

[arnest]

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?

[nawake]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Initial2.Save
Modifiés2.Save

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