Problème format de cellule après import

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:

---

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

---

Bonjour,

Voici un exemple à adapter selon vos besoins.

Code:

---

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:

---

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

---