Macro VBA

Bonjour à tous !!

J'ai besoin de votre aide ! mon niveau VBA n'est pas assez élévé pour ma requête ...

Je vous explique ...

Chaque semaine je télécharges des dossiers Excels ( une vingtaine) , ayant tous la même mise en forme , en revanche le nombre de lignes fluctue selon les résultats ... Les dossiers se situent tous au même endroit dans le réseau .

Les dossiers Excels comportes chacuns 4 Onglets , seul le premier m'interesse ...

J'aimeras via une formule VBA , Regrouper le premier onglet de chaque dossier dans un seul dossier.

L'ideal est que les données de chaque onglet se succéde dans une seule feuille sans avoir 20 onglet ouverts ...

Hoping to have been clear !!!

Je compte sur vous !!

En attente de vous lire

bonjour,

une proposition

Sub aargh()
    With Sheets("sheet1") ' feuille destination
        cdl = .Cells(Rows.Count, 1).End(xlUp).Row
        rep = "d:\downloads\" ' à adapter
        f = Dir(rep & "dossier informations*.xlsx") ' à adapter
        While f <> ""
            Set wb = Workbooks.Open(rep & f)
            Set ws = wb.Sheets("A") ' feuille source
            dlws = ws.Cells(Rows.Count, 1).End(xlUp).Row
            ws.Rows("2:" & dlws).Copy .Rows(cdl + 1)
            cdl = cdl + dlws - 1
            wb.Close False
            f = Dir
        Wend
    End With
End Sub

Merci mon ami pour ta réponse !

en revanche en rentrant la formule modifié ça marche pas !

Sub lalalalala()

With Sheets("Sheet1") ' feuille destination , le nom de l'onglet ou je veux coller mes informations

cdl = .Cells(Rows.Count, 1).End(xlUp).Row

rep = "Z:\.....\Téléchargement des données\" La ou je vais chercher mes données

f = Dir("shippingPerformance*.xlsx") ' Le nom du dossier ou il y a les informations Sachant que les 20 autres dossier s'appellent shippingPerformance1,shippingPerformance2,shippingPerformance3........ jusqu'à 20 .

While f <> ""

Set wb = Workbooks.Open(rep & f)

Set ws = wb.Sheets("Shipping Performance Detail") ' L'onglet dont j'ai besoin s'apelle Shipping Performance Detail qui se trouve dans shippingPerformance

dlws = ws.Cells(Rows.Count, 1).End(xlUp).Row

ws.Rows("2:" & dlws).Copy .Rows(cdl + 1)

cdl = cdl + dlws - 1

wb.Close False

f = Dir

Wend

End With

End Sub

Que faire !!!!?

quand je lance la Macro rien ne se passe , aucun erreur ne s'affiche !!

Merci !

Bonjour,

une erreur de ma part

correction

f = Dir(rep & "shippingPerformance*.xlsx") ' Le nom du dossier ou il y a les informations 

Merci pour ton aide !! ça marche !!

tu viens de m'enlever une épine du pied !!!

Merci encore

à Bientot