Macro pour MAJ fichier à partir d'un autre

Bonjour,

J’ai recu ce code sur ce forum et il fonctionne à merveille,

Sub MettreAjour()

Set f = ActiveSheet

chemin = ThisWorkbook.Path & "\"

On Error GoTo FichierManquant

Workbooks.Open Filename:=chemin & "Fichier_1.xlsx"

f.Cells.ClearContents

Range("A1").CurrentRegion.Copy f.Range("A1")

ActiveWorkbook.Close

Exit Sub

FichierManquant:

MsgBox "Le fichier ''Fichier_1'' doit etre dans le même dossier que celui du présent fichier.", 16

End Sub

Il me permet de mettre le Fichier_A à partir du fichier _1

Cependant, le FICHIER_1 est recu chaque mois (FICHIER_1 AVRIL , MAI ETC…

J’ai fait un test en suprimant fichier_1 et en créer un autre du meme nom mais les anciennes données disparaissent du FICHIEr_A et je voulais qu’elles restent histoire d’avoir toute la liste.

Je souhaiterai aussi que juste la colonne A et B soit prise en compte par exemple.

Et dernierement, Si je veux rajouter un deuxieme fichier, Exemple FICHIER_2 QUI VIENDRA AVEC fichier81 ENRICHIR fichier8a

Toutes mes excuses pour cette publication car j’en ai ai commencé une autre avant et je suis un peu devant une urgence .

10soumsoum.zip (29.36 Ko)
Rechercher des sujets similaires à "macro maj fichier partir"