Access VBA creation d'une base

Version imprimable

18/07/2017, 19h38
celiab

Access VBA creation d'une base

Bonjour,

je suis etudiante et je commence à apprendre le vba, je souhaite en vba creer une base Access avec Nom_Version puis que cette base récupere des données d'une table qui est dans une autre base Access ? es possible ? quelqu'un peut me dire comment faire?
18/07/2017, 22h16
bertiny

Citation:

Envoyé par celiab

Bonjour,

je suis etudiante et je commence à apprendre le vba, je souhaite en vba creer une base Access avec Nom_Version puis que cette base récupere des données d'une table qui est dans une autre base Access ? es possible ? quelqu'un peut me dire comment faire?

Bonjour et bienvenue dans le forum.
Il est bien possible de récupérer les données dans une autre base de données. Etant dans ta base de données, tu peux importer ou exporter les données ceci à ta convenance.

Cdlt.
18/07/2017, 22h38
celiab

Citation:

Envoyé par bertiny

Bonjour et bienvenue dans le forum.
Il est bien possible de récupérer les données dans une autre base de données. Etant dans ta base de données, tu peux importer ou exporter les données ceci à ta convenance.

Cdlt.

merci pour la réponse, comment puisje faire ca ?
18/07/2017, 22h58
bertiny

Dans ta base de données actuelles, tu cliques sur données externes. Sous l'onglet Importer et lier, tu choisiras importer une base de données access.
18/07/2017, 23h07
celiab

Citation:

Envoyé par bertiny

Dans ta base de données actuelles, tu cliques sur données externes. Sous l'onglet Importer et lier, tu choisiras importer une base de données access.

mais je souhaite que la base sois créé avec du code vba
18/07/2017, 23h46
bertiny

Le Code VBA effectue une tâche précise. On l'utilise pour résoudre des problèmes spécifiques. Que veux-tu faire avec du VBA précisément?
18/07/2017, 23h56
celiab

Citation:

Envoyé par bertiny

Le Code VBA effectue une tâche précise. On l'utilise pour résoudre des problèmes spécifiques. Que veux-tu faire avec du VBA précisément?

Création d'une base access puis l'alimenter à partir d'un fichier .csv
19/07/2017, 07h51
bertiny

Citation:

Envoyé par celiab

Création d'une base access puis l'alimenter à partir d'un fichier .csv

Ce que je t'explique c'est que la création d'une base de données access ne se fait pas en VBA. Tu peux créer ta base de données avec du SQL ou alors en mode création simple. Le VBA est un langage associé à Office qui permet le développement d'application. Créé d'abord ta base de données et tu pourras faire tout ce que tu veux.

Cdlt.

Bonjour!

Dans une de mes bases, j'utilise ce procédé pour sauvegarder certains paramètres présents notamment dans la table "Chemins": peut-être pourras-tu adapter ce code à tes besoins?

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
30
31
32
33
34
35
36
Public Sub Com5_Click()
    Dim leChemSauve As String, FichSauve As String, FichFullName As String, rep
    FichSauve = "SaveParams.accdr"
    leChemSauve = Nz(DLookup("Chemin", "CHEMINS", "Fonction='" & "Sauvegarde" & "'"), "")
    FichFullName = leChemSauve & "\" & FichSauve
    rep = Dir(FichFullName)
    If rep <> "" Then
        rep = MsgBox("Une sauvegarde précédente a été trouvée." & CRLF & CRLF & _
            "Voulez-vous la remplacer ?", vbQuestion + vbOKCancel, "R² Holistic")
        If rep = 2 Then
            Exit Sub
            Else
        End If
        Kill (FichFullName)
    End If
 
    'Création de la nouvelle base
    Dim wrkDefault As Workspace
    Dim dbsNew As Database
    Dim MyTableDef As TableDef
    Set wrkDefault = DBEngine.Workspaces(0)
    Set dbsNew = wrkDefault.CreateDatabase(FichFullName, dbLangGeneral)
    DoEvents
    Set dbsNew = Nothing
    'Approbation emplacement
    Call EmplacementSauvegardeApprouve
 
    'Exportation des tables de paramètres
    DoCmd.TransferDatabase acExport, "Microsoft Access", FichFullName, acTable, "Chemins", "Chemins"
    DoCmd.TransferDatabase acExport, "Microsoft Access", FichFullName, acTable, "MSysBook", "MsysBook"
    DoCmd.TransferDatabase acExport, "Microsoft Access", FichFullName, acTable, "MSysTMP", "MsysTMP"
    DoEvents
    'Name FichFullName As leChemSauve & "\SaveParams.accdr"
    Com6.Enabled = -1
    rep = MsgBox("Sauvegarde paramètres effectuée", vbInformation + vbOKOnly, "R² Holistic")
End Sub

Bonne continuation ! ;)