Bonsoir,
Je suis à la recherche d'une macro me permettant de regrouper toutes les lignes non vides du second onglet de 43 fichiers ayant toujours la même structure. Mes 3 premières lignes sont communes à tous les fichiers ; mes données s'étendent des colonnes A à V, de la ligne 4 jusque 50 à 150 selon les fichiers
Version Excel : 97-2003
Localisation des fichiers : disséminés sur un réseau mais j'ai créé des raccourcis vers fichiers que j'ai tous regroupés dans un même dossier
J'ai essayé quelques macros glanés sur le net mais aucune ne fonctionne.
Celle qui n'est pas loi d'avoir marché est la suivante :
Sub Regroupe()
sousRépertoire = "Macro"
[A2].CurrentRegion.Offset(3, 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(3, 0).Copy _
maitre.Sheets(1).[A65000].End(xlUp).Offset(3, 0)
ActiveWorkbook.Close False
nf = Dir
Loop
End Sub
Mais, bizarrement, la macro copie les données...qui disparaissent juste après!
Merci d'avance pour votre aide, je m'arrache les cheveux sur le sujet
Je suis à la recherche d'une macro me permettant de regrouper toutes les lignes non vides du second onglet de 43 fichiers ayant toujours la même structure. Mes 3 premières lignes sont communes à tous les fichiers ; mes données s'étendent des colonnes A à V, de la ligne 4 jusque 50 à 150 selon les fichiers
Version Excel : 97-2003
Localisation des fichiers : disséminés sur un réseau mais j'ai créé des raccourcis vers fichiers que j'ai tous regroupés dans un même dossier
J'ai essayé quelques macros glanés sur le net mais aucune ne fonctionne.
Celle qui n'est pas loi d'avoir marché est la suivante :
Sub Regroupe()
sousRépertoire = "Macro"
[A2].CurrentRegion.Offset(3, 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(3, 0).Copy _
maitre.Sheets(1).[A65000].End(xlUp).Offset(3, 0)
ActiveWorkbook.Close False
nf = Dir
Loop
End Sub
Mais, bizarrement, la macro copie les données...qui disparaissent juste après!
Merci d'avance pour votre aide, je m'arrache les cheveux sur le sujet