Bonjour,

Je cherche une macro qui permette d'envoyer dans plusieurs colonnes d'un tableau Excel les données provenant d'autres fichiers excel.

J'ai réalisé cette macro mais elle ne fonctionne que pour 1 fichier source. or j'aimerais qu'elle fonctionne pour plusieurs fichiers sources, et que les données s'insèrent à la suite de celles qui existent déjà dans le fichier cible:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CopierColler()
Dim Ligne As Integer
 
 
Windows("ONP A-AT V1.5.xls").Activate
Range("M65536").Select
Ligne = (Range("M65536").End(xlUp).Row + 1)
Range("M" & Ligne).Select
 
 Windows("cmlartde.xls").Activate
  Range("A2:F340").Select
 Selection.Copy
 Windows("ONP A-AT V1.5.xls").Activate
 ActiveSheet.Paste
 ActiveWindow.ScrollColumn = 8
 ActiveWindow.ScrollColumn = 9
 ActiveWindow.ScrollColumn = 10
 Windows("cmlartde.xls").Activate