Exécuter programme automatiquement avec une fonction qui dépend la date

Sub copycolumns()

Dim fin As Long

Dim efin As Long

fin = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row

For j = 2 To 9 <=================== #je veux changer cette boucle par une une boucle qui dépend du temps#

For i = 1 To fin

If Feuil1.Cells(i, j).Value <> Feuil1.Cells(i, j + 1).Value Then

Feuil1.Cells(i, 1).Copy

efin = Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Feuil1.Paste Destination:=Worksheets("Feuil2").Cells(efin, 1)

Feuil1.Cells(i, j).Copy

Feuil1.Paste Destination:=Worksheets("Feuil2").Cells(efin, 2)

Feuil1.Cells(i, j + 1).Copy

Feuil1.Paste Destination:=Worksheets("Feuil2").Cells(efin, 3)

End If

Next i

Next j

Application.CutCopyMode = False

Feuil2.Columns().AutoFit

Range("A1").Select

End Sub

Slt,

je ne pense pas que tu peux faire ca en changeant cette boucle.

il faut passer par un truc du genre,

Private Sub Workbook_Open( )
     Application.OnTime TimeValue("08:00:00"), "copycolumns"
End Sub

mais explique un peu ce que tu veux faire exactement

Merci d^avoir repondu .

Je veux que le passage d*une itération de la boucle a une autre soit contrôlé par le temps ;

par exemple le deuxième itération ne se fait qu*après 365 jours , la 3eme apres 2 ans et ainsi de suite !

PS : je travaille sur une application qui gere les etats annuelles des robots industrielles.

à mon avis c'est mieux de passer par une tache planifiée windows

sinon :

• ajouter une nouvelle ligne sous la ligne première ligne de la première feuille pour noter que la macro a été déjà éxecuter.
• Puis créer un trigger qui vérifie toujour :

et la céllule "macro déjà exécuté" correspondante

==> si la céllule "macro déjà exécuté" correspondante à l'année actuelle est vide alors la macro sera éxecuter sinon rien ne se passe.

Mais là on part du principe que le fichier s'ouvre chaque jour ou il reste toujours ouvert!

C'est juste mon opinion, mais je laisse les collégues dirent leurs avis!