Discussion :

[Ghost0000]

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
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

Je ressaye avec ton code !

@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 :

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

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")
...

[SfJ5Rpw8]

bonsoir,

peut-être :

Code :

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

wk.Sheets(1).Range("A:H").Copy ThisWorkbook.Sheets(1).Range("A1")

[Ghost0000]

J'ai fini par trouver :

Code :

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

1
2
3
4
 
For i=0 To 26
wk.Sheets(1).Columns(i).Copy ThisWorkbook.Sheets(1).Columns(i)
End For

Je poste en résolu !

Merci à tous pour votre participation !