Discussion :

[Philippe ROHL]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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

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]

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

[Thumb down]

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 !

[Philippe ROHL]

J'ai du supprimer le ".close" juste en-dessous aussi !?

Mais ça a l'air de fonctionner !

[Philippe ROHL]

Bonjour.

Si je souhaite dans la même feuille une 2ème valeur (Colonne i) avec la même clause WHERE, c'est possible ?

Question plus générale, comment empêcher un utilisateur d'accéder à VB ? (Mot de passe de la base entre autre)

Merci

[Pierre Fauconnier]

Salut.

Perso, je ferais des requêtes paramétrées. C'est plus sécurisant et plus facile à écrire qu'une concaténation de chaines.

Je passe par des procédures génériques inscrites dans un module dédié, histoire de ne pas réinventer la roue à chaque fois. J'inclus alors ce module dans tout projet nécessitant des interactions avec une base de données. Ça permet de standardiser le code et l'approche.

[Thumb down]

Bonjour tout le monde,
Je souscris complètement à l'analyse de Pierre.

[Pierre Fauconnier]

Et si j'ai la main sur le sql server, je n'hésite pas et je crée des procédures stockées, pour travailler toujours le plus en amont possible.

J'ai écrit des billets de blog pour modéliser les échanges entre Excel et Access ou SQL Server. Voici le premier billet: https://www.developpez.net/forums/bl...-generiques-1/, les autres sont cités de billet en billet.

Ca pourra peut-être aider.