transformer plusieurs fichiers d'une feuille en un seul

Bonjour,

j'ai plusieurs (beaucoup) fichiers excel d'une feuille, et je cherche une méthode simple pour les transformer en un seul classeur avec plusieurs feuille.

Est ce possible, sans avoir à le faire à la main via 'Déplacer une feuille' du menu edition?

Merci

Bonjour Elodie,

Essaie ceci :

'Initialisation du chemin accédant au répertoire
Chemin = "C:\ ........." ' tu précises le chemin complet du répertoire dans lequel se trouvent les fichiers


'lit les fichiers que contient le répertoire
ChDir Chemin
Fichier = Dir(Chemin & "\*.*")

' passe en revue chacun des fichiers de la disquette
While Fichier <> ""

' demande si on veut importer le fichier
Message = "Ce répertoire contient le fichier " & Fichier & Chr(10) & Chr(13) & Chr(13) & Chr(10) & "Voulez vous l'importer ?"
Reponse = MsgBox(Message, vbYesNo, "Importation du fichier")

' Importation si la réponse est Oui
If Reponse = 6 Then

Application.ScreenUpdating = False

' ET ICI TU METS LE BOUT DE CODE QUI TE PERMETTRA DE COPIER LE FCHIER OUVERT DANS LA FEUILLE SUIVANTE

Workbooks(Fichier & ".xls").Close
Application.ScreenUpdating = True

' passe au fichier suivant
Fichier = Dir

'Si la réponse est Non, passe au fichier suivant
Else: Fichier = Dir

End If
Wend

MsgBox ("Il n'y a plus de fichier à importer dans ce répertoire !")

Mais évidemmnt il faudra que tu mettes tous les fichiers à transferer dans un même répertoire

Bon courage
Léa