Ecrire de Excel vers SQL ?

**Philippe ROHL** · 29/03/2022, 15h05

Bonjour, je suis technicien du BE dans une petite société qui fabrique des luminaires mais je suis aussi l'administrateur de l'ERP.

J'ai créé des vues dans SQL qui sont importés dans un fichier Excel.
A partir de ce même fichier, je voudrais que sur un changement de valeur de la colonne K, la "macro" mette à jour un champ de la BDD avec une clause WHERE colonne E
Je voudrais savoir si c'est possible et si oui, pouvez vous m'aider ?

Merci

exemple Excel - SQL.xlsx

**jurassic pork** · 29/03/2022, 16h30

Hello,
pour quel ERP (ex: SAP) et quel type de base de données ( ex : ms sql server) ?
Attaquer directement une base de données peut-être dangereux dans un E.R.P (à cause des relations entre tables) . Il y a souvent des API Rest dans les ERP pour gérer à distance.
Ami calmant, J.P

**Philippe ROHL** · 30/03/2022, 08h45

Envoyé par jurassic pork

Hello,
pour quel ERP (ex: SAP) et quel type de base de données ( ex : ms sql server) ?
Attaquer directement une base de données peut-être dangereux dans un E.R.P (à cause des relations entre tables) . Il y a souvent des API Rest dans les ERP pour gérer à distance.
Ami calmant, J.P

Hello M. Pork, le logiciel s'appelle SILOG. Nous l'utilisons depuis 1999 (Bug 2000) et nous sommes plutôt satisfait.
La BDD est sous SQL SERVER 2019.
Je suis contient que d'aller écrire dans une BDD peut-être dangereux.
L'objectif de ce que je souhaite est de mettre à jour des champs de variables libres.
Cela permettra d'avoir des changements de statut rapide dans notre gestion.

Merci

**jurassic pork** · 30/03/2022, 09h45

hello,
tu peux utiliser adodb pour te connecter à une base de données SQL et effectuer des requêtes SQL à partir de VBA : voir ici

Ami calmant, J.P

**Thumb down** · 30/03/2022, 12h36

Bonjour,
un exemple avec AdoDb

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
Sub test()
  MsgBox MajSql("LCU47938", 3)  & " enregistrements on tété mis à jour!"
End Sub
 
Function MajSql(LCT As String, Statut As Integer) As Integer
Const User = "MyUser", Base = "MyBase", PassWord = "PassWord", Server = "MyServer"
    With CreateObject("AdoDb.connection")
        .Open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
        With .Execute("Update [MyTable] Set [Statut]=" & Statut & " Where [N° LCT]='" & CStr(LCT) & "'" & vbCrLf & "select  @@ROWCOUNT as NB")
            MajSql = !NB
            .Close
        End With
        .Close
    End With
End Function

**Philippe ROHL** · 30/03/2022, 16h14

Merci à tous les 2 de prendre le temps de m'aider.
Je crois que vous sur évaluez mes compétences !

@jurassic pork. Je ne saurais même pas vous dire si ADOdb est installé !? Sur les postes clients ? Sur le serveur ?
Je crois comprendre que c'est lié à Microsoft ActiveX Data Objects 2.8 Library

@Thumb down. Merci pour votre code mais quand je le lance, j'ai systématiquement le message en PJ :

Code :

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

With .Execute("Update [LCTE] Set [Statut]=" & Statut & " Where [N° LCT]='" & CStr(LCT) & "'" & vbCrLf & "select  @@ROWCOUNT as NB")

LCTE nom de la table
VarNumUtil2 nom du champ que je souhaite mettre à jour (Colonne K "Statut")

MErci pour votre patience

**Thumb down** · 30/03/2022, 16h55

de toutes évidence le champ N° LCT n'existe pas ce qui dans l'absolu ne me choque pas mais je ne pouvais pas le savoir!

changement de valeur de la colonne K, la "macro" mette à jour un champ de la BDD avec une clause WHERE colonne E

j'ai juste fait un WHERE colonne E [N° LCT]!

VarNumUtil2 nom du champ que je souhaite mettre à jour (Colonne K "Statut")

et comment s'appel le champ de la close WHERE colonne E?

N° LCT	Statut
LCU47938	0
LCU47939	0
LCU47943	0
LCU47947	0
LCU47951	0

**Philippe ROHL** · 30/03/2022, 17h17

Le champ de la colonne E s'appelle CodeLancement.

Edit : Le champ de la colonne K (Statut) s'appelle VarNumUtil2

J'ai donc modifié comme ça:

Code :

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

With .Execute("Update [LCTE] Set [VarNumUtil2]=" & Statut & " Where [CodeLancement]='" & CStr(LCT) & "'" & vbCrLf & "select  @@ROWCOUNT as NB")

Dans visual basic je dois mettre le code dans Microsoft Excel Objets\feuil1 je suppose ?

**Thumb down** · 14/04/2022, 11h46

Bonjour et désolé

Code :

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

   If Trim("" & Cells(Target.Row, "F")) <> "" Then MajSql Cells(Target.Row, "F"), Trim(Target)

**Philippe ROHL** · 14/04/2022, 12h51

Ne vous excusez pas, c'est plutôt à moi de le faire !

Il doit encore y a avoir un petit problème, rien n'est écris dans la bdd ?

Voilà le code en entier que j'ai mis :

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
Function MajSql(LCT As String, Oper As String) As Boolean
Const User = "----", Base = "GPAO_V8_TEST", PassWord = "----", Server = "---------"
    Const adVarChar = 200, adInteger = 3
On Error GoTo fin
With CreateObject("ADODB.Command")
     .ActiveConnection = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
    .CommandType = 1
    .CommandText = "Update [LCTE] Set [VarAlphaUtil4]=@Oper Where [CodeLancement]=@LCT"
   .Parameters.Append CreateObject("ADODB.Command").CreateParameter("@Oper", adVarChar, 1, 50, Oper)
   .Parameters.Append CreateObject("ADODB.Command").CreateParameter("@LCT", adVarChar, 1, 50, LCT)
   .Execute
   MajSql = True
End With
fin:
On Error GoTo 0
End Function
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 7 Then
        If Trim("" & Cells(Target.Row, "F")) <> "" Then MajSql Cells(Target.Row, "F"), Trim(Target)
    End If
End If
End Sub

**Thumb down** · 13/04/2022, 18h34

Bonjour,
j'ai modifier la méthode pour quelle accepte du texte et j'ai fait un requête paramétrable!

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
Function MajSql(LCT As String, Oper As String) As Boolean
Const User = "*******", Base = "***********", PassWord = "********", Server = "************"
    Const adVarChar = 200, adInteger = 3
On Error GoTo fin
With CreateObject("ADODB.Command")
     .ActiveConnection = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
    .CommandType = 1
    .CommandText = "Update [LCTE] Set [VarAlphaUtil4]=@Oper Where [CodeLancement]=@LCT"
   .Parameters.Append CreateObject("ADODB.Command").CreateParameter("@Oper", adVarChar, 1, 50, Oper)
   .Parameters.Append CreateObject("ADODB.Command").CreateParameter("@LCT", adVarChar, 1, 50, LCT)
   .Execute
   MajSql = True
End With
fin:
On Error GoTo 0
End Function

**Philippe ROHL** · 14/04/2022, 08h07

Merci beaucoup, je vais tester ça dans la journée.

**Philippe ROHL** · 14/04/2022, 11h08

Alors j'ai testé mais je n'arrive pas a faire fonctionner le code sur un changement de valeur (change) dans la colonne "Oper".

Il manque peut-être un bout de code ?

Code :

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

1
2
3
4
5
6
7
'Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 7 Then
    If Trim("" & Cells(Target.Row, "F")) <> "" Then MajSql Cells(Target.Row, "F"), Val(Target)
    End If
End If
End Sub

**Thumb down** · 30/03/2022, 17h34

donc ça devrait ressembler à ça

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
Sub test()
  MsgBox MajSql("LCU47938", 3)
End Sub
 
 
Function MajSql(LCT As String, Statut As Integer) As Integer
Const User = "MyUser", Base = "MyBase", PassWord = "PassWord", Server = "MyServer"
    With CreateObject("AdoDb.connection")
        .Open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
        With .Execute("Update [LCTE] Set [VarNumUtil2]=" & Statut & " Where [CodeLancement]='" & CStr(LCT) & "'" & vbCrLf & "select  @@ROWCOUNT as NB")
            MajSql = !NB
            .Close
        End With
        .Close
    End With
End Function

**Philippe ROHL** · 31/03/2022, 10h42

Hello Thumb down, merci pour ce code.
Malheureusement, je ne le vois pas fonctionner. Quand je change une valeur dans la colonne K (Statut), il n'y a pas de changement dans la base test !

Il doit y avoir des dizaines de raison pour que ça ne fonctionne pas, la 1er c'est moi !

Petite question concernant la ligne ci-dessous : LCT est le nom de la colonne E ??

Code :

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

With .Execute("Update [LCTE] Set [VarNumUtil2]=" & Statut & " Where [CodeLancement]='" & CStr(LCT) & "'" & vbCrLf & "select  @@ROWCOUNT as NB")

**Thumb down** · 31/03/2022, 11h12

Bonjour,
Exécutes la SUB test et vérifis que LCU47938 soit bien passé à 3.

Ensuite tu pourras utiliser la méthode change de la feuille de calcul pour updater ta table.

**Philippe ROHL** · 31/03/2022, 11h36

Envoyé par Thumb down

Bonjour,
Exécutes la SUB test et vérifis que LCU47938 soit bien passé à 3.

Ensuite tu pourras utiliser la méthode change de la feuille de calcul pour updater ta table.

Oui le test fonctionne, la valeur change !

Que veut dire "Ensuite tu pourras utiliser la méthode change de la feuille de calcul pour updater ta table"?

**Thumb down** · 31/03/2022, 14h20

Bonjour,
ça veux dire que maintenant tu peux intégrer le code dans la feuille de calcule

Nom : Sans titre.png
Affichages : 169
Taille : 53,1 Ko

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 11 Then
    If Trim("" & Cells(Target.Row, "E")) <> "" Then MajSql  Cells(Target.Row, "E"), Val(Target)
   End If
End If
End Sub

**Philippe ROHL** · 31/03/2022, 15h25

Bon ben j'ai du me louper qlq part. Désolé

**Thumb down** · 31/03/2022, 16h14

Tu peux supprimer la ligne en jaune elle était là pour retourner le nombre d'enregistrements.

Je vais mettre en place une plateforme de test pour vérifier cette partie !

Ecrire de Excel vers SQL ?

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager