Discussion :

[pc75]

Bonjour,

J'ai un classeur avec deux feuilles de même structure.
J'ai besoin de les fusionner dans une troisième feuille.

J'ai essayé avec une requête union sans succès.
J'ai essayé d'enregistrer une macro en faisant des copier / coller, mais je ne connais pas à l'avance le nombre de lignes de mes deux premières feuilles.

Bref, je ne m'en sort pas.

Si quelqu'un avait une idée ou une piste ?

Merci.

[illight]

J'ai une méthode un peu bourrine, mais qui marche

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
20
 
Feuil1.Select
Range("A2:G" & range("A50000").end(xlup).Row).Copy
Feuil3.select
For c = 2 To Rows.Count
If Cells(c, 1).Value = "" Then
      Cells(c, 1).Select
      ActiveSheet.Paste
      Exit For
End If
Next c
Feuil2.Select
Range("A2:G" & range("A50000").end(xlup).Row).Copy
Feuil3.select
For c = 2 To Rows.Count
If Cells(c, 1).Value = "" Then
      Cells(c, 1).Select
      ActiveSheet.Paste
      Exit For
End If

J'ai pas testé, mais après c'est à toi de la mettre en forme pour ce que tu veux faire.

J'ai mis jusqu'a la colonne G, mais il faut que tu mette la lettre de ta dernière colonne, évidemment

[cafeine]

Hello,

j'ai fait un test avec la fonction DAO
(http://www.developpez.net/forums/sho...15&postcount=1)

et ça marche avec un SQL UNION

Code :

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

1
2
DoCmdRunSQL "SELECT * FROM [feuil1$A:D] UNION SELECT * FROM [feuil2$A:D]", _
        sheets("Resultat").range("A2")

[pc75]

Re,

Merci, je teste dès demain et je vous dis.

[pc75]

Re,

Je tente la solution de Cafeine.

Voila mon code (à partir d'une appli VB6) :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim db As DAO.Database
    Dim rs0 As DAO.Recordset
    Sql = "SELECT * FROM [feuil3$A:D] UNION SELECT * FROM [feuil2$A:D]"
    Set db = DAO.OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0;HDR=YES;")
    Set rs0 = db.OpenRecordset(Sql, DAO.dbOpenSnapshot)
    Sheets("feuil1$").Range("A2").CopyFromRecordset rs0
    Set rs0 = Nothing
    Set db = Nothing

Et sur la ligne Set db = DAO.............

J'obtiens ce message :

Variable objet ou variable bloc With non définie

J'ai raté quelquechose ?

[cafeine]

Attention ce code nécessite le référencement de DAO 3.x et d'utiliser VBA Excel ...

[pc75]

Re,

C'est OK, je me suis inspiré de la méthode proposée par illight et ça a l'air de coller.

Merci à tous.