Rassembler classeur Excel

Bonjour le Forum

Existe-il, svp, un code qui permet de rassembler tous les classeurs excel de différents dossiers en un seul dossier ceci si possible en les renommant

D'avance, je vous remercie de votre aide et pour votre disponibilité

Bonjour Eole

J'espère que tu vas Super bien ...

Avec l'aide de Power Query ... tu pourras réaliser ton objectif et combiner tes fichiers ...

Un lien explicatif :

https://www.lecfomasque.com/power-query-combiner-plusieurs-fichiers-excel/

En espèrant que cela t'aide

Bonjour le Forum

Bonjour James 007

oui ça va merci et j'espère que toi aussi

Merci pour ton aide, mais ça je connaissais

Mais ce n'est pas ce que je voulais faire

J'ai plusieurs dossiers ( 100 ) qui contiennent plusieurs fichiers excel ( 5 )

ce que je veux faire c'est simplement avoir 1 dossier avec les 500 fichiers excel

soit rassembler dans le même dossier tous mes classeurs excel

Re,

Tu peux t'inspirer de la macro suivante pour déplacer un fichier d'un répertoire Source vers un répertoire Destination

Option Explicit

Sub DéplacerFichier()
    Dim FSO As Object
    Dim SourceNomFichier As String
    Dim DestinNomFichier As String

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceNomFichier = "C:\Eole\Test.xlsx"
    DestinNomFichier = "C:\Eole\Dossier\Test.xlsx"

    FSO.MoveFile Source:=SourceNomFichier, Destination:=DestinNomFichier

    MsgBox (SourceNomFichier + " a été déplacé vers " + DestinNomFichier)
End Sub

Il te suffit d'ajouter deux boucles pour balayer tous tes répertoires et tous tes fichiers

En espèrant que cela t'aide

Bonjour,

Pas de réponse ... signifie ... sans doute ... que tout fonctionne ...

Bonjour le forum

Bonjour James007

Toutes mes excuses pour le retard

Je t'avoue que je n'ai pas traité ce WE j'étais en pleine cuisine du cochon chez mes parents(saucisses, pâtés, jambon....)

Avec ce que tu m 'as donné je devrais pouvoir me débrouiller je reviens sur le post si je plante

Mais quoi qu'il en soit je te remercie beaucoup pour ton aide et pour ta disponibilité

Bonjour,

Pas de problème ...

Bon Courage pour la suite ...