Je voudrais saisir des informations sur une feuille EXCEL puis les enregistrer dans un fichier texte afin de les réutiliser par la suite. Problème, les chiffres me reviennent formatés en texte et les calculs ne sont plus possibles.

Dans mon exemple d'essais j'ai dans les cellules respectives

A1 : 30/06/2011
A2 : 0,5
A3 : 124
A4 : toto

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
Sub Ecrire()
nom = "c:\fichier.txt"
Open (nom) For Output As #1
t1 = Chr(34) & Cells(1, 1).Value & Chr(34)
t2 = Chr(34) & Cells(1, 2).Value & Chr(34)
t3 = Chr(34) & Cells(1, 3).Value & Chr(34)
t4 = Chr(34) & Cells(1, 4).Value & Chr(34)
Print #1, t1, t2, t3, t4
Close #1
End Sub
 
Sub Lire()
nom = "c:\fichier.txt"
Open (nom) For Input As #1
    Input #1, d1, d2, d3, d4
    Cells(1, 1).Formula = d1
    Cells(1, 2).Formula = d2
    Cells(1, 3).Formula = d3
    Cells(1, 4).Formula = d4
Close #1
Merci d'avance pour une éventuelle solution.