Discussion :

[leonarddecanzio]

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.

[rjamin]

Bonjour,

Vous inscrivez les données en format texte dans votre fichier (chr(34) = "
Donc quand vous les récupérez elles sont au format texte.
Rien d'anormal là dedans. Avez vous essayé sans les ".

[Theze]

Bonjour,

Et en utilisant les fonctions de conversion ?

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
 
Sub Lire()
 
    Nom = "c:\fichier.txt"
 
    Open (Nom) For Input As #1
 
        Input #1, d1, d2, d3, d4
 
        Cells(1, 2) = CDate(d1)
        Cells(2, 2) = CSng(d2)
        Cells(3, 2) = CSng(d3)
        Cells(4, 2) = d4
 
    Close #1
 
End Sub

Hervé.