Créer un fichier depuis 5 fichiers différents vba Fermé

Question

Bonjour, 

je possède 5 fichiers 
A.xlsm
B.xlsm
C.xlsm
D.xlsm
E.xlsm

Et souhaite créer un seul fichier avec tous les données abcde.xlsm 

Merci bcp,

Configuration: Windows 7 / Mozilla 11.0

Pierre1310 · Answer

Salut,

Utilise la fonction open file puis quand ils seront tous ouverts worksheet pour le nom du fichier et sheet pour la feuille du fichier.

Stif · Answer

Bonjour, 
Si ta demande est bien le rapatriement des onglets de tous les classeurs, ces quelques lignes devraient faire l'affaire

Sub Récup_onglets()
    Dim a As Variant, Nom As String
    Dim Sh As Worksheet
    Nom = ActiveWorkbook.Name
    ChDrive "C:"    ' Choix du lecteur
    ChDir "C:"    'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xlsm), *.xlsm", _
                                    , "Sélection de vos fichiers excel", , True)
    
    Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
        For b = LBound(a) To UBound(a)
            Workbooks.Open a(b)
        Next
    End Select

    Nom2 = ActiveWorkbook.Name
    
    
    For Each Sh In Workbooks(Nom2).Worksheets
        'Workbook(classeur1).Sheets(Sh.Name).Select
        Workbooks(Nom2).Sheets(Sh.Name).Copy Before:=Workbooks(Nom).Sheets(1)
    Next Sh

    
    If MsgBox("Besoin d'une autre importation ?", vbYesNo, "Demande de confirmation") = vbYes Then Call Récup_onglets
     
    Windows(Nom2).Close

End Sub

Bonne journée,

Créer un fichier depuis 5 fichiers différents vba

2 réponses

Discussions similaires