fonction qui s'autoexecute a chaque periode de temps defini - VB/VBA/VBS - Programmation
Marsh Posté le 05-11-2006 à 20:17:49
bonsoir,
Utilise la Sub Workbook_Open
En petit nègre...
If Day(Date) >15 And (Month(Date) - Month(DatePremierEnregistrement)>2) Then
Détecter le nombre d'enregistrements à archiver
Couper les enregistrements à archiver
Ouvrir le fichier archive
Détecter la première ligne vide
Coller les enregistrements à archiver
Fermer le classeur archive
End if
A+
Marsh Posté le 06-11-2006 à 07:57:58
Bonjour,
Ton logiciel ne tournant pas les WE, ni les jours fèries, je suppose, il serait peut-être bon de mettre dans une table (nouvelle ou utilisable à cet effet) la date de la dernière sauvegarde.
Tu peux essayer de caser cela dans:
Private Sub Form_Open(Cancel As Integer)
End Sub
ou dans une macro dont le nom sera Autoexec
Cordialement
Marsh Posté le 05-11-2006 à 19:40:44
Salut tout le monde,
Jai une table A qui contient toutes les activitesjournalieres qui se passent sur un plancher de production. Cette table grossit enormement a chaque mois en taille, ce qui ralentit de beaucoup la vitesse dexecution de tous les requetes et etats qui sont bases sur cette table. Je cherche donc une solution pour resoudre ce probleme de lenteur.
Donc jai pense faire une function qui automatiquement, a chaque debut du mois (ou a chaque 15 du mois), deplace les vieux enregistrements vers une table B. Pour etre plus precise, je veux deplacer les enregistrements qui sont vieux dau moins 2 mois. Par exemple, si la function sautoexecute a chaque 15 du mois, donc le 15 novembre, il va deplacer vers la table B, tous les enregistrements qui sont anterieurs au mois de septembre.
Mais je ne sais pas vraiment comment my prendre pour creer cette fonction. Quelquun a une idée? Ou peut etre une facon differnete pour resoudre mon probleme?
Merci davance