problème Fonction

[Invité]

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

 

[2passage]

Bonjour,

Sauf erreur de ma part, ta funtion process ne renvoit pas de valeur. Ajoute :

process = ResultADODB

avant le end function.

A+

 

[Invité]

Je te remercie de ta réponse, je crois que le problème à évolué, car en rajoutant process = ResultADODB, j'obtient une erreur : erreur d'execution 450 : Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Si quelqu'un à une idée pour résoudre le problème je le remercie d'avance.
donc la fonction à le code suivant :

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)
Process = ResultADODB
ADODB.Close
End Function

 

[2passage]

Bonjour


Deja y a peut etre un soucis là :

Process(Processus As String) As String
...
Dim ResultADODB As Object
...
Process = ResultADODB

un objet dans une chaine, ca passe ?

A+