Bonjour,
J'ai un classeur Excel avec deux feuilles. Sur la feuil2-cel B4, je saisis un numéro d'article
(alpha-numérique)
Un bouton qui lance une macro quand on clique dessus.
Cette macro lance une requête sur une base sql et ramène les données sur toutes les commandes
concernant le code article saisi en Feuil2-cel B4 (ex : 09200)
La valeur saisie, je la passe en variable dans la macro, quand je clique sur le bouton pour lancer
la macro, aucune donnée n'est ramenée et aucun message d'erreur.
Si je mets le code article 'en dur' dans la requête, la j'ai les informations qui sont importées
correctement de la base sql.
OS : Win2K + SqlServer 2K
Qui peut m'aider ??
Ma macro :
-------------------------------------------
Sub Macro1()
Dim env As rdoEnvironment
Dim valcel As String
valcel = Excel.Range("Feuil2!B4" ).Value
Dim cnBat As ADODB.Connection
Set cnBat = New ADODB.Connection
Dim strConn As String
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=curie;UID=sa;PWD=holdup;DATABASE=spca_prod"
cnBat.Open strConn
'------------------
Dim rsBat As ADODB.Recordset
Set rsBat = New ADODB.Recordset
With rsBat
.ActiveConnection = cnBat
.Open "select codeart,numcde,totht
from cdes
where codeart=' & valcel'"
Feuil1.Range("A2" ).CopyFromRecordset rsBat
.Close
End With
cnBat.Close
Set rsBat = Nothing
Set cnBat = Nothing
End Sub
'-------------------------------
Merci à vous....