insertion feuille Excel

[calvig]

Mon problème est simple.
Je veux importer une feuille d'un fichier Excel présent sur mon disque dans un classeur classeur qui est vierge mais pas encore enregistrer sur le disque.

Mon but est de regrouper dans un seul est même fichier les feuilles de x autres fichiers.

Dans un premier temps je ferai cette action manuellement puis par la suite de manière automatique.

Merci de me fournir une piste.

 

[Moa]

Salut Calvig !

Voilà, j'ai cérer trois fichiers Excel, que j'ai mis sur mon bureau, puis j'ai fais une macro avec l'enregistreur de macro.

Cette macro ouvre successivement ces trois fichiers copie la première feuille de chaque fichier et la colle das mon classeur1.

Puis je sauvegarde le classeur sous le nom de FichierComplet.

Voici ce que donne la macro :

Sub OuvrirFichierEtCopierFeuille()
ChDir "C:\Documents and Settings\Propriétaire\Bureau"

Workbooks.Open Filename:= _
"C:\Documents and Settings\Propriétaire\Bureau\Fichier1.xls"
Sheets("F1F1").Copy Before:=Workbooks("Classeur1").Sheets(1)

Workbooks.Open Filename:= _
"C:\Documents and Settings\Propriétaire\Bureau\Fichier2.xls"
Sheets("F1F2").Copy Before:=Workbooks("Classeur1").Sheets(1)

Workbooks.Open Filename:= _
"C:\Documents and Settings\Propriétaire\Bureau\Fichier3.xls"
Sheets("F1F3").Copy Before:=Workbooks("Classeur1").Sheets(1)

Windows("Fichier3.xls").Activate
ActiveWindow.Close
Windows("Fichier2.xls").Activate
ActiveWindow.Close
Windows("Fichier1.xls").Activate
ActiveWindow.Close

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\Propriétaire\Bureau\FichierComplet.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

A toi de l'adapter à ce que tu veux faire.

Je te met le fichier joint.

Attention, cette macro ne fonctionnera qu'une seule fois, car ton fichier sera renommé.

Il te faudra donc dans ta macro faire référebce à ce nouveau nom, à la place de "classeur1".

@ +

Moa