[VBA-SQL]Sauvegarde automatique Dorsale

Version imprimable

30/03/2007, 13h59
Herman

[VBA-SQL]Sauvegarde automatique Dorsale

Bonjour,

Ma base est divisée en Dorsale/Frontale, et j'aimerais automatiquement que tous les 15 jours, ça me rapatrie ma base Dorsale (qui se trouve sur le réseau), sur C:

Je suppose que ça doit se faire en VBA, et qu'une macro ne pourra rien y faire, mais j'ai pas trop d'idée sur la tête que doit avoir le code :/

Merci
30/03/2007, 14h11
jmaulin

va voir sur ce site
http://www.actionaccess.fr/tutorial1.php
et inspire-toi de cet exemple

Créer une table tblFichiers qui contient 2 champs : fichier (Texte) et jour (Date)
La base sera archivée dans un dossier Archives sous le format NomBaseAAMMJJ.mdb (AA:annee, MM:mois,JJ:jour)

Appel de la fonction avec comme paramètre le nom de la base avec son chemin

Code:

1
2
 
 Call sauvegarde("NomDeLaBaseAArchiver")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub sauvegarde(NomBase As String)
 Dim repertoire As String, fichier As String, s As String
 Dim t As DAO.Recordset, DateDerniereSauvegarde As Date
 
 repertoire = Left$(NomBase, InStrRev(NomBase, "\"))
 If Dir(repertoire & "archives", vbDirectory) = "" Then MkDir repertoire & "archives"
 NomBase = Mid$(NomBase, InStrRev(NomBase, "\") + 1)
 NomBase = Left$(NomBase, Len(NomBase) - 4)
 
 DoCmd.RunSQL "DELETE tblFichiers.* FROM tblFichiers;"
 Set t = CurrentDb.OpenRecordset("tblFichiers")
 fichier = Dir(repertoire & "archives\" & NomBase & "_*.mdb")
 Do
  t.AddNew
  t!fichier = fichier
  s = Mid$(fichier, InStr(1, fichier, "_") + 1, 6)
  t!jour = CDate(Right$(s, 2) & "/" & Mid$(s, 3, 2) & "/" & Left$(s, 2))
  t.Update
  fichier = Dir
 Loop Until fichier = ""
 t.Close
 
 DateDerniereSauvegarde = DMax("[jour]", "tblFichiers")
 
 If DateDerniereSauvegarde > Now - 14 Then Exit Sub
 FileCopy repertoire & NomBase & ".mdb", repertoire & "archives\" & NomBase & "_" & Format$(Now, "yymmdd") & ".mdb"
 
End Sub

30/03/2007, 15h07
Herman

Nikel, merci à vous deux, je vais faire un mix pour que tout aille parfaitement :)
30/03/2007, 16h52
Herman

Voilà après avoir testé les lignes de code, j'aurais 2 questions :

1/ Quand on fait les DELETE et INSERT, Access nous demande toujours de confirmer, y'a t-il moyen d'enlever ça et de valider automatiquement le DETELE et INSERT INTO ?

2/ Dans un champs texte, je demande à l'utilisateur de mettre l'endroit où rapatrier la base sauvegardée, c'est donc sous la forme de : C:\Documents and Settings\NOM_UTILISATEUR\Bureau\

Donc chaque utilisateur doit renseigner "à la main" son nom d'utilisateur. Access permet-il de trouver tout seul le nom de la session sur laquelle on se trouve ?
31/03/2007, 00h08
loufab

Bonjour,

Pourquoi ne pas utiliser directement le système pour ça ?

Le plannificateur de tâche de Windows par exemple.

Cordialement,
31/03/2007, 06h53
helas

A la question 1:
Décocher les 3 options du groupe Confirmer de l'onglet Modifier/Rechercher du menu Outils\Options

A la question 2:
NomSession = Environ("USERNAME")
02/04/2007, 07h58
Herman

- Pour loufab : Parce que les droits que j'ai sur le PC sont plus que restreint et que je pense ne pas y avoir accès (pour info, je n'ai même pas le droit de rentrer dans le calendrier windows, c'est pour dire ... :/)

- Merci helas, je vais tester ça
02/04/2007, 12h58
loufab

Effectivement c'est un comble... les admins sont souvent des cruches. :mouarf: Ben mince j'ai été une cruche à une époque...