Preciser Sources documents

Bonjour la communauté,

je vous sollicite une nouvelle fois pour un coup de main.

J'ai pris une macro sur le site pour regrouper plusieurs fichiers excel sur un seul.

Elle marche à merveille.

Sub Regroupe()

sousRépertoire = "LesFichiers"

[A2].CurrentRegion.Offset(1, 0).Clear

Set maitre = ActiveWorkbook

Repertoire = ThisWorkbook.Path

nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls")

Do While nf <> ""

Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf

n = [A1].CurrentRegion.Rows.Count - 1

[A1].CurrentRegion.Offset(1, 0).Copy _

maitre.Sheets(1).[A65000].End(xlUp).Offset(1, 0)

ActiveWorkbook.Close False

nf = Dir

Loop

End Sub

Désormais, tous les fichiers s'affichent sur un seul sous forme d'une liste.

Cependant, je voudrais afficher la source de chaque document regroupé sur le nouveau fichier.

Je vous remercie de votre aide.

Bonjour Soumsoum, bonjour le forum,

Peut-être comme ça :

Sub Regroupe()
Dim CM As Workbook
Dim OM As Worksheet
Dim SR As String
Dim R As String
Dim nF As String
Dim CS As Workbook
Dim OS As Worksheet
Dim DEST As Range

Set CM = ActiveWorkbook
Set OM = CM.Worksheets(1)
SR = "LesFichiers"
R = ThisWorkbook.Path
OS.Range("A2").CurrentRegion.Offset(1, 0).Clear
nF = Dir(R & "\" & SR & "\*.xls")
Do While nF <> ""
    Workbooks.Open Filename:=R & "\" & SR & "\" & nF
    Set CS = ActiveWorkbook
    Set OS = CS.Worksheets(1) 'à adapter
    'n = [A1].CurrentRegion.Rows.Count - 1 a quoi sert cette ligne ???
    Set DEST = OM.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
    OM.DEST.Value = R & "\" & SR & "\" & nF
    OS.Range("A1").CurrentRegion.Offset(1, 0).Copy DEST.Offset(1, 0)
    CS.Close False
    nF = Dir
Loop
End Sub

Merci pour ta réponse rapide,

Tu pourrais m'indiquer la démarche à suivre? je suis nul

Les fichers à regrouper se trouvent dans un dossier

Re,

Que veux-tu dire par la démarche à suivre ?... As-tu testé le code ? Désolé mais je ne comprends pas ton propos...

Oui je l'ai testé et un message s'affiche :

Erreur de compilation:

Membre de méthode ou de données introuvable

Au niveau de OM.DEST.VALUE , il y a un problème

Re,

Oui pardon c'est ma faute. Ce n'est pas OM.DEST.Value mais seulement DEST.Value. Suprimme "OM."

Re,

Nouveau soucis avec

Debobage et en jaune OS.RANGE ("A2") .CurrentRegion.offset (1, 0).Clear

Il marche, il marche a merveille meme.

Merci merci et merci, j'ai juste suprimé Os. devant range

Mille merci

Re,

Décidément !... Il faut que j'arrête de boire...

C'était pas OS.Range mais OM.Range. Comme tu l'as dit, ça marche aussi sans... Je te conseille quand même de le mettre.