importer plusieurs fichiers excel dans un seul

[dam3117]

Bonjour à tous,

J'ai 14 fichiers identique et je voudrai les importer dans un seul et unique fichier en les mettant l'un à la suite de l'autre.


merci pour vos idées

dam

 

[iroise]

Re : importer plusieurs fichiers excel dans un seul

Bonjour

si c'est seulement à faire une fois tu peux ouvrir tes classeurs, selectionner tous les onglets d'un classeur et les copier dans celui que tu veux avec clic droit sur les onglets.
bonne journée

 

[dam3117]

Re : importer plusieurs fichiers excel dans un seul

Bonjour

si c'est seulement à faire une fois tu peux ouvrir tes classeurs, selectionner tous les onglets d'un classeur et les copier dans celui que tu veux avec clic droit sur les onglets.
bonne journée

Bonjour,

merci non j'ai plusieurs classeurs
(classeur1 à classeur14) et je dois faire l'opération plusieurs fois par jour

 

[wilfried_42]

Re : importer plusieurs fichiers excel dans un seul

bonjour dam3117

tes noms de classeur ont-il une structure logique ?, progressives ?

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Bonjour


à tester AVEC PRUDENCE

AVEC DES COPIES OU DES FICHIERS TEST

avec un fichier batch


@copy /B *.xls grosfichier.xls
@cls

Je n'ai pas testé donc si ca ne marche pas j'aurais honte

 

[dam3117]

Re : importer plusieurs fichiers excel dans un seul

bonjour et merci à vous,


Staple1600 je ne comprend ou tu veux en venir.

dam

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Re


Je vais essayer sur mon poste


ce batch msdos


Je veux en venir que

copy /B concatenate n fichiers en un seul


Je reviens apres mon test

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Voila

Je suis revenu


et ca ne marche pas

Ca marche pourtant avec des fichiers txt


je vais donc aller voir du coté de VBA

 

[dam3117]

Re : importer plusieurs fichiers excel dans un seul

merci Staple1600

dam

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Re

Voila de quoi t'inspirer

Sub RunCodeOnAllXLSFiles()
'SOURCE:http://www.ozgrid.com/VBA/loop-through.htm
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next

Set wbCodeBook = ThisWorkbook

    With Application.FileSearch
        .NewSearch
         'Change path to suit
        .LookIn = "C:\MyDocuments\TestResults"
        .FileType = msoFileTypeExcelWorkbooks
        '.Filename = "Book*.xls"
        
            If .Execute > 0 Then 'Workbooks in folder
                For lCount = 1 To .FoundFiles.Count 'Loop through all.
                 'Open Workbook x and Set a Workbook variable to it
                 Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
                                  
                 'DO YOUR CODE HERE
                 
                 wbResults.Close SaveChanges:=True
             
                 Next lCount
            End If
    End With
    
    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

 

[dam3117]

Re : importer plusieurs fichiers excel dans un seul

Re

Voila de quoi t'inspirer

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next

Set wbCodeBook = ThisWorkbook

With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "C:\MyDocuments\TestResults"
.FileType = msoFileTypeExcelWorkbooks
'.Filename = "Book*.xls"

If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all.
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

'DO YOUR CODE HERE

wbResults.Close SaveChanges:=True

Next lCount
End If
End With

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

re je l'ai mis dans mon module et rien se passe.


dam

 

[michel_m]

Re : importer plusieurs fichiers excel dans un seul

Bonjour à tous,

Tu trouveras peut-être une réponse élégante à ton pb en restant sur XLD à la page6 michelXLD du WIki: "Importer plusieurs Fichiers Excel en 1 seul"

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Re

J'avais dit de quoi t'inspirer

Pas que c'était fonctionne en l'état....

Ce qui d'aillleurs était précisé

par

'DO YOUR CODE HERE

Ce qui veut
Placer votre code ici

 

[Staple1600]

Re : importer plusieurs fichiers excel dans un seul

Précision


Si je cherche en externe

c'est que sur XLD

je dois attendre 60 secondes entre chaque recherche

donc dans un autre onglet

moteur de recherche (pas xld rercherche)

 

[michel_m]

Re : importer plusieurs fichiers excel dans un seul

Salut Stapple,

Apparemment, tu semblerais ne pas connaitre le WIKI du forum
pour aller dans le wiki c'est très rapide: tu as l'onglet vers le haut à gauche et toc ! de + c'est une mine d'or d'Excel notamment les pages de Zon et de MichelXLD

Amicalement