Bonjour,

Je débute sous vba excel. Je cherche à passer un paramètre à une procédure et à récupérer la valeur de la procédure appelé dans une zone de saisie.

VBA ne reconnaît pas la procédure appelée.

Voici ce que j'ai codé :

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
25
26
27
28
29
30
 
Sub C_ref1_Change()
 
       des_art1.Value = recherche_des_art(C_ref1.Value)
 
       qte1.SetFocus
 
End Sub
 
Sub recherche_des_art(texte As String)
 
       Dim conn As New ADODB.Connection
       Dim connString   
 
       Dim rsRecords As New ADODB.Recordset
 
       connString = "DSN=AAA;Uid=AAA01;Pwd=ABCD"
       conn.Open connString
 
       rsRecords.CursorLocation = adUseServer
 
       ' Recherche de la désignation associée
       Set rsRecords = conn.Execute("select designation from t_article where reference = '" & C_ref1.Value & "'")
       If Not rsRecords.EOF Then
          rech_des_art = rsRecords.Fields("designation").Value
       Else
          rech_des_art = ""
       End If
 
End Sub