Discussion :

[bruce207]

Bonjour,
j'ai le code ci-dessous mais je n'arrive pas à ouvrir le fichier sélectionner pour lire le contenu d'une cellule. Si quelqu'un a déjà eu ce problème merci de m'aider

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
gsCheminFicxls = fSélecteur("", "", "Sélectionnez un fichier.....", "Excel"+TAB+"*.xls"+RC+"Tous fichiers (*.*)"+TAB+"*.*", "xls", fselOuvre+fselExiste)
 
SI gsCheminFicxls = "" ALORS
	RETOUR
SINON
	IdFic = xlsOuvre(gsCheminFicxls, xlsEcriture)
	SI IdFic <> -1 ALORS
		sContenu = xlsDonnée(IdFic, 4, 1, Faux)
		SI sContenu = "" ALORS
			Info("La cellule est vide !")
		SINON
			Info(sContenu)
			xlsFerme(IdFic)	
		FIN
	SINON
		sErreurXls = xlsMsgErreur(IdFic)
		Erreur(sErreurXls)
	FIN
FIN

[EDM-TAHITI]

Hello,
Et le message d'erreur, il dit quoi????
Là, c'est chercher un octet dans une meule de gigabytes....
Merci de le poster afin de cibler nos réponses.

[bruce207]

Le message d'erreur est : IMPOSSIBLE D'OUVRIR LE FICHIER + chemin_du_fichier

[Nicolas_Jeanneau]

Bonjour,

un petit affichage du chemin devrait t'orienter vers le pourquoi du problème.

à bientôt,

Nicolas

[EDM-TAHITI]

Hello,
En plus de la remarque judicieuse de Nicolas_Jeanneau, il serait bon d'avoir TOUT le code de ta procédure afin d'y déceler des incompatibilités de déclarations de variables... du type IDFIC...

[bruce207]

Voici la déclaration des variables dans la procédure bouton1 qui la lance. Donc cette déclaration est juste avant le code précédent.

Code :

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

1
2
IdFic est un entier
sContenu, sErreurXls est une chaîne

Pour le chemin, j'ai regarder il est plutôt correct, si tu pouvais m'en dire plus Nicholas

[EDM-TAHITI]

Hello,
Lorsque sur ce forum, nous demandons des précisions afin de cibler notre réponse, c'est que d'après nous, il manque des éléments de réflexion... Aussi y répondre favorise-t-il un retour rapide sur une éventuelle résolution de problème.
Quoi qu'il en soit, par rapport à ma question, ton IDFIC n'est pas bon (issu de l'aide sur xlsouvre):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
MaFeuille est un xlsDocument
NomFichierXls est une chaîne
NomFichierXls = fSélecteur(fRepExe(), "", ...
"Sélectionnez un fichier...", ...
"Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre + fselExiste)
SI NomFichierXls = "" ALORS RETOUR
MaFeuille = xlsOuvre(NomFichierXls, xlsEcriture)

// On va mettre OK dans la case A 25
MaFeuille[25,"A"] = "OK"
// Sauvegarde
xlsSauve(MaFeuille)

Comme tu peux le constater, la déclaration de ta variable ne correspond pas au typage renvoyé, ceci expliquant cela.
Je t'invite aussi à consulter l'aide (très bien faite dans la majeure partie des cas - F1 - Mon amie) avant de poster.
Modifie le typage de ta variable qui reçoit le retour de xlsouvre et met ton post en résolu lorsqu'il le sera... ou alors, si erreur persistante, merci de poster ce que demandait Nicolas_Jeanneau, à savoir, le chemin COMPLET de ta variable gsCheminFicxls.
Bon dev

[bruce207]

Bonjour,
le chemin du fichier est C:\Banc05.xls, donc le message est : impossible d'ouvrir le fichier C:\Banc05.xls. Et le code que j'ai tapé viens de l'aide. J'ai essayé également de changer le type de idfic en xlsdocument, mais je n'ai toujours aucun résultat et il est à noter que je suis sur la version 14 et l'aide de utilise plutôt un entier pour idfic comme je l'ai dit. Je ne sais pas si quelqu'un a tester ce code chez lui.

[Laurent_m_paris]

Salut

Essaie

Ouvrir le fichier sous exel
- si OK, le fermer

Verifie que le fichier n'est pas utilisé
Vérifie sa version (Excel 4 => xlsCompatible)

ouvre le avec xlsOuvre() sans le paramètre xlsEcriture

après, je ne sais plus (mon code ouvre un fichier excel et détruit les n premières feuilles pour accéder à la feuille de données, alors je n'ai pas de problèmes de xlsSauve)

[miripesage]

Bonjour, essayer comme ceci :

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
IdFicxls est un xlsDocument
gsCheminFicxls est une chaine
gsCheminFicxls = fSélecteur("", "", "Sélectionnez un fichier...", "Excel"+TAB+"*.xls"+RC+"Tous fichiers (*.*)"+TAB+"*.*", "xls", fselOuvre+fselExiste)

SI gsCheminFicxls = "" ALORS
	RETOUR
SINON
	IdFicxls = xlsOuvre(gsCheminFicxls, xlsEcriture)
	SI IdFicxls <> -1 ALORS
		sContenu = xlsDonnée(gsCheminFicxls, 4, 1)
		SI sContenu = "" ALORS
			Info("La cellule est vide !")
		SINON
			Info(sContenu)
			xlsFerme(IdFicxls)	
		FIN
	SINON
		sErreurXls = xlsMsgErreur(IdFicxls)
		Erreur(sErreurXls)
	FIN
FIN

***********************************
C'est le propre de l'homme de se tromper ; seul l'insensé persiste dans son erreur.

[EDM-TAHITI]

Hello,
Un nouveau topic ouvert par Bruce207 pour le même fichier?????
Et si nous faisions fausse route!!!!! Le fichier apparement n'est pas un fichier natif XLS, ceci expliquant cela lors de l'ouverture et le message d'erreur (si c'est cela, je regrette de n'avoir pas eu toutes les informations dès le départ - je considére cela comme un manque de respect vis-à-vis des autres membres).

Voici le nouveau lien pour le même fichier http://www.developpez.net/forums/d11...n-fichier-xls/

Quand à

Bonjour,
le chemin du fichier est C:\Banc05.xls, donc le message est : impossible d'ouvrir le fichier C:\Banc05.xls. Et le code que j'ai tapé viens de l'aide. J'ai essayé également de changer le type de idfic en xlsdocument, mais je n'ai toujours aucun résultat et il est à noter que je suis sur la version 14 et l'aide de utilise plutôt un entier pour idfic comme je l'ai dit. Je ne sais pas si quelqu'un a tester ce code chez lui.

qui fait référence au même fichier, si l'entete n'est pas une entête de type XLS (seulement l'extension) alors oui, il peut y avoir effectivement des erreurs lors de l'ouverture...

[Laurent_m_paris]

en attendant,
vu que je vais sûrement rencontrer le même problème
Merci pour le Topic

Heu,
Il faut 2 lignes minimum pour que la fonction CSVVersTableau marche en WD15

[Laurent_m_paris]

J'ai confronté mon appli au fichier de Bruce, et j'ai le résultat attendu, sans miracle. j'ai dû modifier mon code pour lui faire accepter le fichier de Bruce. car je sais que je vais être forcément confronté à ce problème.

(dans tous les cas, mon appli lit un fichier, le transforme en texte CSV, puis en table. avant ce poste, elle ne lisait que les fichiers xls. maintenant elle lit aussi les fichiers texte à tabulation)

[bruce207]

Bonjour Laurent_m_paris,
pourrais tu m'en dire plus ? comment fais-tu pour accéder au fichier ? quelles fonctions utilises-tu ? Un bout de code serait d'un précieux secours.

[Laurent_m_paris]

Salut Bruce

En fait

Code :

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

1
2
3
4
5
6
7
8
9
UnFichier est une chaîne = fSélecteur("","","fichier Excel	*.xls","*.xls")
 
nIdFichierXLS est un entier = xlsOuvre(sUnFichier)
SI ErreurDétectée ALORS
        //Fichier Texte
SINON
        //Fichier Excel
	xlsFerme(nIdFichierXLS)
FIN

Mon code ne fait que de la lecture en vue d'import, donc il passe tout naturellement au tableau

pour le fichier texte, il effectue la lecture :

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
 
ID est un entier = fouvre(sUnFichier) 
si ID > 0 alors
    s = fLit(ID,fTaille(sUnFichier))
    fFerme(ID)
Sinon
   s = ""
Fin
 
t est un tableau de * par * chaines
CSVVersTableau (s,t,TAB)
 
// petite protection contre les ";"
Si TableauInfo(t,tiNombreColonnes) = 1 alors
      CSVVersTableau (s,t,";")
FIN
 
 // Bref j'ai un tableau

Pour les fichiers Excel, il fait ceci :

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
id est xlsDocument  = xlsOuvre(:NomDeFichier)
 
POUR i = 1 A nPage -1 // Ca c'est pour accéder à la feuille n° nPage
	xlsSupprimeFeuille(id)
FIN
 
nc est un entier = xlsNbColonne(id,Vrai)
nl est un entier = xlsNbLigne(id,Vrai)
 
tabTxls est un tableau de nl par nc chaînes
 
POUR l = 1 A nl
	POUR c = 1 A nc
		tabTxls[l,c] = xlsDonnée(id,l,c,Vrai)	 
	FIN
FIN

ne me dites pas que j'aurais pu faire ID[l,c]

Après mon code a fait une classe pour encapsuler la gestion des tables.
La classe
- construit les colonnes nécessaires au moyen d'une Syntaxe :

Code :

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

1
2
3
4
 POUR i = 2 A nTotal
 	ChampClone({:Nom + ".COL_Colonne1",indChamp},"COL_Colonne"+i )
 	{:Nom + ".COL_Colonne"+i,indChamp}..Titre = "Colonne"+i
 FIN

- rempli la table au moyen d'une syntaxe :

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
// un TableSupprimeTout() a été fait auparavant
 POUR l = 1 A p
	SI 	bPremièreLigneDeTitre ALORS
		TableAjoute(:Nom;"")
		POUR i = 1 A n
			{:Nom,indChamp}[1,i]..Titre = t[l,i]
			:m_tabColonnes[i] =  t[l,i]
		FIN
		TableSupprime(:Nom)
		bPremièreLigneDeTitre = Faux
	SINON
		t2 est un tableau de n chaînes
		POUR i = 1 A n
			t2[i] = t[l,i]
		FIN
		s = TableauVersChaîne(t2,TAB)
		TableAjoute(:Nom,s)
	FIN
FIN

{} = indirection

du coup, mes champs table sont bien singuliers dans mon programme
ca vient du fait que souvent je change dans mon Analyse, et que je n'ai pas envie de courir après toutes les fenetres. mais je ne sais plus si j'ai réellement eu ce problème

Oups
Pour l'enregistrement d'un fichier Excel Heu, je ne me suis pas penché dessus.


Donc mes fonctions favorite, sont CSVVersTableau, TexteVersTableau et leurs contraires, et une qui est très jolie : TableVersTexte (pas de contraire ! )


Cordialement

[nas5_1984]

salut bruce
ce code est existe exp windev14 aide
et j'ai l'essayé, marche très bien
si le fichier n'est partagé en cas de réseaux le problème reste toujours

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
// Déclaration des variables
ResDonnée est une chaîne
FichierXLS est une chaîne
IdFichierXLS est un entier
 
// Sélection du fichier XLS
FichierXLS = fSélecteur("", "", "Sélection d'un fichier XLS", ...
             "Fichier XLS" + TAB + "*.XLS", "XLS", fselOuvre+fselExiste)
// Ouverture du fichier sélectionné
IdFichierXLS = xlsOuvre(FichierXLS)
SI IdFichierXLS <> -1 ALORS
    // Récupération du contenu d'une cellule
    ResDonnée = xlsDonnée(IdFichierXLS, 3, 4, Faux)
    SI ResDonnée <> xlsDonnéeErreur ALORS
        SI ResDonnée = "" ALORS
           // La cellule est vide
           Info("La cellule est vide")
        SINON
           // Affichage du contenu de la cellule
           Info("Le contenu de la cellule est : " + ResDonnée)
        FIN
    SINON
        // Affichage du message d'erreur si la récupération n'a pas été effectuée
        Erreur(xlsMsgErreur(IdFichierXLS))
    FIN
SINON
   // Affichage du message d'erreur si l'ouverture n'a pas été effectuée
   Erreur(xlsMsgErreur(IdFichierXLS))
FIN

[gancau]

Bonjour
juste en passant, tu as marqué :

Code :

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

IdFic = xlsOuvre(gsCheminFicxls, xlsEcriture)

par hasard as-tu le droit d'écrire à la racine de C ?
Gancau

[bruce207]

Bonjour,
a Gancau oui j'ai le droit d'écrire sur c, mais j'ai pu contourner le problème grace surtout à Laurent_m_Paris à qui je dis merci.