Bonjour,

Je souhaite déplacer X onglets de X classeurs dans un seul et même (et nouveau) classeur.

Jusqu'à présent, j'ai réussi à concocter ce petit bout de code qui "devrait" marcher d'après mes première recherche sur le net, mais il doit me manquer quelque chose puisqu'il plante...

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Set wkRecap = Workbooks.Add
 
Do While Len(Fichier) > 0
    Workbooks.OpenText Filename:=Fichier, DataType:=xlDelimited,    Semicolon:=False
    Set wkRapport = ActiveWorkbook
    Set WsFeuille = wkRapport.Worksheets(1)
 
    WsFeuille.Move before:=wkRecap.Worksheets(1)
    wkRapport.Close savechanges:=False
 
    'Debug.Print Chemin & Fichier
 
    Fichier = Dir()
Loop

Et en retour j'ai une traditionnelle erreur '1004' du genre :
Excel ne parvient pas à insérer les feuilles dans le classeur de destination car il contient moins de lignes et de colonnes que le classeur source....


Je plante dessus depuis un ptit moment, et si quelqu'un à une ébauche de solution, elle sera la bienvenue.

Merci!