Discussion :

[papyxy]

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!
Peut-on là changer dans le VBS?
Merci

[Cachlab]

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 :

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

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

[papyxy]

voila une partie du code :

Code :

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

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

[l_autodidacte]

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

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

[papyxy]

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