le plus simple c'est de vous montrer le bout de code ...
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
For i = 0 To 2 'UBound(FileList) - 1
 
 
       Workbooks.Open Filename:="C:\Documents and Settings\stma\Mes documents\XLFILES\SUFIX\" & FileList(i)
       Range("A1:N6").Select     'selection des cellules a copier
        Selection.Copy ' copie des cellules
        'ActiveWorkbook.Close
        Windows("SubMainTest.xls").Activate ' active la fenetre de test2
        ActiveWorkbook.Worksheets(1).Activate 'active la fenetre de test2
        Range("A" & lastline).Select 'selectionne la dernier ligne
        ActiveSheet.Paste 'colle les cellules recuperées
        'Windows(winName).Activate
        ' ActiveWindow.Close
 
    lastline = lastline + 7
 
Next
Donc je parcourre un array de nomns de fiochiers j'ouvre les fichiers et je copie les 6 premières lignes...
je les colle ensuite à la suite dans ma feuille ...
seulement le fichier que j'ouvre reste ouvert ... je voudrais le refermer ...
si je fais fermer avant le paste j'ai un message d'alert avec grandes qantité de données dena le presse papier ...
si je paste, et j'essaye de fermer la fenetre source il me dit que l'indicie de la page n'est pas dans la selection
je n'arrive pas à réactiver la page source des lignes copées pour la fermer ensuite ...