Discussion :

[Fidji78]

Je souhaiterais lister sur un fichier excel les données de la cellule M15 de l'ensemble des fichiers excel d'un répertoire.

J'ai réaliser une macro me permettant d'avoir les chemins d'accès de chaque fichier (avec leur nom), mais je me pose la question si c'est la bonne méthode.

Quoi dois je faire ? comment faire ?

[SilkyRoad]

bonjour

dans cet exemple chaque classeur fermé doit contenir une feuille nommée Feuil1

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
27
28
29
30
31
32
33
34
Sub extractionclasseursFermes()
Dim X As Integer, NbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String, Chemin As String
 
'repertoire contenant les classeurs fermés
Chemin = "C:\Documents and Settings\michel\dossier"
 
'--- liste les classeurs du repertoire
Application.ScreenUpdating = False
Direction = Dir(Chemin & "\*.xls")
 
Do While Len(Direction) > 0
    NbFichiers = NbFichiers + 1
    ReDim Preserve Tableau(1 To NbFichiers)
    Tableau(NbFichiers) = Direction
    Direction = Dir()
Loop
 
'recuperation données
If NbFichiers > 0 Then
    For X = 1 To NbFichiers
    If Tableau(X) <> ThisWorkbook.Name Then
        Y = Y + 1
        With ActiveSheet.Cells(Y, 1)
            .Formula = "='" & Chemin & "\[" & Tableau(X) & "]" & _
                "Feuil1" & "'!" & "M15"
            .Value = .Value
        End With
    End If
    Next X
End If
Application.ScreenUpdating = True
End Sub

il existe d'autres solutions ( plus complexes a mettre en place mais plus rapides)


bon week end
michel