Salut a tous !

Je suis en train de finir un petit programme, je fait des traitements sur un fichier excel, pour ensuite me servir de ses fichiers pour alimenté une base de données.

Pour vous expliquez, dans mon fichier excel de base, une de mes colonne qui contient des nombres sont sous format texte, je m'explique

Le chiffre 4 par exemple est 0004 dans mon fichier excel
Mon but est de le traité de manière a ce que il devienne juste 4.

Dans mon fichier excel lorsque je clique sur une valeur de cette colonne j'ai le message :
- Le nombre dans cette cellule est au format texte ou précédé d'une apostrophe

Donc ce que je fait c'est :
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
 
Dim classeur as xls.workbook
dim feuille as xls.worksheet
dim app as new xls.application
 
sub number()
 
classeur = app.workbooks.Open("Monchemin")
feuille=app.workboos(1).worksheets(1)
 
dim INbItem as integer
iNbItem = feuille.UsedRange.rows.count
 
dim var as integer
var =1
 
for var = 1 to inbItem
var =var+1
feuille.range("D"+var.ToString).numberFormat="0"
Next
La c'est la partie total mais meme sans ma boucle et tout le bordel donc en mettant juste feuille.range("D2").numberFormat ="0"
J'ai pas de message d'erreur mais ça fait rien

Quelq'un saurais comment faire ?

Merci d'avance