recuperer des information dans plusieurs classeur

laurent · 26 Février 2002

<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>

Raf · 6 Mars 2002

<HTML>Avez-vous trouvé une solution je recherche la même chose de mon coté avec de fichiers excel

Merci</HTML>

Franck · 12 Avril 2002

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

Effectuez une recherche sur Excel Downloads...

recuperer des information dans plusieurs classeur

laurent

Guest

Raf

Guest

Franck

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée