Archivage quotidien à heure fixe / feuille 2 (2)

[boulou]

Les capacités de beaucoup d'entre vous m'impressionnent !

Qui est en mesure de concocter une solution à mon projet, selon fichier ci joint ?

Dès à présent merci de votre coopération.

Gérard - TOULOUSE.

Pardon, avais oublié de joindre le fichier !

 

[Baside]

Re : Archivage quotidien à heure fixe / feuille 2 (2)

Bonjour le Forum,

Il y a un bouton "Editer" pour modifier le post, et il vaut mieux refaire un post sur le même topic pour ajouter le fichier.

Amicalement, Hervé.

 

[JeanMarie]

Re : Archivage quotidien à heure fixe / feuille 2 (2)

Bonjour

Pour répondre à boulou, fichier modifié contenant

un code placé dans le Thisworkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Cette macro se lance juste avant la fermeture du classeur
'Déprogrammation de l'éxécution de la procèdure Archivage
'ce qui veut dire que l'archivage n'aura pas lieu à 20:00 si le classeur n'est pas ouvert
Application.OnTime EarliestTime:=TimeValue("20:00:00"), _
    Procedure:="Archivage", Schedule:=False
End Sub

Private Sub Workbook_Open()
'Cette macro ce lance à l'ouverture du classeur
'Programmation de l'éxécution de la procèdure "Archivage" à 20:00
Application.OnTime TimeValue("20:00:00"), "Archivage"
End Sub

un autre code placé dans un module

Sub archivage()
Dim vRow As Integer
'Recherche du n° de ligne qui contient la date système dans la colonne A:A
vRow = Application.WorksheetFunction.Match(Date * 1, Range("Feuil2!A:A"), 0)
'Bascule des valeurs contenues dans les cellules dans la feuille d'archive
Worksheets("Feuil2").Range("B" & vRow & ":E" & vRow).Value = Worksheets("Feuil1").Range("B10:E10").Value
End Sub

Pour visualiser le code, touche Alt + F11

@+Jean-Marie