Sub Annuelle()
'on veut créer une macro qui archive tous les ans les enregistrements
Dim a%, année%
'utilisateur entre l'année qu'il veut archiver
a% = InputBox("De quelle année sont les données que vous souhaitez exporter ?", "Choix de l'année", "écrire ici")
'on récupère année en cours : utilisateur ne peut pas archiver tant que année n'est pas finie
année% = Year(Now)
'on vérifie si année entrée est bien possible
If ((a% < 1970) Or (a% > année%)) Then
MsgBox ("Ce n'est pas possible !!!")
ElseIf (a% = année%) Then
MsgBox ("L'année " & année% & " n'est pas encore finie!!!")
Else
'on copie la table dans Access
DoCmd.CopyObject "", "ARRET_Archive_" & a%, acTable, "ARRET2"
'on veut supprimer les enregistrements de année a%
DoCmd.RunSQL "DELETE FROM ARRET2 WHERE 'Année' = 'a%' ;"
End If
End Sub
Partager