Discussion :

[Maestro57]

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 :

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

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, ...) ?

[amar00]

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

Code :

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

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 :

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

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

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

Code :

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

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 :

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

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

[Immobilis]

Salut,

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

A+

[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 !!