Discussion :

[discus23]

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!

[AlainTech]

Bonjour,

J'ai vu une réponse récemment sur ce forum à ce sujet.

Il semble qu'il faille déterminer le type de classeur (2007) avant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wkRecap = Workbooks.Add

Edit:
Je viens de retrouver la discussion:
http://www.developpez.net/forums/d12...eur-xlsm-xlsx/