HELP VBA : importer données de différents fichiers excel dans différents dossiers

[FFAUVERE]

Bonjour,

Je vais tenter d'être plus précis que mon 'objet'.
J'aimerai rassembler dans un fichier excel via une macro VBA toutes les cellules A1 de tous les fichiers excel qui sont dans le dossier 'TEST' et sous dossiers 'TEST1' et 'TEST2'.

L'ideal serait d'avoir dans ce fichier général une BDD avec :
Nom dossier Nom fichier Valeur cellule A1

Merci d'avance !!!

 

[david84]

Re : VBA : importer données de différents fichiers excel dans différents dossiers

Bonjour,
tu peux regarder du côté de la consolidation de données : cf. notamment le site de JB.
A+

 

[FFAUVERE]

Re : VBA : importer données de différents fichiers excel dans différents dossiers

Merci pour ta réponse si rapide !
J'y avait effectivement pensé mais les fichiers seront créés et ajoutés tous les jours dans différents sous-dossiers avec des noms très aléatoires.
C'est pour cela qu'une macro qui liste les fichiers dans les différents dossiers me semble ête la meilleure solution.

 

[FFAUVERE]

Re : VBA : importer données de différents fichiers excel dans différents dossiers

Si cela peut aider, je suis parti la dessus :
Cela permets d'ouvrir tous les fichiers d'un dossier et d'importer des données...

Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Documents and Settings\ffauvere\Bureau\TEST\"
Fichier = Dir(Chemin & "*.*")
Do While Fichier <> ""
a = Chemin & Fichier

[A65000].End(xlUp).Offset(1, 0).Value = a
Set Wb = Workbooks.Open(a)

b = Wb.Sheets("Feuil1").Range("A1").Value

Wb.Close
[B65000].End(xlUp).Offset(1, 0).Value = b
Set Wb = Nothing
Fichier = Dir
Loop
End Sub
Option Explicit

Mais comment l'adapter avec des sous dossiers ?
Et, est-il possible d'importer sans ouvrir les fichiers ?

Merci d'avance

 

[FFAUVERE]

Re : VBA : importer données de différents fichiers excel dans différents dossiers

Erreur de saisie (désolé)