Discussion :

[zoom61]

Bonjour,

Je suis sous Office 2007... il me semble avoir les bibliothèques nécessaires

J'ai le code suivant qui fonctionne les fichier "Orders" s'ouvre :

Code :

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

1
2
3
4
Dim NChemin As String, NFichier As String
NChemin = CurrentProject.Path
NFichier = "Orders.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,  "AR_CONSULT_CDE", NChemin & "\" & NFichier, True,  "SYNTHESE"

Par contre si je fais :

Code :

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

1
2
3
4
Dim NChemin As String, NFichier As String
NChemin = CurrentProject.Path
NFichier = "Orders.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "AR_CONSULT_CDE", NChemin & "\" & NFichier, True, "SYNTHESE"

ou

Code :

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

1
2
3
4
Dim NChemin As String, NFichier As String
NChemin = CurrentProject.Path
NFichier = "Orders.xlsx"
DoCmd.TransferSpreadsheet  acExport, acSpreadsheetTypeExcel12Xml, "AR_CONSULT_CDE", NChemin & "\"  & NFichier, True, "SYNTHESE"

Quand je veux ouvrir le fichier "Orders", j'ai un message :


Avez-vous une idée ?

[Jean-Philippe André]

Salut,

apparemment on arriverait sur un cas de figure avec une histoire de nombre de lignes limités dans les interactions Access/Excel

Première piste :

Code :

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

DoCmd.TransferSpreadsheet acExport, 10, "AR_CONSULT_CDE", NChemin & "\" & NFichier, True, "SYNTHESE"

Seconde piste, passer par un CopyFromRecordset

[zoom61]

apparemment on arriverait sur un cas de figure avec une histoire de nombre de lignes limités dans les interactions Access/Excel

Il n'y a que 377 lignes et 14 colonnes donc 5278 c'est pas élevé comme données

Première piste :

Code :

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

DoCmd.TransferSpreadsheet acExport, 10, "AR_CONSULT_CDE", NChemin & "\" & NFichier, True, "SYNTHESE"

J'ai toujours le message d'erreur