Archiver les tâches finies sous Excel - planning

Bonjour à tous,

Ma problématique concerne l'archivage des tâches finies. Je tiens un planning des activités à réaliser à l'atelier avec une colonne 'Etat' : 'Fini/En-cours/Planifié'.

Je souhaite créer un bouton : 'Archiver' avec un code qui va balayer cette colonne, sélectionner les lignes finies, me les supprimer de ce fichier et les coller les unes après les autres dans un fichier Excel indépendant qui se nomme : Archives_Atelier et qui est dans le même dossier.

En gros, j'aimerai archiver les tâches finies..

PS : je spécifie que mon tableau est mis sous forme de tableau avec Excel : 'Styles'-> mise sous forme de tableau.

Toute aide est la bienvenue, si autre idée pour archiver, n'hésitez pas!

Merci beaucoup !! :) :)

Bonjour,

Un test où le classeur d'archive se nomme ARCHIVES, la feuille ARCHIVES et se trouve dans le même dossier que le classeur initial :

Sub ARCHIVAGE()
Dim WB_D As Workbook
Application.ScreenUpdating = False
With Worksheets("Planning - test")
    .[A7].CurrentRegion.AutoFilter 2, "Fini"
    If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 = 0 Then
        MsgBox "Aucune ligne à archiver"
        .AutoFilterMode = False
        Exit Sub
        Else
        .AutoFilter.Range.Offset(1).Columns(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy
    End If
End With
Set WB_D = Workbooks.Open(ThisWorkbook.Path & "\ARCHIVES.xlsx")
With WB_D.Worksheets("ARCHIVES")
    .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Insert (xlDown)
    WB_D.Close True
End With
With Worksheets("Planning - test")
    .AutoFilter.Range.Offset(1).Columns(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Cdlt,