Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

concatenation de tous les fichiers excel d'un repertoire (à structure identique )

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nicosp
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nicosp

XLDnaute Nouveau
Bonjour,
Michel avait posté (et je l en remercie) ce fichier qui permet de concatener tous les fichiers excel d'un repertoire
pour peu, bien sur, qu'ils aient une structure identique.

N'étant pas un pro du dvpt, serait il possible de l'adapter ? en effet, la macro ne traite que le le premier onglet des fichiers excel ( alors que j en ai plusieurs dans mes fichiers ) et que, dans chaque onglet, j ai une ligne d'en-tête qui est
collectée a chaque nouveau fichier traité, je souhaiterais, bien sûr, ne la faire figurer qu'une seule fois .

d'avance, merci beaucoup pour votre aide !
 

Pièces jointes

Trier par date Trier par votes
Re : concatenation de tous les fichiers excel d'un repertoire (à structure identique

bon, j ai progressé :
tous les onglets sont désormais traités, et je récupère le nom des onglets originels dans le fichier de concatenation.
ne me reste plus que le probleme de la ligne d'en tete qui se reproduit à chaque fois.

Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Dim NF As String
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""

If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
For i = 1 To Sheets.Count
Workbooks(Temp).Sheets(i).Range("A1").CurrentRegion.Copy
NF = Workbooks(Temp).Sheets(i).Name
Workbooks("Recap.xls").Sheets(i).Activate
Ligne = Sheets(i).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Sheets(i).Name = NF
Next i
Workbooks(Temp).Close
End If


Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Re : concatenation de tous les fichiers excel d'un repertoire (à structure identique

Bonjour,

exemple ci-dessous pour ne pas selectionner la ligne de titre :
Code: 
With Range("A1").CurrentRegion
    .Offset(1).Resize(.Rows.Count - 1).Select
End With

bon après midi
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
827
oguruma
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…