Discussion :

[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?

[bertiny]

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.

[celiab]

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 ?

[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.

[celiab]

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

[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?

[celiab]

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

[bertiny]

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.

[Ric500]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !