recuperer des information dans plusieurs classeur

L

laurent

Guest
<HTML>je cherche à recuperer des informations, toujours dans les mêmes cellules,mais sur plusieurs centaines de fichier excel pour en faire un tableau recapitulatif.

existe-il une macro excel pour faire ce travail tres repetitif?
ou bien comment fait on pour appeler tous les fichiers excel d'un repertoire (boucle) ?

les fichiers sont en fait des feuilles lotus mais je pense que cela ne change rien.

merci d'avance pour les reponses
laurent</HTML>
 
F

Franck

Guest
Bonjour,
Le code suivant te permet de lister le nom de tous les fichiers d'un répertoire et de les inscrire dans une feuille excel.
Il te suffit de modifier les 2 lignes du 'traitement' pour y adapter le traitement que tu souhaites.



Private Sub CommandButton1_Click()

'ouvre une fenêtre de dialogue pour demander le chemin du répertoire
MyPath = InputBox("Indiquez le chemin du répertoire : ", "Lister les fichiers.", "A:\")

'définit le répertoire où sont les fichiers
myname = Dir(MyPath, vbDirectory)

'boucle passant en revue tous les fichiers du répertoire
Do While myname <> ""
' traitement
ActiveCell.Offset(1, 0).Select 'sélectionne la ligne suivante de la colonne A
ActiveCell = myname 'inscrit le nom du fichier trouvé
' passe au fichier suivant
myname = Dir
Loop




End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 623
Membres
105 469
dernier inscrit
gautronmi