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