Problème remplissage avec plusieurs fichiers

Bonjour tout le monde,

Dans le fichier ci-joint se trouve la macro me permettant de récupérer les données de plusieurs fichiers qui se trouve dans un dossier que je sélectionne.

tout se passe bien sauf que lorsque les données du premier fichier sont récupérées, la macro ne passe jamais au fichier suivant.

Pouvez-vous m'aider s'il vous plait à compléter ma macro ? (si possible sans changer la structure)

Merci

Bonjour,

Je pense qu'il faudrait mettre un close dans la boucle Do While Fichier <> ""

un exemple (qui ne fait rien !)

    Do While Fichier<> ""
        Set wbk2 = Workbooks.Open(MonRepertoire & Fichier)
        Application.DisplayAlerts = False
            wbk2.Close False
        Application.DisplayAlerts = True
        Fichier = Dir
    Loop

pour le reste, je n'ai pas testé !

OK je testerai ca demain je vous tiendrez au courant

Bonjour,

Je viens d'essayé en rajoutant un close mais cela ne change rien.

C'est comme ci à chaque fois c'était le même fichier qui était ouvert/fermé.

Merci de votre aide.

Pour aller plus loin, il faudrait avoir un fichier de base (éventuellement simplifié)

Donc voici le fichier type où les données seront récoltées pour les mettre dans le fichier qui est dans mon premier message.

Chaque fichier aura la même structure ainsi que le même nom.

Tu mets

    If Left(Fichier, 7) = "Recueil" Then

alors que tes fichiers ne comportent pas de majuscules ! c'est recueil et non Recueil

Ajout aussi à la fin

Fichier = Dir

        Loop
    End If
    Fichier = Dir
Loop
End Sub

Alors pour le nom du fichier c'est quand j'ai mis sur le forum la majuscule a disparu, donc pas de problème à ce niveau.

Je viens de rajouter ça marche nickel.

Fichier = Dir

Mais maintenant je viens de voir que j'ai un autre souci les données du second fichier écrasent celles du premier.

au lieu de

j=2

mets (exemple)

        j = Workbooks(Conso).Sheets("Base Invest20").Range("A" & Rows.Count).End(xlUp).Row + 1

pour se caler en dessous de la dernière cellules remplie

Ok super !!

Un grand merci à toi Steelson.

Bonne journée

Dernière petite question :

Pour fermer les fichiers que j'ouvre le code ci-dessous ne fonctionne pas.

Workbooks(rep & Fichier).close

Ais-je un moyen de fermer tous les fichiers dont j'extrait les données ?

Essaie

Workbooks(Fichier).close

ou reprends ce que j'avais proposé plus haut en identifiant par wbk2 le workbook https://forum.excel-pratique.com/excel/probleme-remplissage-avec-plusieurs-fichiers-145625#p895813

C'est bon ca marche j'ai pris la technique avec le wbk2 parce que le Workbooks(Fichier) ne marche pas.

Merci beaucoup de ton aide précieuse.

Alors quand tu as écrit ceci https://forum.excel-pratique.com/excel/probleme-remplissage-avec-plusieurs-fichiers-145625#p895988 tu n'avais pas tout testé !

Le principal c'est que tu t'en es sorti.