Excel (long. données dans cellule) vers ASP

[Australia]

Bonjour tout le monde,
les mystères d'excel sont de nouveau contre moi

je cherche à importer des données d'un fichier excel vers une base access en asp VB,
j'ai pas trop de problème à faire ca tant que mes données sont d'une longueur raisonnable,
quand une cellule excel possède plus de 1000 caractères,
je n'arrive plus à rapatrier les données de cette cellule ???

Comment faire

Merci d'avance
j'espère avoir été clair

[Immobilis]

Salut,

Tu veux les afficher simplement ou les insérer dans une base?

A+

[Australia]

je veux pouvoir les récupérer pour les metttre dans une base
ou au moins pouvoir récupérer leur taille pour afficher un message en conséquence

Merci

[Immobilis]

Envoyé par Australia

je n'arrive plus à rapatrier les données de cette cellule ???

C'est quoi ta methode?

[Australia]

je crée une zone dans le fichier excel (insérer-> définir-> nom),
nommée import,
ensuite je crée un recordset de cette zone d'import,
puis après je travail dessus

bref, voila ma liaison avec excel :

Code :

1
2
3
4
Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & strXLSFileName
  Set rcsFile = Server.CreateObject("ADODB.RecordSet")
  rcsFile.Open "Select * From Import", objConn

ensuie mon rcsfile est un recordset identique à la zone définie dans excel

j'éspère avoir été clair

[Immobilis]

Envoyé par Australia

je crée une zone dans le fichier excel (insérer-> définir-> nom), nommée import

Et ça marche bien ça? Tu récupères déjà des trucs?
Perso, je fais:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim sConnectionString
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties=Excel 8.0;"
set objConn = server.createobject("ADODB.Connection")
objConn.Open sConnectionString
set rs = server.CreateObject("ADODB.Recordset")
	rs.open "SELECT * FROM [sheet1$]",objConn
		response.write "nb champs = " & rs.fields.count & "<br>" 
		response.Write("<table>"  + Chr(13) + Chr(10))
		for i= 0 to rs.fields.count-1 
			response.write ("<th>" & rs.fields(i).name & "&nbsp;</th>" + Chr(13) + Chr(10))
		next 
		while not rs.eof 
			response.Write("<tr>" + Chr(13) + Chr(10))
			for i= 0 to rs.fields.count-1 
				response.write ("<td>" & rs.fields(i).value & "&nbsp;</td>" + Chr(13) + Chr(10))
			next 
			response.Write("<tr>" + Chr(13) + Chr(10))
			rs.movenext 
		wend
		response.Write("</table>" + Chr(13) + Chr(10))
	rs.close
set rs = nothing
set objConn = nothing

[Australia]

ca marche niquel sauf pour les cellules contenant plus de 255 caractères (je suis pas sur du chiffre mais je pense que c'est ca)

perso, j'aurais fait comme toi mais comme j'ai pas le droit de refaire le monde,
suis obligé de travailler avec ca...

Bref, toi en faisant comme tu fais, tu n'as pas de problème de récupération de cellules avec trop de caractères ?

Cimer d'avance

[Immobilis]

Aucun. J'ai essayé avec une cellule contenant 16032 caractères et ça marche.
Par contre, je crois qu'il faut que le contenu des cellules soit homogène. Si j'ajoute une formule

Code :

=len(A3)

pour calculer la longueur de la chaine, ça plante et je ne vois plus que le nombre de caractères (16032).

A+

[Australia]

pô compris,
tu as essayer avec ta méthode ou avec ma méthode ?

[Immobilis]

Euh la mienne dslé.
Je vois que le pilote de connection change entre ta methode et la mienne. C'est peut-être ça aussi.