Bonjour,
J'ai une macro qui me permet d'importer un fichier texte dans un fichier excel, cependant lorsque j'ai un nombre décimal à plus de 3 chiffres significatif la virgule disparaît. Ce qui fausse mon résultat une fois ma macro exécuté. (ex : au lieu de 4,994 j'ai 4994).
Je laisse mon code ci-dessous :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Sub Test()
Extraction "C:\Users\stagiaire.production\Documents\FichierSortie.txt", 65536, vbTab
End Sub
 
 
Sub Extraction(Fichier As String, NbLignesParFeuille As Long, Separateur As Variant)
Dim Chemin As String
Dim Tableau() As String
Dim ContenuLigne As String
Dim Counter As Double
Dim Tr As Worksheet, Tr2 As Worksheet, EC As Worksheet
Dim intLng As Integer, intDeb As Integer, intCol As Integer
Dim i As Integer
Set Tr = Sheets("Travail")
Set Tr2 = Sheets("Travail2")
Set EC = Sheets("En cours")
    Tr.Columns("A:Z").ClearContents
    Tr2.Columns("A:Z").ClearContents
    EC.Range("A4:Z65000").ClearContents
    Application.ScreenUpdating = False
    Counter = 1
      'Ouverture du fichier txt
    Open Fichier For Input As #1
        Do While Not EOF(1)
                If Counter > NbLignesParFeuille Then
                Counter = 1
                End If
            Line Input #1, ContenuLigne
            Tableau = Split(ContenuLigne, ";")
            Tr.Activate
            For i = 0 To UBound(Tableau)
                ActiveSheet.Cells(Counter, i + 1) = Tableau(i)
            Next i
            Counter = Counter + 1
        Loop
    Close #1
    Application.ScreenUpdating = True
 
End Sub
Merci