Discussion :

[julien41]

Bonjour,

J'aimerai modifier si possible le format d'une cellule sous Excel. La cellule est en format "standard" et j'aimerai la définir en "texte" afin d'inscrire la valeur exact saisie.

Quelqu'un pourrait m'aider svp, je débute et j'avoue je sèche ?

J'ai trouvé ce code sur le net mais je n'arrive pas à le faire fonctionner :

Code :

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

Cells(Ligne, colonne) = "@"

Merci

[SfJ5Rpw8]

bonsoir,

et ce code tu le met ou ?

dans un fichier .vbs ?

[julien41]

Bonjour bbil,

Oui, j'aimerai depuis un script .vbs modifier le format d'une cellule afin de la formater en texte avant de pouvoir y rentrer une donnée.

[SfJ5Rpw8]

ben déjà montre nous comment tu ouvre ton classeur excel...

[julien41]

Pas de soucis... voici mon code :

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
Dim xlapp, classeur, feuille
 
set args = WScript.Arguments
 
FIC_XLS_INT = args(0)
Set xlapp = CreateObject("Excel.Application")
call xlapp.Workbooks.Open(FIC_XLS_INT,0)
xlapp.Visible = True
Set feuille = xlapp.ActiveSheet
Parametre1 = args(1)
Parametre2 = args(2)
Parametre3 = args(3)
Parametre4 = args(4)
Parametre5 = args(5)
 
feuille.Range("C2") = Parametre1
feuille.Range("C3") = Parametre2
feuille.Range("C4") = Parametre3
feuille.Range("C5") = Parametre4
feuille.Range("C6") = Parametre5
 
xlapp.ActiveWorkbook.Save
 
xlapp.quit
Set classeur = Nothing
Set xlapp = Nothing

Explication :

J'ouvre un fichier Excel afin de remplir les cellules avec des données passées en paramètre du script.

Ce qui m’intéresse c'est de pouvoir formater la cellule "C4" en texte.

[SfJ5Rpw8]

Bonsoir,

un truc du genre :

Code :

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

feuille.Range("C4").NumberFormat="@"

[julien41]

Bonjour,

C'est exactement ça ! Il me reste plus qu'à te dire un grand merci bbil pour ton aide.