Discussion :

[oliver75]

bonjour ,

voilà mon pb.
j'ai deux fichiers excel (fichier 1 et fichier 2) qui ont les memes informations et donc la meme structure au niveau des colonnes. En revanche le nombre de lignes renseignées peut etre différent à chaque traitement.

je cherche via une macro à ajouter à la suite des données du "fichier 1" les informations du "fichier 2".

Merci pour vos propositions.

olivier

[jfontaine]

Une proposition

1. Tu ouvres ton fichier 1

2. Tu ouvres ton fichier 2

3. Tu copies les données du fichier 2

4. Tu recherches la première ligne vide du fichier 1

Code :

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

1
2
3
4
5
6
'Une solution
Dim i as long
i=1
do while not range("A" & i).value<>""
   i=i+1
loop

5. Tu colles les données copiées

Pour le code l'enregistreur de macro pourra t'aider

[oliver75]

merci m'sieur

[wilfried_42]

Bonjour oliver

Le claseur1 est le classeur qui va recevoir les données et qui aura la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
sub transfer()
      dim i as long, numlig as long, nblig as long
      Workbooks.Open Filename:="Classeur2.xls"
      for i =  to workbooks(2).sheets.count
           numlig = workbooks(1).sheets(i).range("A65535").end(xlup).row +1
           nblig = workbooks(2).sheets(i).range("A65535").end(xlup).row
           workbooks(2).sheets(i).range("A1:A" & nblig).entirerow.copy destination:=Workbooks(1).sheets(i).range("A" & numlig)
      next i
end sub

"A1:A" & nblig ---> pas de ligne de titre sinon : "A2:A" & nblig

cette macro passera toute les feuilles en revue
Bonne journée