Discussion :

[DyGiiwax]

Bonjour, j'ai beau chercher je ne trouve pas comment ecrire en base de données vba grâce à une maccro, j'arrive à importer ma base dans une feuille excel, mais impossible d'ecrire directement dans la base.
Si quelqu'un à une solution je suis preneur, merci d'avance !

[Invité]

Bonjour,

j'arrive à importer ma base dans une feuille excel

donc j'en conclue que tu te connectes à la base de données! quel type au fait Sql Serveur?

mais impossible d'ecrire directement dans la base

montre nous ta requête et ta méthode d’exécution de celle ci!

[DyGiiwax]

Oui je me connecte à celle ci, et c'est une base sql server voici le 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
 
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=**;Data Source=****;Use Procedure for Prepare=1;Auto Translate=True;Pack" _
        , _
        "et Size=4096;Workstation ID=3745B;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=******), Destination:=Range("$A$2")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array(******)
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "*****"
        .ListObject.DisplayName = "*****"
        .Refresh BackgroundQuery:=False
    End With

Les "**" représentent la base, la table, les id de connexion etc..., je préfére les cacher pour un soucis de confidentialité !

[Invité]

Personnellement je n'utilise pas les objets connexion d'Excel!

Code :

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

1
2
3
4
5
6
7
Sub test()
With CreateObject("Adodb.connection")
   .Open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
   .Execute "Insert into ([table] [Champ1],[Champ2]) values ('toto','titi')"
   .Close
End With
End Sub

[DyGiiwax]

Premièrement merci de vos réponses.
J'ai adapté votre code comme ceci :

Code :

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

1
2
3
4
5
6
7
Sub ecriture()
    With CreateObject("Adodb.connection")
    .Open "Provider=SQLOLEDB.1;Password=" & "**" & ";Persist Security Info=True;User ID=" & "**" & ";Initial Catalog=" & "***" & ";Data Source=" & "***"
    .Execute "Insert into TRADUCTION (LOCA) values ('12345')"
    .Close
    End With
End Sub

En effet, je cherche à écrire dans le champ "LOCA" de la table TRADUCTION cependant à l'execution de la maccro j'ai un message d'erreur me disant qu'il est impossible d'écrire la valeur NULL dans le champ "CLE" (qui est un autre champ de la table TRADUCTION) et ceci est normal car le champ est parametré pour prendre un autre type de valeur, mais la n'est pas la question.
Je ne comprend pas pourquoi la requete veut ecrire dans d'autres champs...

[DyGiiwax]

Problème résolu !
Erreur de ma part, il fallait que je fasse un update et pas un insert.....
J'ai donc modifié la ligne qui, à la base, effectuait un insert :

Code :

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

.Execute "Update TRADUCTION Set CLE_VALE = '123213' Where CLE = '@LANGBDD_ARTICLE_DESI_ARTI_HOLA' AND LOCA = 'en'"

Merci encore pour votre aide en espérant que ça aide quelqu'un plus tard !

[Invité]

non la requête ne veut pas écrire dans un autre champ mas vue que Cle es défini comme null interdit tu est obligé de saisir une valeur!

Edit: Cool!

[DyGiiwax]

non la requête ne veut pas écrire dans un autre champ mas vue que Cle es défini comme null interdit tu est obligé de saisir une valeur!

Exact mais je voulais faire un update en fait, remplacer des champs existatnts...
Merci de tes réponses quand même elles m'ont bien aidé !