Déplacement multiple d'onglets
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:
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!
