requete dans fichier excel ne ramène que les chiffres

néoback

XLDnaute Nouveau
bonjour,

j'ai un petit souci je lance une requete vers un classeur excel pour recupérer des données mais le texte ne passe pas seul les chiffres sont récupérés.

voici le code

Dim Source As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim ADOCommand As ADODB.Command
Dim Fichier As String, Cellule As String, Feuille As String

'Adresse de la cellule contenant la donnée à récupérer
Cellule = "C1:C200"

Feuille = "Commande$"

Set Source = New ADODB.Connection
Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & chemin & ";Extended Properties=""Excel 8.0;HDR=No;"";"

Set ADOCommand = New ADODB.Command
With ADOCommand
.ActiveConnection = Source
.CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
End With

Set Rst = New ADODB.Recordset
Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
Range("F:F").CopyFromRecordset Rst
Rst.Close
Source.Close
Set Source = Nothing
Set Rst = Nothing
Set ADOCommand = Nothing


merci par avance
Crdt
 
C

Compte Supprimé 979

Guest
Re : requete dans fichier excel ne ramène que les chiffres

Salut Néoback,

Après quelques petites recherches et quelques petits tests ....
Je pense avoir trouvé
yaisse2.gif


Le problème se situe au niveau de cette ligne :
Code:
Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Chemin & ";Extended Properties=""Excel 8.0;HDR=No;[B][COLOR=blue]IMEX=1[/COLOR][/B];"""
Il faut penser à rajoute à la fin IMEX=1

Et là, ça mmmmaaaarrrche :D

Un super article écrit par notre ami MichelXLD, heeuuuu SilkyRoad
Lire et écrire dans les classeurs Excel fermés - Club d'entraide des développeurs francophones

A+
 
Dernière modification par un modérateur:

Discussions similaires

Statistiques des forums

Discussions
312 927
Messages
2 093 687
Membres
105 782
dernier inscrit
obelix76