Problème de récupération Excel avec un recordset ADO

Problème de récupération Excel avec un recordset ADO - VB/VBA/VBS - Programmation

Marsh Posté le 16-07-2004 à 09:03:36    

Bonjour,
 
J'essaie désespérement de récupérer des valeurs textes d'un fichier Excel à l'aide d'un recordset ADO pour créer un état de mon fichier Excel dans Word.  
 
Celà semble fonctionner correctement pour des cellules avec peu de texte ( à la louche un soixantaine de caractères). Cependant si la taille du texte est plus grande alors la valeur récupérée dans le recordset ne correspond plus à ce que j'ai dans ma cellule Excel excepté pour les premiers caractères mais la fin du texte récupéré est constitué de caractères non-imprimables comme lorsque l'on ouvre un fichier Excel dans le notepad.  
 
Quelqu'un a-t-il une solution ?  
 
Je pose le code de la Macro Word à tout hasard car je suis loin de maîtriser VB:

Code :
  1. Dim cn As New ADODB.Connection
  2. Dim ListeTable As New ADODB.Recordset
  3. cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
  4. cn.ConnectionString = "Data Source =C:\Donnees\MonfichierExcel.xls; Extended Properties=Excel 8.0;"
  5. cn.Open
  6. ListeTable.Open "select * From [Liste Flux$]", cn, adOpenForwardOnly
  7. While Not (ListeTable.EOF)
  8.         Selection.Style = ActiveDocument.Styles("Titre 2" )
  9.         Selection.TypeText ListeTable("Réf" )
  10.         Selection.TypeParagraph
  11.         Selection.Style = ActiveDocument.Styles("Normal" )
  12.         Selection.TypeText ListeTable("Description" )
  13.         Selection.TypeParagraph
  14.         ListeTable.MoveNext
  15. Wend


Message édité par zeltron le 16-07-2004 à 09:07:46
Reply

Marsh Posté le 16-07-2004 à 09:03:36   

Reply

Marsh Posté le 20-07-2004 à 10:14:07    

je ne sais pas, mais je pense qu'un champ ne peut comporter un grand nombre de caractères, 255 (donc type byte) d'après access.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed