Discussion :

[Maxime91327]

Bonjour à tous,

Je suis à l'université, et je dois développer un projet VBA nous permettant de valoriser le prix d'une action.

Je suis bloqué à cette étape : l'enregistrement de mes données excel dans ma base de données access.

Pour clarifier, voici la consigne exacte :

->Un bouton "Save" donnera l’ordre à l’application d’enregistrer les paramètres d’entrées du formulaire dans la base de données Access (table "inputParametersSaved").

Auriez vous d'éventuelles pistes/exemples de codes qui me permettrait de remédier à ce problème?

Cordialement,

Max

[Menhir]

Une piste : https://excel.developpez.com/faq/?page=Access

[Maxime91327]

Bonsoir,

merci pour votre réponse. Malgré la piste que vous m'avez donnée, je n'arrive pas à faire en sorte que les données que je rentre dans le formulaire se sauvegardent dans mes tables access et remplacent les valeurs qui y sont déjà présentes. Auriez vous un code à partager afin de m'aider ? (je suis débutant)

[Menhir]

Malgré la piste que vous m'avez donnée, je n'arrive pas à faire en sorte que les données que je rentre dans le formulaire se sauvegardent dans mes tables access et remplacent les valeurs qui y sont déjà présentes.

Peux-tu montrer ce que tu as essayé ?

Auriez vous un code à partager afin de m'aider ?

Il y a plusieurs codes dans le lien que je t'ai transmis.
Mais si tu t'attends à avoir un code qui corresponde exactement à ton besoin, ça ne s'appelle pas "mettre sur une piste" mais "faire le travail à ta place".

[Maxime91327]

Bonsoir Menhir,

Oui, j'ai bien ouvert le lien que tu m'as transmis, et oui il y a plusieurs codes dedans, chacun correspondant à une situation particulière.

Ci-joint un extrait de mon code :

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
   Dim Cn As ADODB.connection
    Dim Cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim CheminBase As String, strCn As String, strInsert As String, strUpdate As String
    Dim r As Long
 
    ActiveWorkbook.Sheets("Input Sheet").Select
 
    CheminBase = "D:\VBA Projets\Projet 2 outil de valorisation\2017_ProjectAppleDataBase.accdb"
 
    Set Cn = New ADODB.connection
    strCn = "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source=" & CheminBase & ";"
    Cn.Open strCn
 
    Set rs = New ADODB.Recordset
    rs.Open "SELECT parameterValue FROM inputParametersSaved", Cn, adOpenKeyset, adLockOptimistic
    Range("B4").Select
 
    derniere_ligne = Range("B29").End(xlDown).Row
 
    If rs.EOF = True Then   
        For I = 1 To derniere_ligne - 1
            strInsert = "INSERT INTO parametersValue (Revenues,Income,equity) VALUES ('" & Range("B4").Offset(I, 0).Value & "', #" & Range("B5").Offset(I, 1).Value & "#, '" & Range("B6").Offset(I, 2).Value & "')"
            Cn.Execute strInsert
        Next I
End If
    ' Fermeture recordset et connection
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
 
 
 
End Sub

Ici, j'ai cherché à ce que les cellules B4 à B29 excel (contenant des données préalablement rentrées dans le formulaire), se sauvegardent dans les tables Revenues, Income, et Equity.

Cordialement,

[Maxime91327]

Bonsoir,

merci pour votre réponse. Malgré la piste que vous m'avez donnée, je n'arrive pas à faire en sorte que les données que je rentre dans le formulaire se sauvegardent dans mes tables access et remplacent les valeurs qui y sont déjà présentes. Auriez vous un code à partager afin de m'aider ? (je suis débutant)

[Invité]

Bonjour,
Il y a deux types de requête!
Des requête de sélection

Code :

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

sql="Selelt [Champ1],[Champ2],[Etc] From [Table] Where [ChampNum]=10 And [ChampText]='toto' Or [ChampDate=#25/12/2017#"

Requêtes à exécution direct

Code :

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

1
2
3
4
5
sql="Insert tinto [Table] ([ChampNum],[ChampText],ChampDate) values (10,'Toto',#25/12/2017#)"
 
Sql="Update [Table] set [ChampText]='Titi' Where [ChampNum]=10 And [ChampText]='toto' Or [ChampDate=#25/12/2017#"
 
Sql= "Delete  [Table] Where [ChampNum]=10 And [ChampText]='Titi' Or [ChampDate=#25/12/2017#"