Discussion :

[reinruof77700]

bonjour le forum

voici ma question est il possible de copier la colonne A1 de la feuille R1 de plusieurs fichier excel qui ce trouve dans le dossier 2012 sur un seul fichier excel a l'aide d'une macro ou une formule .

Merci de votre aide.

[Kimy_Ire]

Voici le code que je te propose :

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
25
26
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\Users\...\Desktop\test\2012\"
 
    'Boucle sur tous les fichiers
    Fichier = Dir(Chemin & "*.xls")
    'ou
    'Fichier = Dir(Chemin & "*")
 
    j = 0
    Do While Len(Fichier) > 0
        'MsgBox Chemin & Fichier
 
        Workbooks.Open Filename:=Chemin & Fichier
 
        For i = 0 To Worksheets("R1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
            Workbooks("test").Worksheets("recap").Range("A1").Offset(i, j) = Worksheets("R1").Range("A1").Offset(i, 0)
        Next i
 
        Workbooks(Fichier).Close (False)
        j = j + 1
        Fichier = Dir()
    Loop
End Sub

Après un rapide test tout fonctionnait !
Tiens moi au courant !