Problème vba excel

**nadeson** · 03/05/2012, 16h49

Bonjour à tous,
j'ai fait un programme sous vba excel qui permet d'afficher un certains nombre d'info venant de base de donnée sql server.Pour cela j'ai établi une connectionn vers sql server et j'ai aussi fait la requete sql me permettant d'afficher les informations dont j'ai besoin en changeant un num de serie sur une case excel dans j'ai moi meme spécifié l'emplacement. vOILA MON PROGRAMME

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
'D'abord pour accéder à une base de donnée SQL Server, il faut se connecter à cette source de donnée
'Utiliser un recordset pour accéder aux données
'Le recordset est l'objet qui parcourt le résultat d'une requête SQL
'Ajouter les références requises pour pouvoir déclarer l'objet de connection: Microsft DAO 3.6 Object Library et Microsoft Data Object 2.8 Library
 
Sub FP56_5G2()
 
Dim cN As ADODB.Connection 'Declarer l'objet de connexion
Dim rs As ADODB.Recordset 'Declarer le recordset
Dim Z As Integer
Dim SerialNumber As Integer 'numéro de série appareil
 
Worksheets("FP56").Range("A9").CurrentRegion.Borders.LineStyle = xlNone 'efface bordures
Worksheets("FP56").Range("A10:N50").ClearContents 'efface données
Worksheets("FP56").Range("E10:E50").FormatConditions.Delete 'efface format conditionnel
Worksheets("FP56").Range("I10:I50").FormatConditions.Delete
Worksheets("FP56").Range("I10:I50").Font.ColorIndex = xlColorIndexAutomatic
Worksheets("FP56").Range("E10:E50").Font.ColorIndex = xlColorIndexAutomatic
Worksheets("FP56").Range("A9").CurrentRegion.Font.ColorIndex = xlColorIndexAutomatic 'efface la couleur du texte
 
    Set cN = New ADODB.Connection 'Instnacier l'objet de connexion
    Set rs = New ADODB.Recordset 'Instancier l'objet de connection
    dbPath = Path
'Définir une connexion string(chaine de connection) et l'affecter à la connexion
'Cette chaine doit renseigner sur le provider( fournisseur de BDD ou SGBD), le nom de la BDD et les paramètres de Login et mot de passe(optionnels)
 
SerialNumber = Worksheets("FP56").Range("C4").Value
Application.ScreenUpdating = False
Z = 10
 
 'connection à la base de données
    cN.ConnectionString = "Provider=SQLOLEDB;Data Source=VERPACWS016\ENTERPRISE;Initial Catalog=enterprise; User ID=sa;Password=Alpha2000;"
    cN.Open 'Ouvrir la connexion en utilisant l'objet de connexion instancié et la connection string
 
'Selection des enregistrements en fonction du numéro de série de l'appareil et de l'échantillon
rs.Open "select T.[Sample Name],T.[Start Time], T.Method, T.[Instrument Serial],RD.xValue " _
      & "from  dbo.tempresultsgrid_950ece74eeff4749bf7c08b8d3632653 as T " _
      & "inner join dbo.ResultData as RD on T.result_id=RD.result_id " _
      & "inner join dbo.Result as R on R.result_id= T.result_id " _
      & "inner join dbo.xVariable as V on RD.variable_id=V.variable_id " _
      & "inner join dbo.Instrument as I on R.instrument_id=I.instrument_id " _
      & "where V.identifier in('FP56_EFP1Flash') " _
      & "and I.instrumenttype_id = cast('73354290-e09a-4c17-aa26-43a4b579e1db'as uniqueidentifier) " _
      & " and T.[Sample Name]='P-XYLENE' " _
      & " and T.[Instrument Serial]=" & SerialNumber & " order by T.[Start Time] DESC", cN, adOpenKeyset, adLockOptimistic
 
    If Not rs.EOF Then
        While Not rs.EOF
            Worksheets("FP56").Cells(Z, 1).Value = rs.Fields("Sample Name").Value
            Worksheets("FP56").Cells(Z, 2).Value = rs.Fields("xValue").Value
            Worksheets("FP56").Cells(Z, 3).Value = rs.Fields("Start Time").Value
            Worksheets("FP56").Cells(Z, 4).Value = rs.Fields("Method").Value
            rs.MoveNext
            Z = Z + 1
        Wend
    End If
rs.Close
cN.Close
Set rs = Nothing
Set cN = Nothing
 
'Selection des enregistrements en fonction du numéro de série de l'appareil et de l'echantillon
Z = 23
cN.Open
rs.Open "select T.[Sample Name],T.[Start Time], T.Method, T.[Instrument Serial],RD.xValue " _
      & "from  dbo.tempresultsgrid_950ece74eeff4749bf7c08b8d3632653 as T " _
      & "inner join dbo.ResultData as RD on T.result_id=RD.result_id " _
      & "inner join dbo.Result as R on R.result_id= T.result_id " _
      & "inner join dbo.xVariable as V on RD.variable_id=V.variable_id " _
      & "inner join dbo.Instrument as I on R.instrument_id=I.instrument_id " _
      & "where V.identifier in('FP56_EFP1Flash') " _
      & "and I.instrumenttype_id = cast('73354290-e09a-4c17-aa26-43a4b579e1db'as uniqueidentifier) " _
      & " and T.[Sample Name]='CRM 256-51' " _
      & " and T.[Instrument Serial]=" & SerialNumber & " order by T.[Start Time] DESC", cN, adOpenKeyset, adLockOptimistic
 
    If Not rs.EOF Then
        While Not rs.EOF
            Worksheets("FP56").Cells(Z, 1).Value = rs.Fields("Sample Name").Value
            Worksheets("FP56").Cells(Z, 2).Value = rs.Fields("xValue").Value
            Worksheets("FP56").Cells(Z, 3).Value = rs.Fields("Start Time").Value
            Worksheets("FP56").Cells(Z, 4).Value = rs.Fields("Method").Value
            rs.MoveNext
            Z = Z + 1
        Wend
    End If
rs.Close
cN.Close
Set rs = Nothing
Set cN = Nothing
 
 
End Sub

Quand je compile il y'a une erreur venant apparemment du 2eme cN.Open mais je ne vois pas tro pourquoi et comment y remédier. Voila le message d'erreur

Erreur d'exécution '91'
Variable objet ou variable de bloc With non définie

Merci d'avance pour vos réponses

**Jean-Philippe André** · 03/05/2012, 17h02

hello,

tu attribues à la ligne 60 de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set cN = Nothing

Aussi si tu veux "réouvrir" une connexion, il faut reconstruire son tout

2 possibilités donc :
- soit tu ne mets pas la variable à Nothing
- soit tu repeuples les données nécessaires à une nouvelle ouverture

**nadeson** · 04/05/2012, 09h08

Merci pour ta réponse jpcheck mais j'ai enlevé la ligne 60 de mon code donc ma variable n'est plus à Nothing et je n'arrive toujours pas à réouvrir une nouvelle connexion.Il y'a la même erreur et qu'est ce que tu veux dire par repeuplé les données necessaire à une nouvelle ouverture

**Jean-Philippe André** · 04/05/2012, 09h43

Là où DAO laissait plus de marge de manoeuvre, ADODB impose une création des variables avec un New la plupart du temps :
un peu de lecture à ce sujet http://ledzeppii.developpez.com/fonctionnalite-rs-ado/

**nadeson** · 04/05/2012, 11h00

J'ai lu le lien que tu a posté jpcheck mais je ne vois toujours pas comment remédier au pb.Tu ne peux pas simplement me dire ce que je dois ajouter ou enlever de mon programme pour qu'il n'y ait plus cet erreur stp?je desespere vraiment la

**Jean-Philippe André** · 04/05/2012, 11h12

Si fermer la connexion pose problème, laisse la ouverte

les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cN.Close
Set cN = Nothing

pouvant passer à la trappe en milieu de code

**nadeson** · 04/05/2012, 11h21

Sa ne marche pas, toujours la meme erreur

**Jean-Philippe André** · 04/05/2012, 11h33

Quel est ton code actuel ?

Si tu ne fermes pas la connexion, inutile de faire un cN.Open à nouveau

**nadeson** · 04/05/2012, 11h48

Si j'ai bien compris c'est bien sa que je dois faire

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
'D'abord pour accéder à une base de donnée SQL Server, il faut se connecter à cette source de donnée
'Utiliser un recordset pour accéder aux données
'Le recordset est l'objet qui parcourt le résultat d'une requête SQL
'Ajouter les références requises pour pouvoir déclarer l'objet de connection: Microsft DAO 3.6 Object Library et Microsoft Data Object 2.8 Library
 
Sub FP56_5G2()
 
Dim cN As ADODB.Connection 'Declarer l'objet de connexion
Dim rs As ADODB.Recordset 'Declarer le recordset
Dim Z As Integer
Dim SerialNumber As Integer 'numéro de série appareil
 
Worksheets("FP56").Range("A9").CurrentRegion.Borders.LineStyle = xlNone 'efface bordures
Worksheets("FP56").Range("A10:N50").ClearContents 'efface données
Worksheets("FP56").Range("E10:E50").FormatConditions.Delete 'efface format conditionnel
Worksheets("FP56").Range("I10:I50").FormatConditions.Delete
Worksheets("FP56").Range("I10:I50").Font.ColorIndex = xlColorIndexAutomatic
Worksheets("FP56").Range("E10:E50").Font.ColorIndex = xlColorIndexAutomatic
Worksheets("FP56").Range("A9").CurrentRegion.Font.ColorIndex = xlColorIndexAutomatic 'efface la couleur du texte
 
    Set cN = New ADODB.Connection 'Instnacier l'objet de connexion
    Set rs = New ADODB.Recordset 'Instancier l'objet de connection
    dbPath = Path
'Définir une connexion string(chaine de connection) et l'affecter à la connexion
'Cette chaine doit renseigner sur le provider( fournisseur de BDD ou SGBD), le nom de la BDD et les paramètres de Login et mot de passe(optionnels)
 
SerialNumber = Worksheets("FP56").Range("C4").Value
Application.ScreenUpdating = False
Z = 10
 
 'connection à la base de données
    cN.ConnectionString = "Provider=SQLOLEDB;Data Source=VERPACWS016\ENTERPRISE;Initial Catalog=enterprise; User ID=sa;Password=Alpha2000;"
    cN.Open 'Ouvrir la connexion en utilisant l'objet de connexion instancié et la connection string
 
'Selection des enregistrements en fonction du numéro de série de l'appareil et de l'échantillon
rs.Open "select T.[Sample Name],T.[Start Time], T.Method, T.[Instrument Serial],RD.xValue " _
      & "from  dbo.tempresultsgrid_52ea9d0214714ca58adddcfb8587b1ef as T " _
      & "inner join dbo.ResultData as RD on T.result_id=RD.result_id " _
      & "inner join dbo.Result as R on R.result_id= T.result_id " _
      & "inner join dbo.xVariable as V on RD.variable_id=V.variable_id " _
      & "inner join dbo.Instrument as I on R.instrument_id=I.instrument_id " _
      & "where V.identifier in('FP56_EFP1Flash') " _
      & "and I.instrumenttype_id = cast('73354290-e09a-4c17-aa26-43a4b579e1db'as uniqueidentifier) " _
      & " and T.[Sample Name]='P-XYLENE' " _
      & " and T.[Instrument Serial]=" & SerialNumber & " order by T.[Start Time] DESC", cN, adOpenKeyset, adLockOptimistic
 
    If Not rs.EOF Then
        While Not rs.EOF
            Worksheets("FP56").Cells(Z, 1).Value = rs.Fields("Sample Name").Value
            Worksheets("FP56").Cells(Z, 2).Value = rs.Fields("xValue").Value
            Worksheets("FP56").Cells(Z, 3).Value = rs.Fields("Start Time").Value
            Worksheets("FP56").Cells(Z, 4).Value = rs.Fields("Method").Value
            rs.MoveNext
            Z = Z + 1
        Wend
    End If
 
'Selection des enregistrements en fonction du numéro de série de l'appareil et de l'échantillon
Z = 23
rs.Open "select T.[Sample Name],T.[Start Time], T.Method, T.[Instrument Serial],RD.xValue " _
      & "from  dbo.tempresultsgrid_52ea9d0214714ca58adddcfb8587b1ef as T " _
      & "inner join dbo.ResultData as RD on T.result_id=RD.result_id " _
      & "inner join dbo.Result as R on R.result_id= T.result_id " _
      & "inner join dbo.xVariable as V on RD.variable_id=V.variable_id " _
      & "inner join dbo.Instrument as I on R.instrument_id=I.instrument_id " _
      & "where V.identifier in('FP56_EFP1Flash') " _
      & "and I.instrumenttype_id = cast('73354290-e09a-4c17-aa26-43a4b579e1db'as uniqueidentifier) " _
      & " and T.[Sample Name]='CRM 256-51' " _
      & " and T.[Instrument Serial]=" & SerialNumber & " order by T.[Start Time] DESC", cN, adOpenKeyset, adLockOptimistic
 
    If Not rs.EOF Then
        While Not rs.EOF
            Worksheets("FP56").Cells(Z, 1).Value = rs.Fields("Sample Name").Value
            Worksheets("FP56").Cells(Z, 2).Value = rs.Fields("xValue").Value
            Worksheets("FP56").Cells(Z, 3).Value = rs.Fields("Start Time").Value
            Worksheets("FP56").Cells(Z, 4).Value = rs.Fields("Method").Value
            rs.MoveNext
            Z = Z + 1
        Wend
    End If
 
 
 
End Sub

Apparemment je suppose que le pb vient du 2ème rs.Open.....

**Jean-Philippe André** · 04/05/2012, 13h10

effectivement, autant la connexion peut etre gardée ouverte, autant le recordset doit être clos puis réouvert

**nadeson** · 04/05/2012, 13h59

Laisse tomber jpcheck j'ai finalement trouvé la solution.T'avais raison.En fait quand je compilais je click toujours sur debugg du coup meme quand j'effectuais des changements cela ne changeait rien.C'est con comme truc mais falliat y penser.En tout cas merci
A+

Problème vba excel

Macros et VBA Excel

Discussions similaires

Partager

Partager