Je ressaye avec ton code !Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Macro1() ' ' Macro1 Macro ' ' Chemin = ThisWorkbook.Path Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Chemin) Set fc = f.Files For Each f1 In fc If Left(f1.Name, 5) = "Tableaux_REF1" Then Workbooks.Open Filename:=Chemin & "[" & f1.Name Next Sheets("Base Brute").Select Cells.Select Selection.ClearContents Windows("Tableaux_REF1.xls").Activate --> je pense que ca va pas marcher si je change de nom de fichier Cells.Select Selection.Copy Windows("Rapport.xlsm"). _ Activate ActiveSheet.Paste End Sub
@bbil : Je viens de tester ton code, il fonctionne à merveille mais sur la ligne 24, je ne peux que sélectionné "une seule case", j'aimerai "sélectionné tout" et "coller tout", comment m'y prendre ?
wk.Sheets(1).Range("N24").Copy ThisWorkbook.Sheets(1).Range("A1")
Tu as dit qu'il ne fallait pas d'activate ou select inutile ??
EDIT : J'ai résolu partiellement le problème en faisant ça :
Code:
1
2
3
4
5
6
7
8
9 wk.Sheets(1).Range("A:A").Copy ThisWorkbook.Sheets(1).Range("A:A") wk.Sheets(1).Range("B:B").Copy ThisWorkbook.Sheets(1).Range("B:B") wk.Sheets(1).Range("C:C").Copy ThisWorkbook.Sheets(1).Range("C:C") wk.Sheets(1).Range("D:D").Copy ThisWorkbook.Sheets(1).Range("D:D") wk.Sheets(1).Range("E:E").Copy ThisWorkbook.Sheets(1).Range("E:E") wk.Sheets(1).Range("F:F").Copy ThisWorkbook.Sheets(1).Range("F:F") wk.Sheets(1).Range("G:G").Copy ThisWorkbook.Sheets(1).Range("G:G") wk.Sheets(1).Range("H:H").Copy ThisWorkbook.Sheets(1).Range("H:H") ...