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
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
A voir également:
- Fusionner 2 fichiers Excel - HELP !!
- Liste déroulante excel - Guide
- Formule excel - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Fusionner 2 pdf - Guide
- Fusionner deux fichiers excel - Guide
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
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 ...
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 ...
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
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
Comme tu n'a pas donné les noms des feuilles ni des fichier stu doit bien sûre les ajoutés.
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.