Discussion :

[bibou2146]

Bonsoir tout le monde

J'ai un petit soucis! Aidez moi svp! Je cherche à convertir un dossier contenant plusieurs fichier.txt en fichier.xls. J'ai repris le code réalisé par zebrou le lien ci après:

http://www.developpez.net/forums/d11...lonne-listbox/

Je vous mets ci-après le code :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public Sub Convertion()
 
    Dim fd As FileDialog
    Dim repertoire As String
 
    Set fd = Application.FileDialog(msoFileDialogFolderPicker) 'création d'une boite de dialogue choix de répertoire
    fd.AllowMultiSelect = False 'on ne peut choisir qu'un seul repertoire
 
    If fd.Show = -1 Then 'l'utilisateur à valider sa selection
        repertoire = fd.SelectedItems(1) 'le repertoire choisi
        TransformerTousLesFichiers repertoire
    End If
 
End Sub
 
'Boucle sur tous les fichiers d'un répertoire
Private Sub TransformerTousLesFichiers(ByVal repertoire As String)
    Dim fso As New FileSystemObject
    Dim fichier As File
 
    For Each fichier In fso.GetFolder(repertoire).Files 'pour chaque fichier du repertoire
        If Right(fichier.Name, 4) = ".txt" Then 'si c'est un fichier texte
            TransformerFichierTexteEnExcel fichier 'il effectue la transformation ci-dessous
        End If
    Next fichier
 
End Sub
 
'Ouvre un fichier texte, sépare chaque ligne par ses "tab" et le met dans un fichier excel qui porte le même nom
Private Sub TransformerFichierTexteEnExcel(ByRef fichier As File)
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim chemin As String
    Dim nomFichier As String
    Dim numFic As Integer
    Dim i, iCol, iRow As Long
    Dim ligneFichier As String
    Dim ligneFichierSplit() As String
    Dim separateur As String
 
    chemin = fichier.ParentFolder.Path 'le chemin du fichier texte
    nomFichier = fichier.Name 'le nom du fichier texte
    nomFichier = Left(nomFichier, Len(nomFichier) - 4) & ".xlsx" 'qu'on transforme en fichier excel
 
    Set wb = Application.Workbooks.Add 'on ouvre un nouveau classeur
    wb.SaveAs chemin & "\" & nomFichier 'qu'on sauve sous le bon nom
 
    Set ws = wb.Worksheets(1) 'la première feuille
 
    numFic = FreeFile
    separateur = ";"
    Open fichier.Path For Input As #numFic 'ouverture du fichier texte
 
    iRow = 1
 
    Do While Not EOF(numFic) 'tant que le fichier n'est pas parcouru en entier
        iCol = 1
 
        Line Input #numFic, ligneFichier 'on récupère la ligne suivante
        ligneFichierSplit = Split(ligneFichier, separateur) 'on sépare la ligne dans un tableau
 
        For i = LBound(ligneFichierSplit) To UBound(ligneFichierSplit) 'on copie le tableau
            ws.Cells(iRow, iCol) = ligneFichierSplit(i)
            iCol = iCol + 1
        Next
 
        iRow = iRow + 1
    Loop
 
    Close #numFic 'fermeture du fichier texte
 
    wb.Save 'sauvegarde du fichier excel
    wb.Close 'fermeture du fichier excel
 
End Sub

Avant ce code marcher très bien! Depuis il ne marche plus ^^! Je ne sais pas ce que j'ai fais ^^. Mes fichiers.txt se présentent comme dans la pièce jointe avec un séparateur ";" et mes fichiers.xlsx se présentent comme dans la pièce jointe qui tient compte du séparateur ";". Mais sur la deuxième colonne des fichiers.xlsx la virgule "," disparaît alors qu'il y en a une sur les fichiers.txt.

Je vous remercie de votre aide et de votre patience!

[Marc-L]

Bonsoir,

je ne comprends pas une telle usine à gaz car une seule ligne suffit à convertir un tel fichier ! (si version française)
Voir par exemple dans cette discussion entre autres …

Pour comprendre d'où vient le problème, exécuter le code en mode pas à pas (via la touche F8) …

Sinon mettre un fichier .txt posant problème en pièce jointe.

[bibou2146]

Salut merci de ta réponse!

Avec l'usine à gaz comme tu dis j'arrive à convertir mes fichiers.txt en fichiers.xls d'un dossier! Dans un fichier.txt (que je t'ai mis en pièce jointe) j'ai mes données qui se présentent sous la forme : 2,3335;12,2333333
Avec le code je prends en compte le séparateur ";" comme un ajout d'une colonne!
Ensuite quand j'ouvre le fichier.xls mes résultats 2,3335 et 1223333 sont séparés en deux colonnes! Mais le problème vient au niveau de la deuxième colonne le séparateur décimal n'y est plus et je ne comprends pas pourquoi...
Je te remercie de ta patience et de ton aide!

[Marc-L]

En renommant le fichier en .csv, il est converti sans souci en une seule instruction
comme dans le lien dans des versions françaises d'Excel …

Le fichier .txt est aussi converti sans souci en une seule instruction via la méthode OpenText !

Via l'Enregistreur de macros en ouvrant le fichier .txt manuellement en prenant soin
de bien paramétrer la boîte de dialogue, le code est livré sur un plateau !

[bibou2146]

Re,

Ok je prends note! Est ce que je pourrais te passer mon tableur pour que tu puisses jeter un coup d'oeil stp! Cela m'aiderai bcp d'avoir un avis merci!

[Marc-L]

Je ne comprends pas, mon avis est juste d'utiliser une seule instruction pour convertir le fichier texte
au lieu d'une quarantaine de lignes comme dans ton code …
De mon côté cela fonctionne bien, sur des versions françaises …

Mieux vaut d'abord exposer un problème précis et si nécessaire, on te demandera de joindre le classeur …

[bibou2146]

Donc ça donnerait un truc comme ça:

Code :

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

1
2
Set wbSource = Workbooks.OpenText vFichiers(1), Origin:=xlWindows,
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

Merci! j'ai réussi même si j'ai galéré! Je ne comprends pas tout ^^!

Code :

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

1
2
3
4
5
6
7
8
9
10
Workbooks.OpenText vFichiers(1), Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
 
 Range("A1:B5000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("Calcul.xlsm").Activate
    Range("A3").Select
    ActiveSheet.Paste

Merci pour ta patience^^