Discussion :

[nath-0-0]

hello...

lorsque j'execute ce code

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
 
Public Sub myTransferS(xlA As Excel.Application, xlW As Excel.Workbook, strName As String)
 
Dim t As DAO.Recordset
 
Set t = CurrentDb.OpenRecordset(strName)
ligne = 5
Do
    t.AddNew
    For colonne = 1 To 10
        t(colonne - 1) = xlW.Sheets(1).Cells(ligne, colonne)
    Next colonne
    t.Update
    ligne = ligne + 1
Loop
t.Close
 
 
End Sub

j'ai cette erreur:

Erreur automation l'objet invoqué s'est déconnecté de ses clients

Que veut dire exactementce text?

merci