Discussion :

[jorisfavre]

Bonjour à tous

Ci joint mon code me permettant d'importer en automatique des .txt dans une classeur Excel.
Je n'arrive pas à enlever les guillemets contenus dans le .txt
Du coup, dans Excel les données sont inexploitables et génèrent des calculs erronés : somme, moyenne ...

Connaissez vous une solution pour ôter les guillemets ?

Je voudrais éviter de modifier le .txt en .csv en passant par un import classique dans excel.

Merci de votre aide.

Bien cordialement.

PS : un fichier .txt en pièce jointe
PS 2 : le code ci dessous est crée avec la contribution des membres actifs de developpez.com que je remercie au passage...

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 TXT", "*.txt"
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

[Invité]

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 TXT", "*.txt"
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 = replace("" & str(i),chr(34),"")
    Next i
 
    Ligne = Ligne + 1
 
Loop
 
Close #1
 
 
End Sub

[jorisfavre]

Ok merci beaucoup
Cela fonctionne, plus de guillemet après Import

Les valeurs ne sont toujours pas utilisables pour des calculs : exemple somme() = 0.
Je vais gérer ça dans excel avec des formats de cellule et autre.

Encore merci.

Cdlt.