Discussion :

[atk_49]

Bonjour,

J'utilise les Recordset ADO pour transférer des données texte d'un fichier excel à un autre.

A la suite du transfert, le résultat obtenu dans le tableau de destination a été limité à 255 caractères.

Auriez-vous une solution pour éviter cela ?

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
Sub Test()
Dim Fichier As String
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
Fichier = "C:\temp\Test.xlsm"
cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;Readonly=False;"""
cnx.Open
 
Set rst = cnx.Execute("SELECT * FROM [Feuil1$U1:U500]")
ThisWorkbook.Sheets(1).Range("U1").CopyFromRecordset rst
rst.Close
 
cnx.Close
End Sub

Merci et bonne journée

[Thumb down]

Bonsoir,
Comme tu t'en doute Excel n'est pas une SGBD et ne dispose pas de typage de champs.

C'est donc Ado qui s'y colle par apprentissage. Pour cela il faut au-moins une valeur de 256 caractères dans les 8 premières lignes mais très souvent c'est 3!

[atk_49]

Merci pour cette info, je comprends mieux le problème maintenant

Existe-il malgré tout une solution pour forcer le type de données ? (Dans la requête ou autre ?)

[atk_49]

Je pense que c'est mort : https://silkyroad.developpez.com/VBA...ursFermes/#LII



Je vais devoir "polluer" ma première donnée pour forcer ADO à détecter le bon format...

[mercatog]

Ajoute MAXSCANROWS=1 à la chaîne de connexion pour ne polluer que d'une seule ligne.