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 :
- Dim cn As New ADODB.Connection
- Dim ListeTable As New ADODB.Recordset
- cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
- cn.ConnectionString = "Data Source =C:\Donnees\MonfichierExcel.xls; Extended Properties=Excel 8.0;"
- cn.Open
- ListeTable.Open "select * From [Liste Flux$]", cn, adOpenForwardOnly
- While Not (ListeTable.EOF)
- Selection.Style = ActiveDocument.Styles("Titre 2" )
- Selection.TypeText ListeTable("Réf" )
- Selection.TypeParagraph
- Selection.Style = ActiveDocument.Styles("Normal" )
- Selection.TypeText ListeTable("Description" )
- Selection.TypeParagraph
- ListeTable.MoveNext
- Wend
|
Message édité par zeltron le 16-07-2004 à 09:07:46
