[WD17] comment créer un fichier Excel [Résolu]

[vegetacherif]

Bonjour,
j'ai cherché sur l'aide de pc soft et je trouvé le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
IDFicXLS est un xlsDocument
UnFichier est une chaîne
UnFichier = fRepExe + "\Suivi d'affaires1.xls"

IDFicXLS = xlsOuvre(UnFichier, xlsEcriture)
SI ErreurDétectée = Faux ALORS
Azz est un entier = xlsFeuilleEnCours(IDFicXLS)
Info("Feuille en cours dans le fichier Excel : " + Azz)
// Changement de feuille
SI xlsFeuilleEnCours(IDFicXLS, 2) ALORS
Info("La feuille courante a été modifiée.")
// Lecture d'une cellule pour test
Info(xlsDonnée(IDFicXLS, 11, 2))
SINON
Erreur("Le fichier sélectionné ne comporte pas de seconde feuille !")
FIN
SINON
Erreur("Attention ! le fichier est déjà ouvert sur un poste de travail !")
FIN

mais le fichier Excel n'etait pas crée
comment créer un ficher Excel ?
merci d'avance.

[lololebricoleur]

Bonjour,

Je ne vois pas la fonction xlssauve

Pour moi, elle est nécessaire si vous voulez que le fichier soit créé.

[vegetacherif]

j'ai ajouté la fonction xlsSauve dans le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
IDFicXLS est un xlsDocument
UnFichier est une chaîne
UnFichier = fRepExe + "\Suivi d'affaires1.xls"

IDFicXLS = xlsOuvre(UnFichier, xlsEcriture)
xlsSauve(IDFicXLS)

SI ErreurDétectée = Faux ALORS
Azz est un entier = xlsFeuilleEnCours(IDFicXLS)
Info("Feuille en cours dans le fichier Excel : " + Azz)
// Changement de feuille
SI xlsFeuilleEnCours(IDFicXLS, 2) ALORS
Info("La feuille courante a été modifiée.")
// Lecture d'une cellule pour test
Info(xlsDonnée(IDFicXLS, 11, 2))
SINON
Erreur("Le fichier sélectionné ne comporte pas de seconde feuille !")
FIN
SINON
Erreur(ErreurInfo()) 
FIN

voici le message d'erreur :

Le fichier C:\Mes Projets\AgentEmail\Exe\Exécutable Windows 32 bits\Suivi d'affaires1.xls n'a pas été trouvé

le fichier excel n'a pas été créer

[Nicolas_Jeanneau]

Bonour,

il faudrait que tu relises l'aide au sujet de xlsOuvre. L'utilisation de xlsouvre te permet de savoir avec le code de retour si le fichier existe ou non etc ...

Au moins avant de poursuivre tu peux tester ce retour.

à bientôt,

Nicolas

[Atsibat]

Voilà une solution stable et efficace.
Mais assez "sale" j'en conviens.
Si quelqu'un a mieux je suis preneur...

Créer une table en dehors de l'affichage, vide et invisible.
Bref une table qui ne sert à rien à part lancer la fonction
TableVersExcel(..............)
Ainsi le fichier excel est créé.
Tu pourra ensuite utiliser xlsOuvre
xlsFerme
et xlsDocument sur la base du fichier créé.

C'est la seule solution que j'utilise pour le moment car c'est celle qui fonctionne.
Même si je grimace à chaque fois que j'en arrive à de tels procédés.

[frenchsting]

Excellente ta solution atsibat. Au moins , on peut nommer les colonnes et les utiliser facilement !

[zouzoukha]

Salut!

+1 Astibat

[vegetacherif]

bonjour,
Merci à ceux qui ont répondu.

j'ai trouvé une autre méthode pour crée le fichier xls, on utilisé les deux fonctions fselecteur pour créer l'extension de fichier et fouvre pour créer le fichier :

Code :

1
2
3
4
5
6
7
8

Res  est une chaine=fSélecteur("","","Enregistrer sous...",...
	"Document Excel (*.XLS)"+TAB+"*.XLS","XLS",...
	fselCrée+fselExiste)
	

	fOuvre(Res,foLectureEcriture + foCréation)

mais le problème c'est l’utilisation de ce fichier par la fonction xlsouvre toujours considéré comme un fichier introuvable

[Atsibat]

Bonjour,

ben on va dire que si ta solution ne marche pas... ce n'est pas une solution
c'est un problème... Mais résolu un peu plus haut en attendant une solution élégante.

[themayu]

Bonjour,

Vous pouvez créer et manipuler un fichier excel directement depuis le code avec la variable xlsDocument :

Code :

1
2
3
4
Fichier est un xlsDocument
xlsAjouteFeuille(Fichier, "Feuille 1")
....
xlsSauve(Fichier,fRepExe() + ["\"] + "test.xls")

Et c'est plus élégant

[vegetacherif]

Top coll !
sa fonctionne très bien

[Atsibat]

Envoyé par themayu

Bonjour,

Vous pouvez créer et manipuler un fichier excel directement depuis le code avec la variable xlsDocument :

Code :

Et c'est plus élégant

Parfait !! voilà l'élégance. Merci

[frenchsting]

Envoyé par Atsibat

Parfait !! voilà l'élégance. Merci

C'est sûr que c'est élégant mais encore faut-il avoir la bonne version de windev. En WD12, cela ne fonctionne pas.