Transformer 10 fichiers en 10 onglets

[pifpafpouf]

Bonjour à tous,

Je souhaite transformer 10 fichiers (qui ont un seul onglet) en un fichier à 10 onglets.
J'ai utilisé l'outil d'archive mais je n'ai rien trouvé. J'ai mal choisi les mots clés ? Sinon, en fouillant sur la toile, j'ai trouvé ce code :

Sub ConvertirFichiersEnFeuilles()
    Const Chemin = "C:Users\toto\Desktop\kiri\" 'Mettre le chemin du répertoire qui contient les fichiers
    
    Dim VarListeFichiers As Variant, VarFichier As Variant, WkClasseur As Workbook, WkFinal As Workbook
    
    'Remplacer les noms de fichiers et ou en ajouter ou enlever
    VarListeFichiers = Array("Fichier1.xls")
    
    'Créer le nouveau classeur
    Set WkFinal = Workbooks.Add
    
    For Each VarFichier In VarListeFichiers
        WkFinal.Sheets.Add Type:=Chemin & VarFichier
    Next
   
End Sub

Mais la macro bug sur "WkFinal.Sheets.Add Type:=Chemin & VarFichier"
Je ne comprends pas pourquoi. J'ai bien un fichier1.xls que j'ai créer dans le répertoire concerné...

Merci à tous pour vos regards éclairé...

pifpaf

 

[Staple1600]

Re : Transformer 10 fichiers en 10 onglets

Bonsoir à tous

pifpafpouf
Un autre exemple issu des archives
https://www.excel-downloads.com/thr...r-plusieurs-documents-excel-en-un-seul.98695/
mots-clés utilisés lors de la recherche: combiner classeurs
Essaies aussi ceux-ci
fusionner classeurs
consolider classeurs

 

[camarchepas]

Re : Transformer 10 fichiers en 10 onglets

Bonsoir Staple , pifpafpouf

Bon à mon avis déjà

Const Chemin = "C:Users\toto\Desktop\kiri\"

devrait plutot être

Const Chemin = "C:\Users\toto\Desktop\kiri\"