comment créer un fichier Excel

Version imprimable

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.

06/01/2013, 17h44
lololebricoleur

Bonjour,

Je ne vois pas la fonction xlssauve

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

comment créer un fichier Excel

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
:traine:

07/01/2013, 10h09
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
07/01/2013, 10h40
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.
07/01/2013, 10h51
frenchsting

Excellente ta solution atsibat. Au moins , on peut nommer les colonnes et les utiliser facilement !
07/01/2013, 11h06
zouzoukha

Salut!

+1 Astibat :ccool:

comment créer un fichier Excel

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 :?

08/01/2013, 10h13
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.

;););)
08/01/2013, 10h29
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 :)
08/01/2013, 11h14
vegetacherif

comment créer un fichier Excel

Top coll !:ccool:
sa fonctionne très bien
08/01/2013, 11h32
Atsibat
Citation:
Envoyé par 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 :)
Parfait !! voilà l'élégance. Merci
08/01/2013, 13h55
frenchsting

Citation:

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.