Fusionner 2 fichiers Excel - HELP !!

Fermé
thelvy - 15 mai 2008 à 17:21
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 15 mai 2008 à 23:10
Bonjour,

Une demande toute bête.

J'ai un fichier X avec plein de données. (10 000 lignes)
J'ai un fichier Y qui est composé de quelques lignes du fichier X et auquel j'ai apporté des modifs.(environ 1000 lignes)

Je souhaite injecter mon fichier Y dans le fichier X en fonction des références de la première colonne de chaque fichier.

En clair faire une mise à jour de mon fichier original.

Comment faire pardi ?

Merci pour votre aide. Le temps m'est compté
A voir également:

2 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
15 mai 2008 à 22:01
bonjour

Tu copies ton fichier Y sur le X puis tu supprimes les doublons

Le temps m'est compté

Le notre aussi non ? à moins que je me trompe ...
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
15 mai 2008 à 23:10
bonsoir,
je crois pas que c'est ce qui veux, mon avis les lignes doivent êtrent réimbriguées aux mêmes emplacement...
si oui, je ne vois que 2 boucles...mais ca risque d'être asser long

dim e as long, I as long, DerLigneX as long, DerLigneY as long
Dim FsX as objet
Set FsX =Workbooks("FichierX").worsheets("FeuilX")

'initialiser DerligneX et Y ...
     Workbooks("FichierY").worsheets("FeuilY").select
     For i = 1 to DerLigneY  'le fichier de 1000 lignes
         For e = 1 to DerLigneX
             If cells(i,1).value = FsX.cells(e,1).value Then
                 'Copier la ligne i deY sur la ligne e de X
             end if
          Next e
     Next i

Comme tu n'a pas donné les noms des feuilles ni des fichier stu doit bien sûre les ajoutés.
0