Bonjour,
J'ai créé un bout de code en utilisant la technique d'automation Access vers Excel. Tout va très bien. Je me heurte à un problème de taille (sans jeu de mot...)
Lorsque je boucle sur ma table Access et que j'insère une valeur chaine de caractère (très longue en taille > 1000 car.) dans un tableau Excel, j'ai l'erreur 7: Mémoire insuffisante.
En fait, j ai essayé de copier à la "mano", le texte de l'enregistrement dans excel: Excel me dit "Formule trop longue"
Pourtant, quand je saisais du texte dasn Excel, je ne suis pas limité. J'ai réussi à saisir autant de caractères que ma chaine de la table Access.
Voici mon code:
Pouvez vous m aider, je bloque.
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 Dim xlApp As Excel.Application Dim xlw As Excel.Workbook 'On créée l'objet Excel Set xlApp = CreateObject("Excel.Application") Set xlw = xlApp.Workbooks.Open(RepertoireSauvegarde) 'Boucle For i = 1 To nbrecords 'C'est ici que le problème se pos epour les longues chaines de car. xlApp.Cells(iFirstcell + i, 1) = rs("ChampAExporter") rs.MoveNext Next i 'On ferme et on libère rs.close set rs=nothing
Merci
Jimmy
Partager