Discussion :

[FewRa]

Bonjour

Désolé si je ne suis pas dans le bon salon du forum excel mais je ne savais pas bien où le mettre.
Voila je voudrais savoir si c'est possible de fusionner plusieurs classeurs excel qui n'ont en commun qu'une colonne (clé primaire) ou une seconde (clé secondaire). et dans certain classeurs toutes les clés primaire ne sont pas présent.

Merci d'avance

[Lucorah]

Salut,

Pas sûr d'avoir compris ta demande...

Tu veux regrouper des classeurs ou des feuilles Excel ?
Tes "classeurs" sont structurés comme des tables ? Avec la même structure ?
Manuellement ou en automatique (VBA) ?

Si tu veux un coup de main faut donner des infos !

[FewRa]

Désolé si je n'ai pas été claire.

je voudrais fusionner des feuilles de différent classeurs (fichier excel) .
Non ils ne sont pas structurés de la même il n'ont qu'une ou deux colonne en commun (que je considère comme des clé primaire ou secondaire.
Je suppose que cela est possible qu'en vba.

j'ai essayé ça pour le moment, mais j'ai un message d'erreur où il n'y écris que "400"

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 fusion()
Dim Lig1 As Long, Lig2 As Long
Dim Wks As Worksheet
    Set Wks = Workbooks("Classeur2.xlsx").Sheets("Feuil1")
    With Workbooks("Classeur1.xlsx").Sheets("Feuil1")
 
        For Lig1 = 1 To .[A65536].End(xlUp).Row
            For Lig2 = 1 To Wks.[A65536].End(xlUp).Row
                If .Cells(Lig1, "A") = Wks.Cells(Lig2, "A") Then
                    Wks.Range(Cells(Lig2, "B"), Cells(Lig2, "FW")).Copy .Cells(Lig1, "AG")
                    Exit For
                End If
            Next Lig2
        Next Lig1
    End With
 
End Sub

[Lucorah]

Salut,

Tu dois pouvoir faire ça facilement sans VBA avec MS Query si tu t'y connais un peu en SQL.