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 :
Merci de votre aide, et de vos conseils avisés
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)![]()
Partager