h_adil
Messages postés231Date d'inscriptionmercredi 27 avril 2005StatutMembreDernière intervention10 juin 2009
-
31 oct. 2007 à 18:17
JPGVB
Messages postés96Date d'inscriptionmardi 29 mars 2005StatutMembreDernière intervention10 mars 2011
-
31 oct. 2007 à 18:24
Bonjour,
j'ai un problème lorsque j'excute le code VBA ci dessous dans Excel.
lorsque j'excute ce code, j'ai un message d'erreur :
Erreur excution "3709"
the connection cannot be used to perform this operation. it is either closed or invalid in this context.
lorsque je click sur débogage, je trouve que le problème est dans la ligne en rouge ci dessous.
ce que je ne comprend pas, c'est lorsque j'utilise le meme code avant il marche bien, et juste après il marche pas c'est un peut bizard ??
merci pour votre aide
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\M2 MIL\Premier semestre\VRP\VRP.mdb;"
cnn.Open
Dim rstCurr As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT Count(*) As nb From Clients"
rstCurr.Open strSQL, cnn, adOpenStatic, adLockPessimistic
nbC = rstCurr![nb]
rstCurr.Close
cnn.Close
Dim nomCli() As String
Dim X() As Integer
Dim Y() As Integer
ReDim nomCli(nbC) As String
ReDim X(nbC) As Integer
ReDim Y(nbC) As Integer
JPGVB
Messages postés96Date d'inscriptionmardi 29 mars 2005StatutMembreDernière intervention10 mars 20112 31 oct. 2007 à 18:24
Bonjour,
dans le bloc ci-dessous tu fermes la connection cnn, tu ne peux donc plus l'utiliser dans ta deuxième requête. Supprime la ligne et tout devrait marcher .