Discussion :

[Roller0022]

Bonjour,
J'essaye d'importer un fichier csv mais rien à faire, le code ci dessous ne fonctionne pas.
Auriez vous un exemple d'importation d'un fichier csv dans une table.
En ce moment mon projet est bloqué à cause de cette importation bloquée.
Merci d'avance
Cordialement
Jean Paul

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
nIdFic=fOuvre(Fichiercsv,foLecture)
SI nIdFic=-1 ALORS
Erreur("Impossible d'ouvrir le fichier.",...
"Vérifier qu'il n'est pas déjà ouvert sur une autre
application.",xlsMsgErreur(nIdFic))
RETOUR
FIN
TableSupprimeTout(TableImport)
sLigne= fLitLigne(nIdFic)
 
Premiere ligne contenant les données
nPremièreLigne = 1
sinon
nPremièreLigne=2
nNbColonnes est un entier= ChaîneOccurrence(sLigne, ";")+1
 
TANTQUE sLigne <> EOT
// on remplit la table mémoire
TableAjouteLigne(TableImport)
// on construit la ligne lue
POUR nColonne =1 A nNbColonnes
sdonnee=ExtraitChaîne(sLigne,nColonne,";")
SI sdonnee=EOT ALORS
{"Colonne"+nColonne}[TableOccurrence(Table)]=""
SINON
// Je traite si il y a des guillemets
guillemet=sdonnee
SI ChaîneOccurrence(guillemet,gCO_Guillemet)>1 ALORS
SI Gauche(guillemet,1)=gCO_Guillemet ALORS
guillemet=Milieu(guillemet,2,Taille(guillemet)-1)
SI Droite(guillemet,1)=gCO_Guillemet ALORS
guillemet=Gauche(guillemet,Taille(guillemet)-1)
TANTQUE ChaîneOccurrence(guillemet,gCO_Guillemet+gCO_Guillemet)<&g
t;0
 
guillemet=Remplace(guillemet,gCO_Guillemet+gCO_Guillemet,gCO_Guillemet)
FIN
FIN
{"Colonne"+nColonne}[TableOccurrence(TableImport)]=guillemet
FIN
// si c'est un numérique
SI NumériqueVersChaine(Val(sdonnee))=sdonnee ALORS
{"Colonne"+nColonne}..CadrageHorizontal=iDroite
SINON
{"Colonne"+nColonne}..CadrageHorizontal=iGauche
FIN
FIN
sLigne = fLitLigne(nIdFic)
FIN

[kuranes]

Peux tu mettre les balises [ code ] s'il te plait ? Pour une meilleure lisibilité... Merci d'avance

As tu des messages d'erreurs ? Si oui, mets les ici. Et en tracant le projet, tu rencontre le problème ou ?

[berVes]

salut,
on va essayer...

1) pourquoi XlsMsgEreur(nidfic)? alors que tu ouvres ton fichier avec Fouvre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
//Premiere ligne contenant les données
nPremièreLigne = 1
sinon
nPremièreLigne=2

il manque des // devant "Premiere ligne contenant les données"
Il manque un Si macondition et un fin...
donc le compilateur doit s'arreter... non?
corriges déja cela et tient nous au courant...
@+++