Discussion :

[facteur]

Bonjour,

Chaque jour, je travaille sur deux feuilles excel ( l'une apres l'autre). Apres ce travail, je souhaiterais creer une autre feuille ou je copierais les deux feuilles l'une a la suite de l'autre.

Je precise que chaque jour ces deux feuilles ne portent jamais le meme nom.

Y aurait il une petite macro qui me permettrait donc de copier, sur une autre feuille, deux feuilles de calcule l'une a la suite de l'autre.

Merci

[mercatog]

Bonsoir

Je precise que chaque jour ces deux feuilles ne portent jamais le meme nom.

Il faut plus de précision sur les noms des feuilles, néanmoins, ci dessous un début de code à adapter

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
18
19
Sub CopieDonnees()
Dim Lastlig As Long
Dim i As Byte
Dim Sht
 
Sht = Array("Feuil1", "Feuil2")             'Feuilles à copier
'Efface données de Feuil3 et copie de la première ligne des titres
With Sheets("Feuil3")
    .Cells.Clear
    Sheets(Sht(LBound(Sht))).Rows(1).Copy .Range("A1")
End With
'Copie des données de Feuil1 et Feuil2 à partir de la 2ème ligne dans Feuil3
For i = LBound(Sht) To UBound(Sht)
    With Sheets(Sht(i))
        Lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
        .Rows(2 & ":" & Lastlig).Copy Sheets("Feuil3").Cells(Rows.Count, 1).End(xlUp)(2)
    End With
Next i
End Sub

[facteur]

Bonjour mercatog,

il fallait peut etre que je précise que lorsque je parle de 2 feuilles de calcule cela concerne non pas les feuilles d'un même fichier mais bien de deux fichiers excel indépendants.