Bonjour,
J'aimerais exporter deux tables ACCESS dans une nouvelle base de données ACCESS, est-ce possible avec du code VBA ?
Merci.
Bonjour,
J'aimerais exporter deux tables ACCESS dans une nouvelle base de données ACCESS, est-ce possible avec du code VBA ?
Merci.
Bonjour,
En effet ! et heureusement d'ailleurs.
Attention aux emplacements approuvés sinon tu auras des messages de confirmation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 '1 créer la base : Application.DBEngine.CreateDatabase "c:\basecopie.accdb",dbLangGeneral '2 transférer les tables : docmd.TransferDatabase acExport,"Microsoft Access","c:\basecopie.accdb",acTable,"table1","table1",false docmd.TransferDatabase acExport,"Microsoft Access","c:\basecopie.accdb",acTable,"table2","table2",false
Cordialement,
Détecter les modifications formulaire Cloud storage et ACCESS
Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie
J'ai écris la procédure dans le code vba de ma base access et en cliquant sur le bouton de mon formulaire il me donne un erreur (voir pièce jointe)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Commande0_Click() '1 créer la base : Application.DBEngine.CreateDatabase "C:\Users\U5954\Desktop\basecopiec\basecopie.accdb", dbLangGeneral '2 transférer les tables : DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\basecopie.accdb", acTable, "table1", "table1", False DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\basecopie.accdb", acTable, "table2", "table2", False End Sub
Bonjour,
Il te donne l'origine du problème dans le message : ce chemin n'existe pas.
Tu peux le vérifier sous DOS en tapant l'instruction suivante :
Attention sous les Windows récent "C:\Users" n'est peut être qu'un faux ami.
Code : Sélectionner tout - Visualiser dans une fenêtre à part DIR C:\Users\U5954\Desktop\basecopiec\
Cordialement,
Détecter les modifications formulaire Cloud storage et ACCESS
Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie
Bonjour,
Ça fonctionne. :-)
J'aimerais ajouter un petit détail.
J'aimerais ajouter au nom de la table (STA01234 et STAT220), la date du jour suivi du cycle saisi dans le champ texte du formulaire (txtCyclePaiement) avec des tirets après le nom de la table et la date du
J'aimerais aussi qu'il renomme la base de données existante dans laquelle je mets les tables avec la date du jour (donc changer la date précédente par la date du jour)
Est-ce que c'est possible ?
Un gros merci :-)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 DoCmd.TransferDatabase acExport, "Microsoft Access", "K:\41500\_SDLR_REVISION\Inventaire\base révision 20150406.mdb", acTable, "STA01234", "STA01234-20150406- & txtCyclePaiement.Value", False DoCmd.TransferDatabase acExport, "Microsoft Access", "K:\41500\_SDLR_REVISION\Inventaire\base révision 20150406.mdb", acTable, "STA220", "STA220-20150406- & txtCyclePaiement.Value", False
Comme ceci :
Tu devrais consulter un bouquin sur VBA, il en existe en PDF en libre téléchargement (cf Google) pour te familiariser avec le langage.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ..."STA01234-20150406-" & txtCyclePaiement.Value, ...
Détecter les modifications formulaire Cloud storage et ACCESS
Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager