Sub ecriture()
'****** déclaration des variables ******
Dim PathFic As String
Dim Nombdd As String
'****** initialisation des variables ******
PathFic = "C:\Documents and Settings\"
Set BddAccess = CreateObject("Access.application")
Nombdd = "visu.mdb"
Set BddAccess = DBEngine.OpenDatabase(PathFic & Nombdd)
'appel des procédures d'enregistrement des données de la visu dynamique
Call tesytoto("NM 38", "NM38")
Call tesytoto("NM 39", "NM39")
'****** fermeture de la base de données
BddAccess.Close
Set BddAccess = Nothing
'****** recommencer un enregistrement dans 5 minutes
[B]Excel.Application.OnTime Now + TimeValue("00:05:00"), "ecriture"[/B]
End Sub