I
Invité
Guest
Bonjour tout le monde!
Voila je doit ecrire une macro Excel qui récupère un numéro associé à un nom (dans une base mysql). J'ai donc écrit une fonction avec la requète (la requète fonctionne bien).
Le problème est que queleque soit le texte dans la case selectionné, en sortie il n'y a rien dans la case!!
Merci d'avance
Voici le code :
Function Process(Processus As String) As String
'Fonction permettant de récupérer le numéro de processus à partir du nom
Dim ADODB As Object
Dim QueryADODB As String
Dim ResultADODB As Object
Set ADODB = CreateObject('ADODB.Connection')
ADODB.Open 'Jobin'
QueryADODB = 'SELECT num_maison.Num_Maison FROM num_maison Where Libelle=''' + Processus + ''';'
Set ResultADODB = ADODB.Execute(QueryADODB)
ADODB.Close
End Function
Sub Poll()
'Déclarations
Dim Processus As String
Dim Num_Processus As String
Processus = Range('B1').Value
Num_Processus = Process(Processus)
Range('C1').Value = Num_Processus
End Sub
Voila je doit ecrire une macro Excel qui récupère un numéro associé à un nom (dans une base mysql). J'ai donc écrit une fonction avec la requète (la requète fonctionne bien).
Le problème est que queleque soit le texte dans la case selectionné, en sortie il n'y a rien dans la case!!
Merci d'avance
Voici le code :
Function Process(Processus As String) As String
'Fonction permettant de récupérer le numéro de processus à partir du nom
Dim ADODB As Object
Dim QueryADODB As String
Dim ResultADODB As Object
Set ADODB = CreateObject('ADODB.Connection')
ADODB.Open 'Jobin'
QueryADODB = 'SELECT num_maison.Num_Maison FROM num_maison Where Libelle=''' + Processus + ''';'
Set ResultADODB = ADODB.Execute(QueryADODB)
ADODB.Close
End Function
Sub Poll()
'Déclarations
Dim Processus As String
Dim Num_Processus As String
Processus = Range('B1').Value
Num_Processus = Process(Processus)
Range('C1').Value = Num_Processus
End Sub