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