Discussion :

[xoorus]

Bonjour, dans mon code actuel, j'importe une table dans un fichier excel, et je voulais savoir si il était possible :
- d'ajouter une ligne en début de document
- De créer des bordures complètes sur l'ensemble du document


Actuellement, mon code est le suivant :

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
 
 
 
sFic est une chaîne
// On demande le nom du fichier
sFic = fSélecteur("","","Fichier Excel","*.xls","xls",fselCrée+fselExiste)
// Si le nom n'a pas été fourni, on abandonne l'export
// Sinon, on exporte le contenu de la table
SI sFic <> "" ALORS 
	TableVersExcel("Table_Planning", sFic, taAvecMiseEnForme)
	Info("Tableau Excel enregistré avec sucés")
FIN
 
// déclaration variables :
 
MaFeuille est un xlsDocument
 
// Ouverture d'un fichier XLS :
MaFeuille = xlsOuvre(sFic, xlsEcriture)
SI MaFeuille = -1 ALORS
	Info("Fichier Excel "+sFic+" introuvable")
	RETOUR
FIN
 
// alimentation celulles
AlimenteCellules(MaFeuille)
 
CreeBordures()
 
AjouteTitreDocument()
 
// sauve le fichier modifié :
xlsSauve(MaFeuille)
 
// ferme le fichier modifié :
xlsFerme(MaFeuille)

Merci de votre aide, et de vos conseils avisés

[gancau]

Bonjour
Pour ce qui est de l'ajout il faudrait savoir si ce sont les titres de ta table auquel cas il me semble qu'il sont importés dans Excel et que de toute façon tu peux facilement ajouter un ligne de plus à ta table dans ton programme
Pour la partie mise en forme, tu as un exemple wdpilotage excel qui te montre comment piloter excel par ole automation
Tu fais un macro xls que tu transcris en wd et tu auras ton résultat
Bon dev
Gancau

[frenchsting]

Tu ne peux pas modifier un document excel avec les fonctions xls...(). Tu dois passer par l'activex. Il y a pas mal de sujets et messages sur ce thème dans ce forum.

Sans oublier l'exemple Pilotage de Excel livré avec windev

[xoorus]

D'accord, je me dirigerais donc vers l'exemple windev, et vers les macros dans ce cas

Merci

[xoorus]

Bonjour, je reviens à la charge car je n'arrive absolument pas à faire ce que je veux sur ce document excel ><

J'ai copié la classe c_excel donnée par WDExemples
J'ai essayé de l'utiliser mais mes fonctions ne changent absolument rien..

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
 
sFic est une chaîne
// On demande le nom du fichier
sFic = fSélecteur("","","Fichier Excel","*.xls","xls",fselCrée+fselExiste)
// Si le nom n'a pas été fourni, on abandonne l'export
// Sinon, on exporte le contenu de la table
SI sFic <> "" ALORS 
	TableVersExcel("Table_Planning", sFic, taAvecMiseEnForme)
	Info("Tableau Excel enregistré avec sucés")
FIN
 
// déclaration variables :
 
MaFeuille est un xlsDocument
 
// Ouverture d'un fichier XLS :
MaFeuille = xlsOuvre(sFic, xlsEcriture)
SI MaFeuille = -1 ALORS
	Info("Fichier Excel "+sFic+" introuvable")
	RETOUR
FIN
 
// alimentation celulles
AlimenteCellules(MaFeuille)
 
CreeBordures()
 
// sauve le fichier modifié :
xlsSauve(MaFeuille)
 
// ferme le fichier modifié :
xlsFerme(MaFeuille)
 
clMonobjet est un objet c_Excel

clMonobjet:Ouvrir(sFic)
//clMonobjet:Bordure("QUADRILLAGE",0,1,"")
clMonobjet:Quadrillage()
clMonobjet:Couper("A1:CS37")
clMonobjet:EcrireValeur("A1","TEEEEST")
clMonobjet:Coller("B1")
clMonobjet:Enregistrer(sFic)
clMonobjet:Fermer()

Je copie donc un tableau de windev sous un document excel, puis je le ré-ouvre de façon à insérer un titre à la première ligne, puis à ajouter un quadrillage à mon tableau.

Seulement rien ne fonctionne, de plus, je ne semble pas enregistrer et fermer le document excel car il tourne toujours dans mes processus.

Je suis un peu perdu je dois l'avouer ><

Je vous remercie pour vos conseils

[xoorus]

Bonjour à tous, je viens de me repencher sur mon projet, et je me suis rendu compte que le constructeur était inexistant, n'ayant pas initialisé mon objet, je ne pouvais pas faire grand chose..!

Je vous remercie et vous donne mon code 'propre'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
clMonobjet est un objet c_Excel

clMonobjet:Constructeur()
clMonobjet:Ouvrir(sFic)
clMonobjet:Couper("A1:CS37")
clMonobjet:Coller("A2")
clMonobjet:EcrireValeur("A1","TEEEEST")
clMonobjet:Bordure("QUADRILLAGE",0,1,"")
clMonobjet:Quadrillage()
clMonobjet:Enregistrer(sFic)
clMonobjet:Fermer()
clMonobjet:Quitter()