Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 07/06/2011, 11h09   #1
Invité de passage
 
Inscription : avril 2011
Messages : 4
Détails du profil
Informations forums :
Inscription : avril 2011
Messages : 4
Points : 0
Points : 0
Par défaut Sauvegarde tables ACCESS

Bonjour, je suis dans la situation suivante sous ACCESS 2007 :

J'ai un fichier qui contient des tables et et un autre fichier qui contient ces même tables mais liées.
Mon souci est de faire une copie de ces tables à partir de ma base de table liées dans le format .accdb (donc pas de macro "copiervers" et excel)

Je ne vois pas trop comment faire pour réalisé cette sauvegarde à partir d'un bouton sur un formulaire car le client n'aura accès qu'au fichier de tables liées et il doit les sauvegarder ailleurs pour qu'on les récupère.

j'ai essayer de faire ma propre procédure mais elle ne marche pas, et je suis loin d'être un spécialiste :

Code :
1
2
3
4
dim fichier1 as new filesystemobject
dim fichier2 as variant
set fichier2=fichier1.getfile("monchemin\mabase.accdb")
fichier2.copy(c:\mabase.access)
Merci pour vos réponses

Aydindril
Aydindril est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/06/2011, 15h53   #2
Membre Expert
 
Homme Frédéric
Développeur informatique
Inscription : juin 2009
Messages : 944
Détails du profil
Informations personnelles :
Nom : Homme Frédéric
Localisation : France, Vosges (Lorraine)

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : juin 2009
Messages : 944
Points : 1 249
Points : 1 249
Bonjour

Essaye avec cette méthode
Code :
1
2
3
4
5
Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject
oFSO.CopyFile strCurrent, strDest, True
' strCurrent -> base à copier
' strDest -> base de destination
Bien évidemment, il te faudra récupérer le nom de la base source que tu trouveras dans la propriété Connect d'une des tables liées.

Bon courage
__________________
Frédéric
Développeur d'Applications Access
fgiambelluco est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/06/2011, 09h27   #3
Invité de passage
 
Inscription : avril 2011
Messages : 4
Détails du profil
Informations forums :
Inscription : avril 2011
Messages : 4
Points : 0
Points : 0
Merci, je vais essayer avec cette technique mais cette technique va me permettre de copier la base du client ailleur, est-ce qu'il y a un moyen de copier seulement les tables de cette base ?
Aydindril est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h29.


 
 
 
 
Partenaires

Hébergement Web