Discussion :

[challe1976]

Bonjour!

J'aimerais savoir si une macro ACCESS existe qui enregistrerait un état dans un dossier quelconque automatiquement à tous les jours (disons à minuit) ?

Merci!

Catherine

[User]

Bonsoir,

L'idée serait de mettre dans la macro une condition portant sur l'heure en utilisant la fonction Time() ou Date(), ensuite de mettre la macro sur l'événement "onTimer" d'un formulaire et de régler l'intervalle minuterie, pour exécuter la macro tous les x temps.

La macro pourrait, par exemple, exporter l'état au format pdf...

Bonne continuation

Cdlt,

[catherineh]

Bonjour,

Je suis débutante en VB Access, peux-tu me dire s'il existe des exemple quelque part ?

Merci!

Catherine

[User]

Bonjour,

Voici un exemple en pièce jointe.

Le code sur minuterie est réglé sur la minute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #11:00:00 PM#)) < 60 Then
      DoCmd.OpenReport "EtatExport", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\export.pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub

Il exporte l'état "EtatExport" au environ de 23:00 dans le dossier de la base de donnée, le test s'effectue toutes les minutes, c'est pourquoi le formulaire "frmTimer", doit être masqué et rester toujours ouvert...

Cdlt,

[vodiem]

Salut challe1976, catherineh et l'Ami User

En complément d'info, il est possible d'utiliser le planificateur de tache de windows et lancer en ligne de commande la macro qui exécutera le code à l'heure souhaitée.

[User]

Salut vodiem,

Content de voir que tu es toujours actif sur le forum

a+

[catherineh]

Merci pour ton exemple, il fonctionne très bien.

Est-ce que la base de données doit toujours demeuré ouverte ? C'est une application Access connectée à Oracle.

Peut-on changer de nom au .PDF à chaque jour ?


Merci de ta grande gentillesse !!

Catherine

Bonjour,

Voici un exemple en pièce jointe.

Le code sur minuterie est réglé sur la minute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #11:00:00 PM#)) < 60 Then
      DoCmd.OpenReport "EtatExport", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\export.pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub

Il exporte l'état "EtatExport" au environ de 23:00 dans le dossier de la base de donnée, le test s'effectue toutes les minutes, c'est pourquoi le formulaire "frmTimer", doit être masqué et rester toujours ouvert...

Cdlt,

[User]

bonjour,

il faut lancer le formulaire au démarrage et mettre sa propriété visible à false...

ensuite au niveau de la commande outputto, il faut remplacer "export.PDF" par le nom que tu souhaites.

Cdlt,

[catherineh]

Si je veux la date du jour, que dois-je écrire

Option Compare Database

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #12:00:00 AM#)) < 60 Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\statut.pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub

bonjour,

il faut lancer le formulaire au démarrage et mettre sa propriété visible à false...

ensuite au niveau de la commande outputto, il faut remplacer "export.PDF" par le nom que tu souhaites.

Cdlt,

[User]

Bonjour,

Pourquoi la date du jour ? L'exemple que j'ai posté c'est pour exécuter l'export tous les jours à 23 heures.

Pouvez-vous préciser ?

Cdlt,

[catherineh]

Bonjour,

J'aimerais qu'elle s'appelle ce soir statut20150318, demain statut20150319, etc...

est-ce possible ?

[User]

Oui tout à fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #12:00:00 AM#)) < 60 Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\statut" & Format(Date(),"yyyymmdd") & ".pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub

Cdlt,

[catherineh]

Bonjour,

J'ai mis la procédure dans mon formulaire contenant mon menu général.

Lorsqu'il s'exécute à l'heure convenu, il exporte bien mon fichier, par contre, après, je n'ai plus accès à mon formulaire menu général, il fait toujours des rafraichissements (voir l'image en pièce jointe).

Pouvez-vous m'aider ?

Merci!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
 
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #12:00:00 PM#)) < 60 Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\statut" & Format(Date, "yyyymmdd") & ".pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub

[User]

Dans ce cas,

Si tu ne fais cet export qu'une fois par jour, tu fermes le formulaire après l'export et tu ne le ré-ouvre que le lendemain au moment de charger la base à nouveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #12:00:00 PM#)) < 60 Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\statut" & Format(Date, "yyyymmdd") & ".pdf"
      DoCmd.Close acReport, "EtatExport"
      DoCmd.Close acform, Me.Name
   End If
 
End Sub

a+

[catherineh]

Oui, mais c'est une base de données, avec d'autres items dans le formulaire du menu principal qui peuvent être utilisé durant la journée.

Il n'y a pas un option pour enlever rafraichissement ? Cela me permettrait d'avoir accès au menu.

Est-ce que la procédure peut fonctionner à minuit si la base de données est fermée ? car on ne serait pas obligé de laisser la base de données ouverte.

[User]

Avec une affreuse variable publique que tu initialises à false à l'ouverture du formulaire et que tu mets à true à la fin de l'export:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Compare Database
 
Dim varExport As Boolean
 
Private Sub Form_Open(Cancel As Integer)
varExport = False
End Sub
 
 
Private Sub Form_Timer()
 
   If (Abs(DateDiff("s", Time(), #12:00:00 PM#)) < 60) and (varExport=false) Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", CurrentProject.Path & "\statut" & Format(Date, "yyyymmdd") & ".pdf"
      DoCmd.Close acReport, "EtatExport"
      varExport=true
   End If
 
End Sub

Concernant l'exécution de la procédure une fois la base fermée, je t'invite à consulter le message de vodiem

a+

[challe1976]

Bonjour

J'aimerais changer le chemin CurrentProject.Path par K:\41410\_STATUT_EN_COURS_NAM
Par contre, j'ai essayé, et mon fichier ne n'est pas transféré.

Avez-vous un idée quel est le problème ?

Merci!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Form_Timer()
 
   If Abs(DateDiff("s", Time(), #8:15:00 AM#)) < 60 Then
      DoCmd.OpenReport "Statut en cours NAM", acViewPreview
      DoCmd.OutputTo acOutputReport, , "PDF", "K:\41410\_STATUT_EN_COURS_NAM" & "\statut.pdf"
      DoCmd.Close acReport, "EtatExport"
   End If
 
End Sub