Discussion :

[le_niak]

Bonjour,

Lors d'un export d'Access vers Excel lorsque mon champs contient beaucoup d'information j'ai l'erreur suivante : Erreur d'exécution '1004', Erreur définie par l'application ou par l'objet.

Ce que je ne comprends pas si je copie les caractéres du champs de ma BD, je peux les coller dans la cellule excel sans avoir cette erreur. C'est juste en automatisant cette copie que l'erreur survient.

Voici mon 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
20
21
22
23
24
25
26
27
 
Public Function ExportFundDetail()
 
 'ouverture fichier excel existant
Set Appexcel = CreateObject("Excel.Application")
Appexcel.Visible = True
Set Wbexcel = Appexcel.Workbooks.Open("F:\Transit\Gffunds\Hedge\BaseDEdonnées\Report\DetailledReports\Funds_Global.xls")
Appexcel.Sheets("Template").Select
 
'Dernier ManagerReport
SQLFund3 = "SELECT TOP 1 ManagerReport.* FROM ManagerReport WHERE ID_fund=" & IDFundExcel & " ORDER by Date DESC;"
Set rs3 = CurrentDb.OpenRecordset(SQLFund3)
While Not rs3.EOF
    Appexcel.Cells(153, 13).Value = rs3(1)
    Appexcel.Cells(156, 2).Value = rs3(6)
    Appexcel.Cells(163, 2).Value = rs3(11)
 
    Appexcel.Cells(170, 2).Value = rs3(7)
    Appexcel.Cells(177, 2).Value = rs3(9)
    Appexcel.Cells(186, 2).Value = rs3(10)
    Appexcel.Cells(195, 2).Value = rs3(8)
    Appexcel.Cells(214, 2).Value = rs3(12)
    rs3.MoveNext
Wend
Set rs3 = Nothing
 
End Function

Merci pour votre future aide.
Les champs de la BD sont en type Mémo.

[talrashha]

Salut,

Vérifie juste un petit truc :
remplace toutes tes occurences de rq(i) par mid(rq(i), 1, 254), juste pour voir...