Discussion :

[johndeuf]

Bonjour a tous,

apres 2 h de recherche infructueuse, je ravale ma fierté et demande un coup de main a qui voudra bien

J ai un classeur excel 1 dans un dossier A
et une centaine de classeur ds un dossier B
je veux recopier dans mon classeur 1 tout le contenenu de chaque classeur n de mon dossier B.
du coup je cherche a appliquer une macro dans le classeur 1 pour pouvoir excecuter l operation

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
Sub compileclasseur()
 
    Dim wb As Workbook
    Set wb = ActiveWorkbook
 
    Dim Fich As String
    Const chemin = "C:\Users\johndeuf\ABC\Ventes mensuelles\"
    Fich = Dir(chemin & "*.xls")
    Do While Fich <> ""
        Workbooks.Open chemin & Fich
 
            Range(Cells(2, 1), Cells(Cells(2, 1).End(xlDown).Row, 9)).Select
            Selection.Copy
    wb.Sheets(1).Cells(Cells(1, 1).End(xlDown).Row + 1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
        Workbooks(Fich).Close False 
        Fich = Dir
    Loop
End Sub

Visiblement c est la ligne

Code :

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

wb.Sheets(1).Cells(Cells(1, 1).End(xlDown).Row + 1, 1).Select

qui pose probleme.
au fait je n arrive pas, je pense, a coder correctement le retour sur le classeur 1 (la ou je veux coller ma selection)

Voila
Thx a celui (celle) qui me sortira de la

[narutobaka]

Bonjour

Je crois qu'il faut juste sélectionner la feuille.

Mais je pense pas que tu ais besoin d'identifier la cellule, ce qui devrait donner soit :

Code :

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

wb.Sheets(1).Select

Pour indiquer la feuille.


++