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

[Pitou5464]

peut etre parce que tu n'as pas créer l'objet avant

Code :

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

1
2
3
Dim xl as Excel.application
Set objExcel = CreateObject("excel.application")
Set objWorkBook = objExcel.Workbooks.Add

je pense que tu dois définir tes objets d'abord.

[nath-0-0]

en fait ils sont deja definis dans une autre procédure qui appelle celle ci

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
Dim MonExcel As Excel.Application, ExlWb As Excel.Workbook
Dim Db As Database
Dim strDir As String
Dim strFileName As String
Dim bytPosRev As Byte


bytPosRev = InStrRev(stDocName, "\")
strDir = Left(stDocName, bytPosRev)
strFileName = Right(stDocName, Len(stDocName) - bytPosRev)

DoCmd.SetWarnings False


Set Db = CurrentDb

'Ouvre excel
Set MonExcel = New Excel.Application
'Désactive les message d'alerte Excel
    MonExcel.DisplayAlerts = False
'Ouvre le fichier source qui contient les caractères "." a modifier
Set ExlWb = MonExcel.Workbooks.Open(Filename:=strDir & strFileName)

...

myTransferS MonExcel, ExlWb, "importExcel"

[Muhad'hib]

Salut,

Et si tu passe ton classeur par référence et pas par valeur, cela donne quoi ?
(en plus xlA ne te set à rien dans ta fonction)

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(ByRef 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

A+