Générer fichier excel en ASP

Version imprimable

Bonjour à tous,

Je suis actuellement en train de réaliser un site web en ASP et je génère sur celui ci une liste que j'insère dans un fichier excel.

Je procède de cette manière:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set FSO = Server.CreateObject("Scripting.FileSystemObject") fil = "excel/formations.csv" Set inF = FSO.CreateTextFile(Server.MapPath(fil)) If right(fil,3)="csv" Then inF.writeLine"Champ1;Champ2;Champ3" inF.writeLine"Champ4;Champ5;Champ6" inF.writeLine"Champ7;Champ8;Champ9" ... ... Set inF = Nothing Set FSO = Nothing End If
Est-ce que quelqu'un saurait comment changer les propriétés du texte et des cellules (couleur, police, ...) ?

mettons que tu veuilles ouvrir une instance sur une cellule choisie au pif

Code:

1
2
3
4
5
 
Dim oComExcel : set oComExcel = server.createObject("Excel.Application")
					 oComExcel.WorkBooks.open CheminPhysiqueDuFichier
Dim monClasseur : set monClasseur = oComExcel.ActiveWorkBook
Dim maFeuille : set maFeuille = monClasseur.Sheets(1)

'ici tu choisis des valeurs pour xcell et ycell

Code:

1
2
 
Dim oCell :set oCell = maFeuille.Cells(xCell,yCell)

pour mettre en forme testes ces quelques propriétés

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'-------------------police --------------------------------
			response.write "Police : " & oCell.Font.Name & "<br>"
			Response.write "Couleur Police : " & oCell.Font.color & "<br>"
			Response.write "Taille Police : " & oCell.Font.size & "<br>"
			Response.write "Style Police : " & oCell.Font.fontstyle & "<br>"
			'-------------------format--------------------------------
			'format (date,nombre...): 
			response.write "Format : " & oCell.numberFormat & "<br>"
			'-------------------alignement--------------------------------
			'-4138 left, -4108 center, -4131 left, -4152 right
			response.write "Alignement Horizontal : " & oCell.HorizontalAlignment & "<br>"
			response.write "Alignement vertical : " & oCell.VerticalAlignment & "<br>"

sinon un petit bout de code en VBA qui marche à coup sûr(pas très compliqué à convertir en asb vbs)

Code:

1
2
3
4
5
6
7
8
9
10
11
 
'appliquer un style à une plage de cellules
objSheetTo.Range("5:100").NumberFormat = "0.00;[Red]-0.00"
 'toutes les cellules doivent être alignée verticalement haut
 '+ taille de police à 8
 objSheetTo.Columns.Font.Size = 8
 objSheetTo.Columns.VerticalAlignment = xlVAlignTop
 'ne pas écraser de mots.....
 objSheetTo.Columns.ColumnWidth = 10
 objSheetTo.Columns.WrapText = True
 objSheetTo.Columns.AutoFit

22/04/2009, 08h16
Immobilis

Salut,

Ou plus simplement: http://www.developpez.net/forums/m3034363-7/

A+
27/04/2009, 20h42
Maestro57

Oups, j'ai mis un peu de temps à revenir voir mon post.
J'étais plutôt occupé les derniers jours ...

Je vous remercie tous les deux pour vos réponses !!