Archivage fin du mois

[jeannot68]

Bonjour a tous

Actuellement j'ai un mini programme qui me permet d'archiver a l'ouverture du fichier les tache qui sont déja réalisés. si la colonne I est rempli alors la ligne est en couleur et considerer comme fait apres suvegarde et fermeture puis ré ouverture la ligne se déplace sur mon onglet Archives.

Je souhaiterai aujourd'hui garder les taches réalisés jusqua la fin du mois (avec la couleur colorié) et basculer vers l'archive a la fin du mois automatiquement. comment coder ? je suppose quil faut faire un calcul entre la date de réalisation et la date d'aujourd hui ?

merci de votre aide

 

[Compte Supprimé 979]

Re : Archivage fin du mois

Bonjour Jeannot68,

Essaye peut-être avec ça

Private Sub Workbook_Open()
  Dim lig As Integer
  Dim lig2 As Integer
  ' Au cas ou on serait resté sur une autre feuille
  Sheets("Travaux").Activate
  '
  With ActiveSheet
    For lig = .Range("I65536").End(xlUp).Row To 2 Step -1
      lig2 = Sheets("Archives").Range("I65536").End(xlUp).Row
      If .Range("I" & lig).Value <> "" And _
         Month(.Range("I" & lig)) < Month(Now()) Then
        .Rows(lig).Cut Sheets("Archives").Rows(lig2 + 1)
        .Rows(lig).Delete Shift:=xlUp
      End If
    Next
  End With
End Sub

A+

 

[jeannot68]

Re : Archivage fin du mois

bonjour

Un grand merci BrunoM45, ca marche comme je voulais
A bientot