Archiver des données d'un classeur dans un autre

Bonjour

J'ai jamais utiliser les Macros, et je maîtrise pas excel non plus, mais la je veux archiver des données d'un classeur dans un autre et d'après ce que j'ai vu sur internet je peux faire sa que avec des macros

Bon je vais vous expliquer ce que je veux faire :

j'ai une tableau avec des différents chantier et numéro de commande, ce que je veux faire c'est d'archiver les commandes qui sont soldé (finis), donc en gros si je mets "S" dans la cellule qui correspond à l’état de la commande, je veux que le excel supprime cette commande (du coup il va supprimer toute la ligne) de ce classeur et le renvoie dans un autre classeur qui s'appelle Archive en gardant que les colonnes de : "Affaire, commande, Machines et H faites"

Ce que j'ai fait comme macro pour la feuil1 est complètement faux car sa va envoyer les données dans la feuil2 mais la sa va pas résoudre le problème parce que je cherches a archiver des données pas les mettre dans une autre feuille.

Pouvez vous m'aider svp

Cordialement

Bonjour,

une proposition. Attention tester sur une copie car la macro efface des données !

Sub aargh()
    Set wsp = ThisWorkbook.Sheets("feuil1")
    Set wba = Workbooks.Open("d:\downloads\archive.xlsx")    ' à adapter nom & repertoire du classeur archive
    Set wsa = ActiveWorkbook.Sheets("archive")    ' à adapter nom de la feuille archive dans classeur archive
    dla = wsa.Cells(Rows.Count, 1).End(xlUp).Row
    dlp = wsp.Cells(Rows.Count, 5).End(xlUp).Row
    i = 8
    While i <= dlp
        If UCase(wsp.Cells(i, 5)) = "S" Then
            dla = dla + 1
            wsa.Cells(dla, 1).Resize(, 7).Value = wsp.Range("B" & i & ":H" & i).Value
            wsp.Rows(i).Delete shift:=xlUp
        Else
            i = i + 1
        End If
    Wend
    wba.Close
End Sub

Merci pour votre aide mais sa marche pas

es-que vous l'avez déjà essayé pour voir si sa marche ou pas

Bonjour,

oui j'ai testé ce programme et il fonctionne chez moi.

le fichier archive doit exister dans le répertoire indiqué et doit contenir une feuille "archive"

bonjour

oui j'ai fait comme sa

le classeur je l'ai appelé archive et la feuille aussi

regardez la capture

c'est bon sa marche merci beaucoup