XL 2016 Importer les données de plusieurs fichiers Excel portant le même nom dans un nouveau fichier

[Dadi147]

Bonjour. Renseignements pour ceux qui ont de l'expérience. J'ai 7 fichiers Excel avec le même nom, (summary).ils ont été placés dans 7 dossiers dans un dossier, et je veux un moyen de les copier dans un nouveau fichier en dessous l'un de l'autre. Pouvons-nous faire cela

 

[Dadi147]

Bonjour .Veuillez jeter un coup d'œil. Après les modifications, le programme se ferme automatiquement lorsque vous essayez d'ajouter des fichiers

 

[kiki29]

re, bis repetita placent ....
à lire/appliquer : Développer avec Office 64 bits sinon supprimer la partie APIs et la remplacer par FSO

 

[Dadi147]

re, bis repetita placent ....
à lire/appliquer : Développer avec Office 64 bits sinon supprimer la partie APIs et la remplacer par FSO

Cela a déjà été fait, mais lorsque vous voulez ajouter des fichiers, le fichier est fermé... et c'est la version qui a été utilisée sur le système

 

[kiki29]

Re, faux, inutile de mentir car visiblement tu n'as rien compris. atchao !

 

[Dadi147]

Re, faux, inutile de mentir car visiblement tu n'as rien compris. atchao !

Malgré mes adieux, je tiens à vous remercier pour cet effort incroyable. Merci beaucoup, un programme très agréable et précis... Quant à votre dernier commentaire. Je n'ai vraiment (pas menti) peut-être que je n'ai pas très bien compris. Mais lorsque j'ai essayé le fichier sur plusieurs appareils, dont Office 32 et Windows 64, cela a très bien fonctionné pour moi.

 

[kiki29]

Re, l'ultime salmigondis FSO

 

[Dadi147]

Re, l'ultime salmigondis FSO

Oui, c'est comme ça que ça marche avec toutes les versions 💯👏👏👏👏👏

 

[Dadi147]

Oui, c'est comme ça que ça marche avec toutes les versions 💯👏👏👏👏👏

Une dernière question, si je veux faire 3 ou 4 lignes vierges entre chaque feuille copiée, que dois-je faire ?

 

[kiki29]

Salut, tjs dans procédure FusionFichiers dans

.....
                        Else
                            .Range(.Cells(iEntete + 1, "A"), .Cells(iLastRow, iLastCol)).Copy _
                                    WkbFusion.Worksheets(1).Cells(Rows.Count, "A").End(xlUp)
                        End If
                        .....

rajouter .offset(5)

.....
                        Else
                            .Range(.Cells(iEntete + 1, "A"), .Cells(iLastRow, iLastCol)).Copy _
                                    WkbFusion.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(5)
                        End If
                        .....

Eventuellement rajouter à l'endroit idoine

WkbFusion.Worksheets(1).Rows("1:" & iOff).Delete Shift:=xlUp

avec iOff égal à 5

 

[job75]

Bonjour Dadi147, le forum,

L'importation se fait très simplement avec cette macro :

Sub Importer()
Dim chemin$, dossier, fichier, F As Worksheet, lig&, i%, h&
chemin = ThisWorkbook.Path & "\"
dossier = Array("Dossier1", "Dossier2", "Dossier3", "Dossier4", "Dossier5", "Dossier6", "Dossier7") 'liste à adapter
fichier = "Summary.xls" 'à adapter
Set F = ActiveSheet
lig = 2 '1ère ligne de destination
Application.ScreenUpdating = False
F.Rows(lig & ":" & F.Rows.Count).Delete 'RAZ
For i = 0 To UBound(dossier)
    With Workbooks.Open(chemin & dossier(i) & "\" & fichier).Sheets(1) 'ouverture du fichier
        If .FilterMode Then .ShowAllData 'si la feuille est filtrée
        h = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne en colonne B
        .Rows("1:" & h).Copy F.Cells(lig, 1) 'copier-coller
        lig = lig + h + 3 '3 lignes vides
        .Parent.Close False 'fermeture du fichier
    End With
Next
End Sub

A+

 

[Dadi147]

Bonjour Dadi147, le forum,

L'importation se fait très simplement avec cette macro :

Sub Importer()
Dim chemin$, dossier, fichier, F As Worksheet, lig&, i%, h&
chemin = ThisWorkbook.Path & "\"
dossier = Array("Dossier1", "Dossier2", "Dossier3", "Dossier4", "Dossier5", "Dossier6", "Dossier7") 'liste à adapter
fichier = "Summary.xls" 'à adapter
Set F = ActiveSheet
lig = 2 '1ère ligne de destination
Application.ScreenUpdating = False
F.Rows(lig & ":" & F.Rows.Count).Delete 'RAZ
For i = 0 To UBound(dossier)
    With Workbooks.Open(chemin & dossier(i) & "\" & fichier).Sheets(1) 'ouverture du fichier
        If .FilterMode Then .ShowAllData 'si la feuille est filtrée
        h = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne en colonne B
        .Rows("1:" & h).Copy F.Cells(lig, 1) 'copier-coller
        lig = lig + h + 3 '3 lignes vides
        .Parent.Close False 'fermeture du fichier
    End With
Next
End Sub

A+

Bonjour job75
Merci de l'intérêt que vous portez à ma demande. Je ne sais pas comment vous décrire mon sentiment lorsque j'ai essayé le code. Facile et simple. Très précis. En fait, j'avais du mal à gérer les feuilles de calcul et à les copier dans le même Bien que l'idée du programme kiki29 soit
Très impressionnant. Et dynamique. Mais je n'ai pas pu copier les feuilles dans le même format d'origine. Merci. Merci.

 

[chindou]

Bonjour le forum
Si j'ai bien compris
À mettre tous les fichiers à importer dans un seul dossier dans mes documents
Il faut que les feuilles ou se trouve les données cibles ont le même nom
La macro va importer ces données sans ouvrir les 7 fichiers et les coller dans la feuille base.
Cordialement

 

[job75]

Bonjour chindou,

Si j'ai bien compris

Eh non vous n'avez pas compris.

Il est bien précisé au post #1 que les 7 fichiers ont le même nom et se trouvent dans 7 dossiers différents.

Et ensuite il est clair que les lignes des titres sont à copier 7 fois avec 3 ou 4 lignes de séparation.

Il est clair aussi que les formats doivent être copiés.

Vous auriez quand même pu faire l'effort de tester (ou lire) ma solution du post #26 pour comprendre 🙄

A+

 

[Dadi147]

Bonjour chindou,

Eh non vous n'avez pas compris.

Il est bien précisé au post #1 que les 7 fichiers ont le même nom et se trouvent dans 7 dossiers différents.

Et ensuite il est clair que les lignes des titres sont à copier 7 fois avec 3 ou 4 lignes de séparation.

Il est clair aussi que les formats doivent être copiés.

Vous auriez quand même pu faire l'effort de tester (ou lire) ma solution du post #26 pour comprendre 🙄

A+

Mais heureusement, le fichier que vous avez joint a résolu tous mes problèmes. Merci. C'est maintenant mon fichier principal. 👍

 

[job75]

Mais heureusement, le fichier que vous avez joint a résolu tous mes problèmes. Merci. C'est maintenant mon fichier principal. 👍

Vous vous adressez à qui là ? Si c'est à chindou ça remet tout en question !

Et vous devez noter comme solution le post qui présente celle que vous utiliserez.