Discussion :

[jorisfavre]

Bonjour à toutes et tous,

Avec ce code, j'importe des données d'un .csv vers une feuille Excel.
Une fois les données importées, les nombres contenus dans la colonne "E" ne sont plus exploitables.
Je souhaiterais faire des =moyenne(), =ecartype() et =somme().

Par contre quand j'importe "manuellement" les données, ça marche nickel, les données sont exploitables.

J'ai regardé du côté des formats de cellule dans ma feuille Excel d'accueil, mais rien n'y fait.

Est ce que dans mon code je gère mal les formats ou la copie des données ??

Merci de votre aide si vous avez une idée.

A bientôt

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
41
42
43
44
45
Sub Import_Fichier()
 
' importe des fichiers texte en ouvrant une fenêtre
 
Dim file As FileDialog
Dim strLigne As String
Dim str() As String
 
Dim i As Integer
Dim Ligne As Long
 
'Choix du fichier à importer
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Filters.Clear
file.Filters.Add "Fichier CSV", "*.csv"
file.Title = "Fichier à importer"
 
If file.Show = False Then
    Exit Sub
End If
 
Ligne = 2
 
'Ouverture du fichier
Open file.SelectedItems(1) For Input As #1
 
'Boucle sur les lignes du fichier
Do While Not EOF(1)
 
    Line Input #1, strLigne
    str() = Split(strLigne, ";") 'séparateur ;
 
    'Pour chaque colonne
    For i = 0 To UBound(str)
        Cells(Ligne, i + 1).Value = str(i)
    Next i
 
    Ligne = Ligne + 1
 
Loop
 
Close #1
 
 
End Sub

[NEC14]

Bonjour,

Voici un exemple à adapter selon vos besoins.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Option Explicit 
 
Sub Tst() 
Dim Fichier As Variant 
    ChDir ThisWorkbook.Path 
    Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv" ) 
    If Fichier <> False Then 
        Lire Fichier 
    End If 
End Sub

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
 
Sub Lire(ByVal NomFichier As String) 
Dim Chaine As String 
Dim Ar() As String 
Dim i As Long 
Dim iRow As Long, iCol As Long 
Dim NumFichier As Integer 
Dim Separateur  As String * 1 
 
    '  Séparateur Point Virgule 
    Separateur = ";" 
 
    Cells.Clear 
    Application.ScreenUpdating = False 
    NumFichier = FreeFile 
    iRow = 1 
 
    Open NomFichier For Input As #NumFichier 
        Do While Not EOF(NumFichier) 
            iCol = 1 
            Line Input #NumFichier, Chaine 
            Ar = Split(Chaine, Separateur) 
            For i = LBound(Ar) To UBound(Ar) 
                Ar(i) = Replace(Ar(i), "M-", "" ) 
                Cells(iRow, iCol) = Ar(i) 
                iCol = iCol + 1 
            Next 
 
            Select Case Cells(iRow, 1) 
                Case Is = Cells(iRow, 2): Cells(iRow, 3) = "Ok" 
                Case Else: Cells(iRow, 3) = "Bad" 
            End Select 
 
            iRow = iRow + 1 
        Loop 
    Close #NumFichier 
 
    Application.ScreenUpdating = True 
End Sub