Discussion :

[lagaffe34]

Bonjour à Tous,

Je vais essayer d'être concis....

J'ai besoin d'envoyer, à partir d'un formulaire, par mail, des tables access remises à jour, au format excel...dans les menus de macro existe la commande "envoyer Objet" dans laquelle on peut définir le format d'envoi "excel 97-2003"....

Tout fonctionne bien sauf que, dans le fichier Excel généré, mes champs "mémo" sont tronqués à 255 caracteres...Y'a t-il une solution sachant que quand je fais une exportation simple ( menu fichier exporter ) d'une table sous excel ça fonctionne...

D'avance merci

[batou22003]

Bonjour,

Oui, il y a une solution. C'est d'éclaterle champ mémo de ta table
en plusieurs champs. Pour savoir combien de champs, fais
une requete qui renvoie sur la colonne le Max(len(champMemo))

Et apres du fais NbChamps= Max(len(champMemo)) / 255

Tu obtiens le nb de nouveaux champs Texte de 255 caractères à créer dans ta table

Puis pour ton traitement tu fais des

Mid(Chaine,1,255) tant que tu peux faire des mod(255) ou tu boucle par
pas de 255 jusqu'à TailleMax du champ.

J'espère que j'ai aidé.

[ypicot]

Une idée comme ca : essaie de l'envoyer sous un autre format (csv), qui reste compatible excel et qui n'a peut-être pas cette limitation.

Attention, je n'ai pas testé (envie de dodo)

Yvan

[Sinclar]

Salut,
Dans la lignée de ce qui est proposé par batou22003, le code ci après est proposé par le support Microsoft pour résoudre ce pb de taille.

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
 
Function MemoSplitter(strReportName As String, _ 
  strFieldName As String, lngMemoLength As Long) 
 
  Dim NewControl As Control 
  Dim intLoopCount As Integer 
  For intLoopCount = 0 To lngMemoLength / 250 
 
     Set NewControl = CreateReportControl(strReportName, _ 
        acTextBox, acDetail) 
     NewControl.Name = intLoopCount & "MemoText" 
     NewControl.ControlSource = "=Mid([" & _ 
        strFieldName & "]," & 250 * intLoopCount + 1 _ 
        & ",250)" 
  Next intLoopCount 
 
End Function

Autre problème qui découle également de l'envoi de champs Memo, les retours à la ligne qui deviennent des petits carrés dans la cellule excel.
Ce code est une solution

Code :

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

1
2
3
 
 
CelluleExcel=Replace(CelluleExcel, Chr(13), "")