Discussion :

[Jérôme5625]

Bonjour,
Je souhaite rajouter des enregistrements d'un classeur ouvert dans un classeur fermé.
voici mon code que j'ai trouvé mais qui ne fonctionne pas.
j'utilise VBA excel.
Merci de votre aide.

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
Sub enregistrement nouvelle donnee()
 
 
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    Dim laudit As Integer
 
    Dim NDocA4 As Integer
 
 
    laudit = 2
 
 'collecte des infos résultats audit dans feuille data
 NDocA4 = Feuil6.Cells(33, "a")
 
 
 
     'les données à inserer
 
    Fichier = "G:\toto.xls"
 
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";" & _
        "Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set Cd = New ADODB.Command
    Cd.ActiveConnection = Cn
    Feuil13.Activate
 
    'boucle while pour connaitre la ligne libre dans la feuil etat
    Do While Not IsEmpty(Feuil13.Cells(laudit, "a"))
    laudit = laudit + 1
    Loop
    Feuil13.Cells(laudit, "a") = NDocA4
 
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = "Donnée test"
    Rst.Update
 
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
 
 
 
End Sub

[mfoxy]

Bonjour,

Qu'est ce qui ne fonctionne pas dans le code ?
Message d'erreur ?

Pourriez-vous aussi utiliser les balises de rigueur pour "encadrer" votre code.

Bien souvent, la meilleur façon de "debuguer" un code est l'utilisation du mode pas à pas ( F8) et la console de debug pour les variables.

Bav,
MFoxy

[Jérôme5625]

Bonjour,
Merci pour ton retour, effectivement je n'ai pas été assez clair.

c'est bloqué sur le code : Dim Cn As ADODB.Connection avec un message erreur de compilation

Merci de votre aide.
bonne soirée

[mfoxy]

Re,

As tu bien ajouter la référence Microsoft ActiveX Data Objects x.x Library dans ton projet ?

[Jérôme5625]

Merci de l'information; maintenant je n'ai plus le message.
cependant mon code reste bloqué en erreur d'exécution '424' entre feuil13.activate et la boucle do while

Code :

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

1
2
3
4
5
 Feuil13.Activate
 
    'boucle while pour connaitre la ligne libre dans la feuil etat
    Do While Not IsEmpty(Feuil13.Cells(laudit, "a"))
    laudit = laudit + 1

votre avis, merci d'avance

[mfoxy]

Re,

Tu codes mal le nom de ta feuille selon moi.
Essaie plutôt

Code :

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

 Worksheets("Feuil13"). Activate

Attention Feuil13 doit respecter scrupuleusement le nom et la casse de l'onglet concerné.

Nb : Les . Activate, . Select, ne sont que très rarement nécessaire dans un code.