Discussion :

[visto94]

Bonjour le Forum!

Je possède 2 fichiers excel et j'aimerai les fusionner pour n'en faire qu'un..
Auriez-vous une petite macro histoire de mettre sur la voie ?

Merci d'avance à ceux qui répondrons!

[MarcelG]

Bonjour,

Supposons que tu aies 2 classeurs
Forum 29 Juillet 1.xls et Forum 29 Juillet 2.xls
et que tu souhaites intégrer le 1er classeur dans le 2ème au seul niveau des feuilles de calcul.

A placer dans un module de Forum 29 Juillet 1.xls

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copie_Feuilles()
 
Dim wk As Worksheet
 
With Workbooks("Forum 29 Juillet 2.xls")
    For Each wk In Worksheets
        wk.Copy After:=.Sheets(.Sheets.Count)
    Next
    .Save
End With
 
End Sub

A adapter.

Cordialement.

Marcel.

[visto94]

Merci Marcel de vous intéressez à mon problème!

Je pense m'être mal exprimée dans mon premier post, en effet je souhaite fusionner mes 2 fichiers excel dans un nouveau classeur.

Pensez-vous cela possible ...

merci



PS: Je tiens à rappeler que je suis débutant dans ce domaine!

[MarcelG]

Pas de problème.
Il suffit d'utiliser "SaveAs" (enregistrer sous) au lieu de Save (enregistrer), ce qui donne

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
16
Sub Copie_Feuilles()
 
Dim wk As Worksheet
 
With Workbooks("Forum 29 Juillet 2.xls")
    For Each wk In Worksheets
        wk.Copy After:=.Sheets(.Sheets.Count)
    Next
    ChDir "Répertoire"
    .SaveAs Filename:= _
        "Nouveau_claseur.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End With
 
End Sub

A adapter si besoin.

Je pars en congés, et je souhaite au Forum un bon mois d'Août.
Bon courage pour les uns. Bonnes vacances pour les autres.

Bien Cordialemnt.

Marcel.

[visto94]

Merci pour ton aide Marcel !

Et bonne vacances à toi !

[visto94]

Bonjour!

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
16
17
Sub Copie_Feuilles2()
 
Dim wk As Worksheet
 
With Workbooks("IBM_IB-Recurrent 2010-06 ESTIM vf.xls")
    For Each wk In Worksheets
        wk.Copy After:=.Sheets(.Sheets.Count)
    Next
    ChDir "C:\Documents and Settings\J6993958\My Documents\dossier test"
    .SaveAs Filename:= _
        "Nouveau_claseur.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
End With
 
End Sub

Savez-vous comment faire (à partir de ce code!) pour que se soit l'utilisateur qui rentre les fichiers à copier.
Car pour le moment je suis obligé de rentrer le nom du fichier ( ici "IBM_IB-Recurrent 2010-06 ESTIM vf.xls" )dans le code or je veut que le code soit "universelle", qu'il marche pour tout les fichiers, car le nom de fichier peut changer.

Avez-vous idée cher Forum!?