Copie de la Base de Données

Bonjour à tous

J'ai créé un bouton sortie pour quitter ma base de données mais j'aurais aimé également qu'il me lance une copie de la base dans un autre répertoire afin en quelques sorte de faire une sauvegarde. J'ai essayé de passé par exécuter commande menu, exporter access mais j'ai un message d'erreur. Si je sélectionne un objet comme le dit le message d'erreur, il me fait taper 2 fois le mot de passe de la base, me fait confirmer de remplacer l'objet en question mais pas le reste de la base, en fait il n'y a pas grand chose d'automatisé alors que c'est ce que je recherche. Si quelqu'un pouvez me donner un petit coup de main. Merci d'avance.

Pièce jointe 602058

bonjour,
essaie avec CopyFile dans Scripting.FileSystemObject
un exemple de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim fso As Object   Dim laBase As String Dim LaSauv As String   laBase = Application.CurrentDb.Name LaSauv = CurrentProject.Path & "\Sauve\" & CurrentProject.Name Set fso = CreateObject("Scripting.FileSystemObject")   fso.CopyFile laBase, LaSauv Set fso = Nothing

---

Tout d'abord je te remercie de t'être penché sur mon problème mais en fait je ne suis pas un as et je ne sais quoi faire de ta formule, en gros je la met ou ? pour l'instant mon bouton sortie effectue une sauvegarde des fiches des renseignements, et quitte access. Je suis allé sur le lien copyfile mais je n'y comprend pas grand chose . le chemin de destination de la sauvegarde serai
FileSystemObject.CopyFile "C:\Drive\ACCES RESERVE MARC ET DOMINIQUE\UFAC ARDECHE.accdb", "c:\tempfolder\" mais franchement mes compétences sont assez limitées.


Pièce jointe 602080

on ne peut malheureusement pas le faire à partir des instructions de Macro Access ...

il existe tout de même une solution:
on ne peut pas le faire uniquement en Macro Access vu que ce langage, très limité, offre très peu de possibilités pour manipuler les fichiers et objets, il faut obligatoirement passer par les procédures VBA.
Ce n'est pas facile mais pas impossible pour autant que le répertoire dans lequel tu veux sauvegarder ta base est bien autorisée en écriture, sinon tu risques d'avoir l'erreur 70 "permission refusée".

Tu dois copier ces lignes dans un nouveau module et créer une fonction que tu appelles Sauvegarde, par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim fso As Object Dim laBase As String Dim LaSauv As String   laBase = Application.CurrentDb.Name LaSauv = "c:\tempfolder\" & CurrentProject.Name Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile laBase, LaSauv   Set fso = Nothing

---

et tu suis les instructions du document joint pour savoir comment créer un nouveau module VBA:

Pièce jointe 602095

Application.CurrentDb.Name correspond au nom complet de ta base avec le chemin, autrement dit: "C:\Drive\ACCES RESERVE MARC ET DOMINIQUE\UFAC ARDECHE.accdb"
CurrentProject.Name est le nom de ta base sans le chemin: "UFAC ARDECHE.accdb"

Merci pour tout ses renseignements, je vais étudier cela de pret. A suivre

Je doit pas être bien loin mais ça bug, je m'en douté un peu car dès l'enregistrement la ligne été déjà en rouge mais en comparant je n'est rien trouvé d'anormal. en revanche le surligné en jaune est apparu lorsque j'ai lancé la fermeture et qu'il y a eu une erreur? L'exportation des fiches de renseignements ne pose pas de problème c'est après que ça bloque


Pièce jointe 602099


Pièce jointe 602102

Bon j'ai rajouté les double guillemets qui faisait l'erreur sur le module mais maintenant j'ai ce message

Pièce jointe 602105

pourtant c'est la même destination que mes fiches de renseignement

Bon j'ai supprimer toutes les commandes de ma macro pour ne laisser que celle qui nous concerne. J'ai vérifié le chemin

Pièce jointe 602109


Il me dit chemin d'accès introuvable

Pièce jointe 602110

et si je clique sur débogage

Pièce jointe 602111

il n'y avait pas besoin de modifier le code d'origine...
comme je le disait précédemment:

Citation:

---

Application.CurrentDb.Name correspond au nom complet de ta base avec le chemin, autrement dit: "C:\Drive\ACCES RESERVE MARC ET DOMINIQUE\UFAC ARDECHE.accdb"
CurrentProject.Name est le nom de ta base sans le chemin: "UFAC ARDECHE.accdb"

---

donc Access trouve les noms dans ces 2 objets et ce sans erreur et si le nom de la base change ou si il est déplacé, cela se fera automatiquement.

pour ce qui concerne le message d'erreur, il indique qu'un chemin est introuvable, il faut vérifier si C:\tempfolder\ existe bien

Re

C'est bon j'ai trouvé le PB ça marche impeccable merci encore pour tout.

DG

Citation:

---

C'est bon j'ai trouvé le PB ça marche impeccable

---

et quel était-il ?

En fait sur les 2 lignes il faut mettre les chemin complet
sur la 1° la ou se trouve le fichier et sur la seconde la ou on veux l'envoyer. Comme il s'agit d'une base présente sur plusieurs PC j'ai créé autant de module car ces fichiers ne sont pas forcement placé au meme endroit sur les PC. je les ai simplement numéroté sauvegarde1() sauvegarde2() .....

Je tiens vraiment à re remercier surtout pour ton petit tuto que tu ma envoyé en PDF qui m'a permis de réussir.
Merci merci et merci

Pièce jointe 602129

bonjour,

Citation:

---

En fait sur les 2 lignes il faut mettre les chemin complet
sur la 1° la ou se trouve le fichier et sur la seconde la ou on veux l'envoyer.

---

c'est pourtant bien ce que j'ai fait (d'ailleurs j'ai testé le code avant de te l'envoyer)...

Citation:

---

Comme il s'agit d'une base présente sur plusieurs PC j'ai créé autant de module car ces fichiers ne sont pas forcement placé au meme endroit sur les PC.

---

Ce n'est pas un problème si tu n'avais pas modifié mon code, tout le moins pour la base à copier.

Je te le redis pour la 3ème fois: tu n'as pas besoin de mettre en "dur" le chemin de la base à copier, qui comme tu l'as constaté, peut changer d'un PC à l'autre.
Il fallait que tu laisses Application.CurrentDb.Name pour la base à copier (LaBase) car cette variable correspond au nom complet de ta base avec le répertoire, autrement dit tu auras soit "C:\Drive\ACCES RESERVE MARC ET DOMINIQUE\UFAC ARDECHE.accdb", soit "C:\Users\DOMINIQUE GASSION\Desktop\Bdd\UFAC ARDECHE.accdb" ou autre chose pour un 3ème PC, cela changera automatiquement indépendamment du PC sur lequel le code sera lancé et CurrentProject.Name correspond au nom de la base: "UFAC ARDECHE.accdb" précédé du répertoire de la sauvegarde. Cela dit, tu fais comme tu veux, c'est ton application après tout ...

La seule chose qui avait à changer "en dur" était le répertoire de la sauvegarde (LaSauve) sur chaque PC puisque, visiblement, il est différent d'un PC à l'autre, ce que je trouve dommage.

je vais essayer de rectifier le tir

Maj

bon effectivement sans toucher à ton code cela fonctionne seulement tempfolder n'est pas la destination ou je veux qu'il aille je veux qu'il aille à "C:\Drive\ACCES RESERVE MARC et DOMINIQUE\"

comme je le disais (encore) dans mon post précédent, tu peux mettre le chemin en dur pour la destination de la sauvegarde sur chaque PC:

Code:

---

LaSauv = "C:\Drive\ACCES RESERVE MARC et DOMINIQUE\" & CurrentProject.Name

---

tu pourrais aussi passer par une table paramètre: en supposant que la table s'appelle "TblParamChemin" et que le champ s'appelle "Nomchemin", on peut récupérer le chemin via la fonction Dlookup, après il suffit de changer le code précédent par celui-ci:

Code:

---

1 2 3 4

' on va chercher le chemin de sauvegarde dans la table paramètre LaSauv = DLookup("Nomchemin", "TblParamChemin") ' on ajoute un antislash à la fin si il est manquant LaSauv = LaSauv & IIf(Right(LaSauv, 1) <> "\", "\", "") & CurrentProject.Name

---

il faut juste penser à mettre un chemin par défaut dans cette table ...

Je vais laisser comme cela cela fonctionne très bien merci encore pour tout tes conseils