actuellement je lit un fichier en format text. je le transforme dans dans une feuille excel.

mon soussis c'est que l'une de mes séquence commence par un égale.

y a t'il une possibilité de désactiver les formules pour qu'il écrive tout simplement le texte

code de parcour :

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
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
 
Sub ouvrefic()
 
    Cells.Clear
    NumFichier = 1
    iRow = 1
 
    Open "c:\toto.txt" For Input As #1
        Do While Not EOF(1)
            iCol = 1
            Line Input #1, Chaine
            Ar = Split(Chaine, ":")
            For i = LBound(Ar) To UBound(Ar)
                Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next
            iRow = iRow + 1
        Loop
    Close #1
End Sub