Consolidation via macro

Bonjour

Je suis entrain de consolider les memes données de differents services et departement dans un meme fichier excel

Sachant que le meme format est utiliser par les autres service pour remplir chacun les données

le meme ordre pour tous les fichiers excel

quelqu'un pourra m aider à faire en un simple clik svp cela me prend bcp de temps à faire du copier coller

c'est tres urgent svp

Bonjour,

malheureusement l'info que tu donnes n'est pas suffisante pour t'aider rapidement.

il faudrait que tu indiques ce que tu veux consolider( dans quelles cellules, sur quelles lignes,dans quelles feuilles, dans quels fichiers, dans quels répertoires) et comment tu veux le consolider.

Si c'est pour consolider 50 lignes dans 50 fichiers, Le temps que tu as attendu avant d'avoir la réponse et le temps qu'il te faudra pour répondre aux questions et ton travail aura déjà été fait, par copier/coller.

Bonjour

merci de voir le fichier en piece jointe

J aurai le meme fichier à chaque fois mais une seule ligne sera rempli pour toutes les colonnes existantes

Le besoin final est d avoir ce fichier mis à jour avec toutes les lignes

bonjour,

voici

Merci bcp pour ton aide

Une deuxieme question stp, est ce qu'on peut faire le meme excercice avec 2 ou 3 lignes remplies par le meme service au lieu d'une seule?

Merci pour ton rapide feedback

Rebonjour,

Comment peut on changer le nom de la boite du dialogue stp?

merci

bonjour

voici le code, pour pouvoir copier toutes les lignes trouvées dans la première feuille des classeurs sélectionnés.

Sub aargh()
    Set wst = ActiveSheet
    ligne = 2
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Sélectionner les fichiers à consolider"
        .Filters.Clear
        .Filters.Add "Excel files", "*.XLS*"
        If .Show = True Then
            For Each fname In .SelectedItems
                Set wb = Workbooks.Open(fname)
                Set ws = wb.Sheets(1)
                dl = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
                ws.Cells(2, 1).Resize(dl, 12).Copy wst.Cells(ligne, 1)
                ligne = ligne + dl
                wb.Close
            Next
        Else
            MsgBox "pas de fichier sélectionné"
        End If
    End With
End Sub

pour changer le nom de la boite de dialogue, il suffit de changer le contenu de .Title ci-dessus.

Bonjour,

un feedback ?

ce serait très correct, svp.