XL 2016 recup données dans les fochiers d'un répertoire reseau

sri75 · 27 Avril 2021

Bonjour,

j'ai plus de 3000 fichiers excel identiques dans leur forme qui sont dans un répertoire réseau ( ex d:\monrep ).

je dois récupérer des données qui sont dans des cellules ( ex b12, c13 etc ), pou r les coller dans un autre fichier excel.

Pour les variables et le copier coller pas de pb , par contre il me manque comment ouvrir un par un ces fichiers puis passer au suivant , ce n'est pas grave si le fichier ouvert est supprimé ensuite dans le répertoire.

Merci à tous pour vos idées sur la facon de procéder, je n'ai rien trouvé dans les archives du forum

Bonne journée

Stephane

sylvanu · 27 Avril 2021

Bonjour Sri,
En PJ un essai qui utilise :

VB:

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    Chemin = "C:\Users\PC_PAPA\Desktop\"        'Définit le répertoire contenant les fichiers, se termine par \
    RAZ ' Juste pour le test, efface colonne A
    Fichier = Dir(Chemin & "*.xls*")            'Boucle sur tous les fichiers xls,xlsx,xlsm du répertoire.
    Do While Len(Fichier) > 0
            'Execute la macro quand un fichier est trouvé
            MacroDeTravail Fichier
        Fichier = Dir()
    Loop
End Sub

Cette macro parcourt tout le dossier, repère les fichiers XL et met le nom dans la feuille.
Attention, dans l'état marche sur PC, à adapter pour MAC.

sri75 · 27 Avril 2021

Merci, ca se présente très bien,

Question : Fichier renvoie le nom d'un fichier du répertoire ex toto1.xlsm

J'ai besoin de récuperer les données en b12, b13 et b14 de ce fichier toto1 pour les coller dans une feuille de mon classeur ( ex le nom de la feuille est 2019 )

Suis je obligé d'ouvrir toto1 puis de le fermer ou de le supprimer pour que la macro passe au fichier suivant ?
Merci

sylvanu · 27 Avril 2021

Re,
La macro ne fait que lister les fichiers utiles, puis passe la main à MacroDeTravail.
A mes yeux le plus simple est d'ouvrir Fichier, "picorer vos données" et le fermer.

sri75 · 27 Avril 2021

Re, j'ai un problème , impossible d'ouvrir le fichier listé alors qu'il est bien dans le répertoire

Qu'en pensez vous ?

sylvanu · 27 Avril 2021

Re,
Oups ! Remplacez Fichier par Chemin & Fichier, Fichier ne contient que le nom du fichier.

merinos-BernardEtang · 27 Avril 2021

sri75 à dit:
Bonjour,

j'ai plus de 3000 fichiers excel identiques dans leur forme qui sont dans un répertoire réseau ( ex d:\monrep ).

je dois récupérer des données qui sont dans des cellules ( ex b12, c13 etc ), pou r les coller dans un autre fichier excel.

Pour les variables et le copier coller pas de pb , par contre il me manque comment ouvrir un par un ces fichiers puis passer au suivant , ce n'est pas grave si le fichier ouvert est supprimé ensuite dans le répertoire.

Merci à tous pour vos idées sur la facon de procéder, je n'ai rien trouvé dans les archives du forum

Bonne journée

Stephane

Les methodes données sont efficasses si tu dois reprendre un nombre précis et limité de données.

Si tu dois reprendre des données structurées je te conseille ma méthode. je m'en suis servi pour lire des offres, pour assembler des listes issues de SAP,...

sri75 · 27 Avril 2021

C'est bon j'ai réussi, merci pour votre aide

XL 2016 recup données dans les fochiers d'un répertoire reseau

sri75

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

sri75

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

sri75

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

merinos-BernardEtang

XLDnaute Accro

sri75

XLDnaute Occasionnel

Discussions similaires