Macro Lister Fichiers

[yoyo69]

Bonjour,
La macro ci-dessous permet de lister tous les classeurs d'un répertoire et récupère les données de la cellule A1(Feuil1) de chaque fichier sans l'ouvrir.
Comment l'adapter afin de récuperer les données de plusieurs cellules de chaque fichier ?

Sub chercheFichiersFermesV03()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String

Application.ScreenUpdating = False
Direction = Dir("C:\Documents and Settings\*.xls") 'adapter chemin repertoire

Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop

If nbFichiers > 0 Then
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 1)
.Formula = "='C:\Documents and Settings\[" & Tableau(X) & "]Feuil1" & "'!" & "A1"
.Value = .Value
End With
End If
Next X
End If

Application.ScreenUpdating = True
End Sub

Merci Cordialement, Yoyo

 

[gbinforme]

Re : Macro Lister Fichiers

bonjour,

sans regarder très en détail et sans optimiser, je te dirais de rajouter :

With ActiveSheet.Cells(Y, 2)
.Formula = "='C:\Documents and Settings\[" & Tableau(X) & "]Feuil1" & "'!" & "B1"
.Value = .Value
End With
With ActiveSheet.Cells(Y, 5)
.Formula = "='C:\Documents and Settings\[" & Tableau(X) & "]Feuil1" & "'!" & "E1"
.Value = .Value
End With

Par exemple...

 

[yoyo69]

Re : Macro Lister Fichiers

merci quand meme mais c'est pas ça,

 

[yoyo69]

Re : Macro Lister Fichiers

je pense que le mieux c'est de prendre des vacances en memes temps que tous le monde ...

 

[Compte Supprimé 979]

Re : Macro Lister Fichiers

Salut Yoyo69,

Ce que t'a donné gbinforme comme solution, fonctionne sans problème !

Tu as donc bien besoin de vacances, ou alors ce que tu veux n'est pas correctement notifié dans ton énoncé de départ !

A+

 

[kiki29]

Re : Macro Lister Fichiers

Jour Bon
Un oeil sur Lire et écrire dans les classeurs Excel fermés - Club d'entraide des développeurs francophones

 

[yoyo69]

Re : Macro Lister Fichiers

merci à vous

je confime . . . il me faut des vacances ...