Discussion :

[M8407108]

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

[ouskel'n'or]

Bonjour M,
Où se trouve la liste des sources ?
Tu peux toujours en créer un tableau mais si elles sont dans un répertoire, tu peux avoir le principe à utiliser ici, tu as plusieurs exemples.
Tu dis
A+