Discussion :

[Lenzo]

Bonjour,

Je dois coller les valeurs d'un champ mémo (qui peut contenir 65535 c) provenant d'access dans une cellule excel. Le problème, c'est que la cellule ne me prend que les 255 premiers caractères du champ.
Les spec d'excel disent pourtant : "Longueur du contenu des cellules (texte) 32 767 caractères. Affichage de 1 024 uniquement dans une cellule et 32 767 dans la barre de formule."

Comment faire alors pour prendre en compte ces 32767 c ???

Merci de votre aide car je vraiment bloqué...

[SfJ5Rpw8]

ben tu les colles comment ces valeurs..?

[ouskel'n'or]

Regarde à ici, tu auras des éléments de réponse. Ce n'est pas marqué résolu mais bon... J'ai testé la dernière solution et elle "a" fonctionné pour moi. Tu vois
A+

[ouskel'n'or]

Comme tes données viennent d'Access, (j'avais omis ce "détail") ne peux-tu tester "J'ajoute 255 caractères par 255 caractères à ma cellule", un truc du style

Code :

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

1
2
3
For i = int(Len(DonnéeAccess)/255)
       Cell(...) = Cell(...) + mid(DonnéeAccess,i*255,255)
Next

+ mid(DonnéeAccess,(i-1)*255,Len(DonnéeAccess) mod 255) pour la fin du texte
Juste une idée, tu ne sera pas surpris si je dis que je n'ai pas testé.
Tu peux commencer par faire un petit test dans Excel
A+

Tu dis si ça fonctionne... depuis le temps que ce pb n'est pas "officiellement"... Pièce jointe 9350

[Lenzo]

merci à vous pour vos réponses.

Pr répondre à bbil, c'est juste un copier-coller manuel du résultat d'une requête, dans excel. Et c'est là le problème, c'est qu'en faisant cette opération, je perds le reste de mon champ.... donc tout traitement ultérieur ne pourra pas récupérer les caractères perdus !

Y a-t'il une autre solution pour transférer le résultat d'une req vers excel, qui conserverait la valeur exacte (et entière !) du champ mémo ?

Merci

[ouskel'n'or]

La copie dans une cellule, en une seule fois, n'a pas "l'air" de fonctionner malgré les indications trouvées sur un site. As-tu essayé d'ajouter le texte bloc par bloc de 255 caractères à ta cellule ? Le test que j'ai effectué fonctionne d'un classeur à l'autre. On ne voit pas tout mais tout est bien présent dans la cellule.
A+

[SfJ5Rpw8]

ben tu peu acceder à la table directement en DAO ou ADO..., mais je sais pas pour l'histoire des 255 caractéres ...Fichiers et bases de données

[ouskel'n'or]

Mon test :

Code :

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

1
2
3
4
5
6
7
Sub AjouterDuTexteAUneCellule()
For i = 1 To Len(Workbooks("Classeur1").Sheets("Feuil1").Cells(1, 1).Value) Step 255
     Workbooks("Classeur2").Sheets("Feuil1").Cells(1, 1).Value = _
     Workbooks("Classeur2").Sheets("Feuil1").Cells(1, 1).Value & _
     Mid(Workbooks("Classeur1").Sheets("Feuil1").Cells(1, 1).Value, i, 255)
Next
End Sub

Le texte : Pièce jointe 9370
A+

Attention, ce code ne copie pas la fin du text et s'arrête au multiple de 255

[Lenzo]

Merci pour vos réponses.

Finalement, j'ai résolu mon problème d'une autre manière. Si ça peut servir à qq'un...
En fait, j'exporte le résultat de ma requête au format csv, en délimité et point virgule. Puis dans excel, j'ouvre ce fichier en délimité, point virgule et surtout, j'applique le format "texte" à ma colonne et là, j'ai bien mes données complètes allant jusqu'à 32 767 caractères.
Par contre, si je laisse le format standard, mes données sont tronquées.

Bon après, j'automatise ça dans une macro car j'ai d'autres traitements derrière...