Manipulation fichier EXCEL

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:

---

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

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

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

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

Merci

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:

---

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

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:

---

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()

---