Taille caractères dans Excel

Bonjour
J'écris le contenu d'un fichier texte dans un fichier Excel.
Je souhaite avoir une police Arial 22. (celle-ci étant déjà définie dans les options du fichier Excel existant).
Après exécution de mon script, je retrouve une police Arial 10.
J'ai l'impression d'avoir récupéré la taille qui était dans le fichier texte! :cry:
Peut-on là changer dans le VBS?
Merci

Bonjour Papyxy !

Alors, en VBS je ne sais pas ce que ça donne, il faudrait voir ton code ...
En tous cas cela ressemble en VBA à un "collage spécial - Valeur seule" :

Code:

---

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

---

voila une partie du code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set xlapp = CreateObject("Excel.Application") xlapp.Visible = true set owk = xlapp.workbooks.Open(fxls,,,,,,true,,,,true) owk.application.standardfontsize=22 Set liste = owk.activeSheet liste.range("A:A").clear LIG=0 : col=1 Set f = oFso.OpenTextFile("fic.txt",1,-1) ' -1 pour Unicode while Not f.AtEndOfStream LIG=LIG+1 liste.cells(lig,col)=f.ReadLine Wend f.Close

---

Peut-être ceci répond à ta demande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Set xlapp = CreateObject("Excel.Application") xlapp.Visible = true set owk = xlapp.workbooks.Open("C:\f.xls",,,,,,true,,,,true) owk.application.standardfontsize=10 ' Ceci influe sur la taille de la police d'affichage 'dans la barre de formule et l'en-tête des colonnes et lignes Set liste = owk.activeSheet liste.range("A:A").clear LIG=0 : col=1 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("fic.txt",1,-1) ' -1 pour Unicode while (Not f.AtEndOfStream) On Error Resume Next LIG=LIG+1 liste.cells(lig,col)=f.ReadLine liste.cells(lig,col).Font.Size = 22 ' Ceci concerne les cellules Wend f.Close owk.Save ' Enregistre le fichier xlapp.Quit ' Quitte l'application

---

Merci, c'est tout à fait ce qu'il fallait.:ccool: