transformer plusieurs fichiers d'une feuille en un seul

[Elodie]

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

 

[léa]

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