Importer plusieurs fichiers en un seul
Bonjour,
Je dois importer plusieurs fichiers excel dans un seul. Chaque fichier comporte 5 onglets (les memes a chaque fois), il faudrait que les donnees se mettent donc les unes a la suite des autres. Je voudrais aussi choisir les fichiers que j'importe.
Je voudrais savoir s'il fallait que je créé deja les onglets dans le fichier qui rassemblera les autres.
Pour le moment j'ai deja un code mais il ne fonctionne pas :
Dim DocDep, Chemin, NomFichier, Class, Lgn
Sub ImportDataFromMultipleWorkbooks()
Application.ScreenUpdating = False
Set DocDep = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*xls*")
Do While Len(NomFichier) > 0
If NomFichier <> ThisWorkbook.Name Then
Set Class = Workbooks.Open(Chemin & NomFichier)
If Cells(1, "AA").Value <> "Données exportées" Then
Range("A1:AA" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Lgn = DocDep.Range("A" & Rows.Count).End(xlUp)(2).Row
DocDep.Cells(Lgn, "A").PasteSpecial xlPasteValues
Cells(1, "AA").Value = "Données exportées"
Class.Close True
Else
MsgBox "Les données du fichier " & Class.Name & " ont déjà été importées !"
Class.Close False
End If
End If
NomFichier = Dir
Loop
MsgBox "Travail terminé !"
Application.ScreenUpdating = True
End Sub
Merci d'avance pour votre aide, n'hésitez pas si vous avez besoin de plus de précisions
Bonjour et bienvenue sur le forum
Je te conseillerai de joindre à ton prochain message :
• Deux fichiers sources en n’y laissant que quelques lignes
• Ton fichier de destination sur lequel tu auras fait, à la main, le travail d’importation à partir des 2 fichiers
On aura ainsi un bon exemple de ce que tu souhaites qu’une macro te fasse.
Bye !
Bonjour, merci de votre rapidité !
J'ai fait ce que vous m'avez dit ; deux fichiers sources avec seulement quelques lignes, et un fichier destination avec le travail d'importation des deux fichiers que j'ai fait à la main. J'ai réussi dans 3 onglets sauf dans 1, le premier. En effet la PivotTable m'empeche de copier/coller les lignes avant la ligne grand total.
En ce qui concerne cet onglet, je voudrais juste que les lignes se mettent à la suite avant la ligne grand total
D'avance merci et si tu as besoin de plus d'info je répondrais aussitôt
Bonjour
nicococo a écrit :et si tu as besoin de plus d'info je répondrais aus
C’est le cas.
• Dans ton premier message, tu parles de 5 onglets dans chaque fichier. Or, je n’en compte que 4. Quel est le bon nombre ?
• Dans le fichier de destination, dans l’onglet ‘’Service Pool Summary’’, il n’y a pas de lignes qui correspondent à celles des onglets du même nom dans les fichiers sources. Il y en a d’autres… Que doit-on faire ?
o Ne pas toucher à cet onglets ?
o Laisser ces lignes et y ajouter celles des fichiers sources ?
o Ecraser ces lignes avant de reporter celles des fichiers sources ?
A te relire
Bye !
Oui il s'agit bien de 4 onglets, excuse moi.
Et en ce qui concerne l'onglet "service pool summary", il faut laisser les lignes et y ajouter celles des fichiers sources.
Excuse moi pour mon manque de précisions...
Merci !
Un essai à tester. Te convient-il ?
Bye !
Bonjour gmb,
C 'est presque ça ! . Déjà un grand merci pour ton aide
Je m'explique : La macro fonctionne parfaitement pour tous les onglets sauf pour le "Cost Pool Summary". En fait pour cet onglet, peut être me suis je mal exprimé, mais il faudrait qu'il n'y ait qu'un seul tableau dans le fichier destination. Avec toutes les données consolidées à l'intérieur, et un seul "grand total" à la fin. Le tout en restant sous la forme d'une PivotTable ...
Sinon j'ai une autre question, j'imagine qu'il faut que les tableaux que je souhaite importer soient tous de la même structure pour que ca marche ?
Vielen Dank !
Bonjour
nicococo a écrit :...le "Cost Pool Summary". En fait pour cet onglet,... il faudrait qu'il n'y ait qu'un seul tableau dans le fichier destination.
Là, je ne sais pas faire : sur cet onglet, il y a un tableau croisé dynamique et je ne sais pas copier le tableau original, le coller à d'autres données sur une autre feuille où il faudrait refaire le TCD.
Mais ce doit être faisable. Refais un post à ce sujet : il y a des spécialistes super pointus en TCD sur le forum...
Désolé en ce qui me concerne.
j'ai une autre question, j'imagine qu'il faut que les tableaux que je souhaite importer soient tous de la même structure pour que ca marche ?
C'est en effet préférable, sinon il faut construire des usines à gaz et on a beaucoup de mal à les faire fonctionner.
Bye !