Discussion :

[sl1980]

Je débute en VBA et je galère avec le code ci-dessous.

Le message d'erreur :
"Variable objet ou variable de bloc With non définie" (erreur excécution 91)

Il s'arrête sur le passage en gras.

C'est sûrement bête comme chou mais j'avoue que je commence à faiblir à force d'avoir toujours des beugs.. Pouvez vous jeter un d'oeil sur le code et me dire ce qui cloche? Merci. SL

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
Sub majmp()
    Dim cnx As ADODB.Connection
    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String
    Dim PathMyApplication As String
    Dim un_champ As ADODB.Field
    Dim intNoCol As Integer
    Dim intNoLigne As Integer
    Dim i1 As String
    Dim i2 As String
    Dim codeprojet As ADODB.Field
    Dim iL As Integer
    
    'déclaration d'un objet connection
    Set rsData = New ADODB.Recordset
    
    'instanciation de l'object cnaccess
    Set cnx = New ADODB.Connection
    
    'valorisation de la propriété connectionstring
    PathMyApplication = "G:\Gestion" & "\"
    ' Créer la chaine de connexion
     szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source= " & PathMyApplication & "SIAL.mdb;"
    
   'garniture du rs 
    rsData.Open "MajorProjectsLV", szConnect, adOpenDynamic, adLockOptimistic, adCmdStoredProc

     'garniture des données

 i2 = 1
rsData.MoveFirst
codeprojet = rsData.Fields("Code project")

Do While Not rsData.EOF
For Each codeprojet In rsData.Fields
If codeprojet = Worksheets("TEST2").Cells(i2, 1).Value Then
Worksheets("TEST2").Cells(i2, 2).Value = rsData.Fields("code Project")
Worksheets("TEST2").Cells(i2, 3).Value = rsData.Fields("last gate")

Else
iL = Cells(65535, 1).End(xlUp).Offset(1).Row
Worksheets("TEST2").Cells(iL, 1).Value = rsData.Fields("code projet").Value

i2 = i2 + 1
End If
Next codeprojet

rsData.MoveNext
Loop

          
    'ouverture de la connexion avec la base access
    
    MsgBox "Les données ont été mises à jour selon la requête Access..."
        
End Sub

[ouskel'n'or]

Mets cette ligne en remarque, "il me semble" qu'elle est inutile (?!?)

codeprojet = rsData.Fields("Code project")

Tu dis
A+

[sl1980]

Merci de ta réponse.

Alors effectivement la ligne à l'air inutile car il trouve bien mon code projet (mais du coup il doit parcourir tous les champs de ma requête Access, ce qui est peut être un peu lourd, au lieu de parcourir seulement les enregistrements sur le champs "code projet"??).

Par contre j'ai une erreur inquiétante "dépassement de capacité" (erreur 6) sur

Code :

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

iL = Cells(65535, 1).End(xlUp).Offset(1).Row

qui doit me permettre de me possitionner à la fin de mon tableau Excel (sur la première ligne vide pour ajouter une ligne de données _ Je cherche en fait à ajouter une ligne à la fin du tableau, soit en faisant une insertion soit en me positionnant sur la cellule de la ligne déjà existante selon ce qui est faisable). Tu sais comment je peux faire / résoudre cette erreur là?

Merci. SL

[ouskel'n'or]

Non, je ne comprends pas, 65536 étant bien une ligne valide.
Par contre, il est possible que tu aies une erreur de syntaxe

Code :

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

iL = Cells(65535, 1).End(xlUp).Row +1

Teste ça (???)
A+

[sl1980]

En mettant ton code j'ai exactement le même message d'erreur.

J'ai déjà vu ce message mais il faudrait que je fasse une recherche pour me souvenir quel était le problème. J'avais trouver des éléments de réponse sur les forums Access je crois.

Si quelqu'un a la solution et peux nous éclairer, ça serait cooool!!!

Merci en tout cas,

SL

[AlainTech]

Quelle version d'Excel?

Excel 97 ne peut gérer que 32767 lignes.

[sl1980]

Version 2003
J'ai trouvé la réponse là:
http://www.developpez.net/forums/sho...ent+capacit%E9

En fait l'erreur venait de "integer" j'ai mis "string" à la place.

Je n'ai peut-être pas assurer d'ailleurs parce que il ne m'ajoute pas du tout de ligne supplémentaire à la fin du tableau.

Quelqu'un à la formule magique pour lui dire "mets toi sur la première ligne vide du tableau" ou encore "ajoute une ligne à la fin du tableau et restes y"??

[AlainTech]

En fait l'erreur venait de "integer" j'ai mis "string" à la place.

Et si tu essayais Long?

[sl1980]

sauf qu'il me met les données à la toute fin du fichier... et non après la dernière ligne du tableau.

[sl1980]

C'est bon c'est parce que j'avais des données qui s'étaient perdu dans la feuille excel... Il me mettait donc les données access à la suite.

C'est pas encore parfais mais j'avance...

Merci à vous

[ouskel'n'or]

Ben mon yieux ! Y'a des jours comme ça... Et qu'en plus y dit même pas que c'est résolu quand c'est résolu...

Alors tu le mets ce ?

Quelle journée !

Sans rancune
A la prochaine !