Discussion :

[Passepartout007]

Bonjour,

j'ai un fichier Excel de 32 colonne et de plus de 4000 ligne. les ligne sont variable. J'ai trouver plusieurs solution pour exporter ce fichier en fichier texte. Cependant les séparateur ne me convienne pas.

Ma première manière d'exporter est rapide et performante mais ce n'est pas les bon séparateurs: (Je ne veux pas aller dans les paramètre Windows pour les changer.)

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
 
Sub export_bas()
    Application.ScreenUpdating = False 'désactive les actualisation d'écrans
    Application.Calculation = xlCalculationManual 'désactive les calcule dans excel
    Dim data As Worksheet
    Dim NvWkb As Workbook
        Nom_Dos = "\Base_txt\" 'le nom du dossier Nom_Dos prend comme valeur "\Base_txt\"
        rep_out = Suivi_FT.Path & Nom_Dos ' Rep_Out prend la valeur de l'emplacement du fichier excel + Nom_Dos
        fic_bd = "DataBase.txt" 'Le fichier base de données en txt prend le nom de "DataBase.txt"
    nBval = Application.WorksheetFunction.CountA([A:A]) 'NBval prend le du nombre de ligne dans le tableau
    NBC = Application.WorksheetFunction.CountA([1:1]) 'nbc prend le nombre le colonne dans une tableau
    If Dir(rep_out) = "" Then 'Si Le dossier dans le qu'elle on stock le fichier txt n'existe pas alors
        MkDir (rep_out) 'on créé ce fichier
    End If 'fin de si
 
Set data = Worksheets("Base de données") 'Attribution de la feuille à copier à une variable
'Copie et création du nouveau classeur avec la feuille Data
    data.Copy
    'Attribution du nouveau classeur (donc actif) à une variable (pour gérer notre classeur facilement)
    Set NvWkb = ActiveWorkbook
 
Application.DisplayAlerts = False 'désactive les boite de dialogue
ActiveWorkbook.SaveAs Filename:=rep_out & fic_bd, FileFormat:=xlCSV, local:=True, CreateBackup:=False ' enregistre sous en format txt associer au cvs qui permet de mettre automatiquement des séparateur ";"
    'Fermeture du nouveau classeur
    NvWkb.Close Savechanges:=False
Application.DisplayAlerts = True 'Remettre absolument ensuite
Application.Calculation = xlCalculationAutomatic 'réactive le calcule automatique dans excel
Application.ScreenUpdating = True 'reactive les actualisation d'écrans
End Sub

On a donc un fichier qui s'exporte super rapidement mais qui a comme s'séparateur des ";" il y a possibilité d'exporter avec des "," comme séparateur. Cependant cela ne m'intéresse pas je voudrais plutôt des "|" comme séparateur.
J'ai donc penser à une autre macro :

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
 
Sub Ecrire_CSV()
 
Dim Rng As Range, Ligne As Range, Cel As Range
 
Dim sStr As String, sNomFichier As String
 
Dim NumFichier As Integer
 
Dim sSep As String
 
 
 
    sSep = "|"
 
    Nomfichier = ThisWorkbook.Path & "\nomfich.txt"
    nBval = Application.WorksheetFunction.CountA(Suivi_FT.Worksheets("Base de données").[A:A]) 'NBval prend le du nombre de ligne dans le tableau
    NBC = Application.WorksheetFunction.CountA(Suivi_FT.Worksheets("Base de données").[1:1]) 'nbc prend le nombre le colonne dans une tableau
    Set Rng = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(nBval, NBC))
 
 
 
    Close
 
    NumFichier = FreeFile
 
 
 
    Open sNomFichier For Output As #NumFichier
 
        For Each Ligne In Rng.Rows
 
            sStr = ""
 
            For Each Cel In Ligne.Cells
 
                sStr = sStr & Cel.Text & sSep
 
            Next Cel
             sStr = Left(sStr, (Len(sStr) - 1))
            Print #NumFichier, sStr
 
        Next Ligne
 
    Close #NumFichier
 
End Sub

Cependant cette méthode prend trop de temps, j'ai donc un fichier avec un séparateur "|" comme je le veux mais l'exportation prend trop de temps..
Est t'il possible de reduir ce temps ?

J'ai donc penser de stocker dans ne variable l'intégralité des mes lignes tableaux et d'après print cette variable directement en fichier texte.

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
 
Sub Ecrire_CSV()
 
Dim Rng As Range, Ligne As Range, Cel As Range
 
Dim sStr As String, sNomFichier As String
 
Dim NumFichier As Integer
 
Dim sSep As String
Dim nBval As Integer
Dim NBC As Integer
 
 
    sSep = "|"
 
    sNomFichier = ThisWorkbook.Path & "\nomfich.txt"
    nBval = Application.WorksheetFunction.CountA(Suivi_FT.Worksheets("Base de données").[A:A]) 'NBval prend le du nombre de ligne dans le tableau
    NBC = Application.WorksheetFunction.CountA(Suivi_FT.Worksheets("Base de données").[1:1]) 'nbc prend le nombre le colonne dans une tableau
    Set Rng = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(nBval, NBC))
 
 
 ReDim Tableau(1 To nBval)
    Close
 
    NumFichier = FreeFile
 
 i = 1
 
    Open sNomFichier For Output As #NumFichier
 
        For Each Ligne In Rng.Rows
 
            sStr = ""
 
            For Each Cel In Ligne.Cells
 
                sStr = sStr & Cel.Text & sSep
 
            Next Cel
 
            Tableau(i) = Left(sStr, (Len(sStr) - 1))
 
 
 
            i = i + 1
        Next Ligne
        Print #NumFichier, Tableau
 
    '_______________ou encore___________________
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
 
    ts.Write Tableau
     ts.Close
 
'__________________________________________________________
 
End Sub

Cependant cela ne fonctionne pas.
Je veux donc trouvez un moyen rapide d'exporter une nombre important de ligne avec comme séparateur le "|".

Avez vous des piste ou des solutions pour moi ?
Cordialement,
Passepartout007

[Menhir]

Ma première manière d'exporter est rapide et performante mais ce n'est pas les bon séparateurs: (Je ne veux pas aller dans les paramètre Windows pour les changer.)

Une solution simple et fiable mais pas très rapide :
Tu crées un nouveau fichier.
Dans chaque ligne de la colonne A, tu mets une concaténation des données de la ligne correspondante de ton fichier source avec les séparateurs que tu veux.
Tu sauvegardes le fichier cible au format texte.

Comme tu n'as plus qu'une seule colonne, cette méthode s'en carre des séparateurs système.
Cette méthode a l'avantage de te permettre de contrôler parfaitement tes données, y compris les nombres de décimales et les dates en utilisant la fonction Format() si besoin.
Perso, j'y ai recours en dernière extrémité dans les cas de sauvegarde texte problématiques ou peu fiables.

[Passepartout007]

Bonjour Menhir,

Je te remercie pour ton retour, effectivement j'y ai penser, cependant cela n'est pas du tout rapide ... je l'ai déjà tester de mon coté.

Mon problème c'est le faite de boucler dans mes cellules qui prend du temps.

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
 
        For Each Ligne In Rng.Rows
 
            sStr = ""
 
            For Each Cel In Ligne.Cells
 
                sStr = sStr & Cel.Text & sSep
 
            Next Cel
 
            Tableau(i) = Left(sStr, (Len(sStr) - 1))
 
 
 
            i = i + 1
        Next Ligne

Comment optimisé la boucle ?

le Print prend beaucoup moin de temps.

Code :

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

1
2
3
For Each value In Tableau
        Print #NumFichier, value
        Next

et même si j'intègre le print a la boucle et que j'enlève la variable tableau cela n'optimise pas beaucoup plus le temps d'attente.
cordialement,
Passepartout007

[macgawel]

Bonjour.

1. Il y a une (bonne) raison pour que tu souhaites utiliser un séparateur autre ? Laquelle ?
En général, si on exporte un fichier en CSV c'est pour le communiquer à un autre programme, et je ne vois pas trop quel programme pourrait exiger spécifiquement un "|" en séparateur...

2. Tu peux utiliser un logiciel/utilitaire tierce ou tu veux tout faire dans Excel ?
Avec Notepad++ (Win) ou l'utilitaire sed (Linux) ça se fait très simplement (et très rapidement)

3. Sinon :
- Exporter en CSV
- Ouvrir le fichier (en tant que fichier texte)
- Utiliser la fonction Replace()

[Passepartout007]

Bonjour,

macgawel, merci pour ton retour. c'est plutôt des raison spécifique. Le problème de la fonction remplacer comme tu dis c'est que mon fichier contient du texte avec des ";" qui ne sont pas des séparateur. Il en vas de même avec les "," évidement.

J'ai décider de créer une variable tableau et de bouclé dedans au lieux de boucler directement dans Excel, cela améliorer nettement les performance. Ce n'est pas aussi performant que Save mais c'est mieux que les solutions proposer précédemment.

Voici le code : N'hésité pas si vous voyez des moyen de l'améliorer.

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
 
'****************************************************************
'Sauvegarde fichier text
'****************************************************************
'***************************************************
'macro export de la base de données
Public Sub Save_export_bas()
Dim Rng As Range
 
Dim sStr As String, sNomFichier As String
 
Dim NumFichier As Integer
 
Dim sSep As String
Dim nBval As Integer
Dim NBC As Integer
Dim LigneExport As String
 
 
    Application.ScreenUpdating = False 'désactive les actualisation d'écrans
    Application.Calculation = xlCalculationManual 'désactive les calcule dans excel
 
        sSep = "|" 'défini le séparateur
        Nom_Dos = "\Sauvegarde_Tracabilite\" 'le nom du dossier Nom_Dos prend comme valeur "\Sauvegarde_Tracabilité\"
        rep_out = Suivi_FT.Path & Nom_Dos ' Rep_Out prend la valeur de l'emplacement du fichier excel + Nom_Dos
        fic_bd = "Save_DataBase.txt" 'Le fichier base de données en txt prend le nom de "DataBase.txt"
        sNomFichier = rep_out & Format(Now, "yyyy-mm-dd_hh-nn-ss") & "_" & fic_bd & "_" & ".txt"
    nBval = Application.WorksheetFunction.CountA([A:A]) 'NBval prend le du nombre de ligne dans le tableau
    NBC = Application.WorksheetFunction.CountA([1:1]) 'nbc prend le nombre le colonne dans une tableau
    If Dir(rep_out) = "" Then 'Si Le dossier dans le qu'elle on stock le fichier txt n'existe pas alors
       MkDir (rep_out) 'on créé ce fichier
    End If 'fin de si
 
Set Rng = Suivi_FT.Worksheets("Base de données").Range(Suivi_FT.Worksheets("Base de données").Cells(2, 1), Suivi_FT.Worksheets("Base de données").Cells(nBval, NBC))
 ReDim Tableau(1 To nBval, 1 To NBC)
    Close
 
    NumFichier = FreeFile
 
 Open sNomFichier For Output As #NumFichier
 
Tableau = Rng
 
 
            For L = 1 To UBound(Tableau, 1)
            sStr = ""
                For c = 1 To UBound(Tableau, 2)
                    sStr = sStr & Tableau(L, c) & sSep
 
                Next c
                LigneExport = Left(sStr, (Len(sStr) - 1))
                Print #NumFichier, LigneExport
 
            Next L
Close #NumFichier
 
Application.Calculation = xlCalculationAutomatic 'réactive le calcule automatique dans excel
Application.ScreenUpdating = True 'reactive les actualisation d'écrans
 
End Sub
'fin macro export de la base de données
'****************************************

[Passepartout007]

Bonjour,

Suite à un export comme le message précédent, j'effectue un import de 32 colonne et plus de 4200 ligne.
J'exporte grace a cette macro :

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
 
'***************************************************
'macro export de la base de données
Sub export_bas()
Dim Rng As Range
 
Dim sStr As String, sNomFichier As String
 
Dim NumFichier As Integer
 
Dim sSep As String
Dim nBval As Integer
Dim NBC As Integer
Dim LigneExport As String
      Application.ScreenUpdating = False 'désactive les actualisation d'écrans
    Application.Calculation = xlCalculationManual 'désactive les calcule dans excel
 
        sSep = "|" 'défini le séparateur
        Nom_Dos = "\Base_txt\" 'le nom du dossier Nom_Dos prend comme valeur "\Base_txt\"
        rep_out = Suivi_FT.Path & Nom_Dos ' Rep_Out prend la valeur de l'emplacement du fichier excel + Nom_Dos
        fic_bd = "DataBase.csv" 'Le fichier base de données en txt prend le nom de "DataBase.txt"
         sNomFichier = rep_out & fic_bd
    nBval = Suivi_FT.Worksheets("Base de données").Application.WorksheetFunction.CountA([A:A]) 'NBval prend le du nombre de ligne dans le tableau
    NBC = Suivi_FT.Worksheets("Base de données").Application.WorksheetFunction.CountA([1:1]) 'nbc prend le nombre le colonne dans une tableau
    If Dir(rep_out) = "" Then 'Si Le dossier dans le qu'elle on stock le fichier txt n'existe pas alors
       MkDir (rep_out) 'on créé ce fichier
    End If 'fin de si
 
Set Rng = Suivi_FT.Worksheets("Base de données").Range(Suivi_FT.Worksheets("Base de données").Cells(2, 1), Suivi_FT.Worksheets("Base de données").Cells(nBval, NBC))
 ReDim Tableau(1 To nBval, 1 To NBC)
    Close
 
    NumFichier = FreeFile
 
 Open sNomFichier For Output As #NumFichier
 
Tableau = Rng
 
 
            For L = 1 To UBound(Tableau, 1)
            sStr = ""
                For c = 1 To UBound(Tableau, 2)
                    sStr = sStr & Tableau(L, c) & sSep
 
                Next c
                LigneExport = sStr
                Print #NumFichier, LigneExport
 
            Next L
Close #NumFichier
 
Application.Calculation = xlCalculationAutomatic 'réactive le calcule automatique dans excel
Application.ScreenUpdating = True 'reactive les actualisation d'écrans
 
 
End Sub
'fin macro export de la base de données
'****************************************

J'importe grâce à cette macro :

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
 
'****************************************
'Debut macro Import de la base de données
Sub import_bas()
Dim chemin As String
Application.ScreenUpdating = False 'désactive l'actualisation de l'écran
'If Application.Calculation <> xlCalculationManual Then Application.Calculation = xlCalculationManual 'désactive les calcule dans excel
  Nom_Dos = "\Base_txt\" 'le nom du dossier Nom_Dos prend comme valeur "\Base_txt\"
    rep_out = Suivi_FT.Path & Nom_Dos ' Rep_Out prend la valeur de l'emplacement du fichier excel + Nom_Dos
    fic_bd = "DataBase.txt" 'Le fichier base de données en txt prend le nom de "DataBase.txt"
    Suivi_FT.Sheets("Base de données").Range("2:100000").ClearContents 'Supprime tout les lignes du tableau
 
    'de la case A1 à la derniere case ou il y a du texte on utilise la fonction de séparer le texte par rapport au mort et on copie les données dans une céllule chacune
chemin = rep_out & fic_bd
 
'***********        *********            *********             **********
'*                  *       *            *       *             *        *
'******             *********            *********             **********
'*                  *       *            **                    *        *
'*                  *       *            *   *                 *        *
'*                  *       *            *       *             *        *
   Workbooks.OpenText Filename:=chemin, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, _
       2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 4), Array(10, 2), Array(11, 2), Array(12 _
        , 4), Array(13, 4), Array(14, 2), Array(15, 2), Array(16, 4), Array(17, 4), Array(18, 2), _
        Array(19, 2), Array(20, 4), Array(21, 4), Array(22, 2), Array(23, 2), Array(24, 4), Array(25, 4), _
        Array(26, 2), Array(27, 2), Array(28, 4), Array(29, 2), Array(30, 2), Array(31, 4), Array(32, 4)), _
        TrailingMinusNumbers:=True
 
 
     nBval = Workbooks(fic_bd).Application.WorksheetFunction.CountA([A:A])
     NBC = Workbooks(fic_bd).Application.WorksheetFunction.CountA([1:1]) 'on compte le nombre de colonne
     Range(Cells(2, 1), Cells(nBval, NBC)).Copy 'on copie le tableau
     Suivi_FT.Worksheets("Base de données").Activate 'on active notre excel base de donné ou se trouve le tableau principal
     Range("A2").PasteSpecial xlPasteValues 'on copie et on retournera la valeur des case
     Application.CutCopyMode = xlNone 'copie les données
     Workbooks(fic_bd).Close False 'ferme le worksheet temporaire
     Range(Cells(nBval + 1, 1), Cells(nBval + 10, 1)).EntireRow.Delete 'supprime les lignes en dessous de ce qu'on viens de copier
Call DonnéesText
Application.Calculation = xlCalculationAutomatic 'réactive le calcule automatique
Application.ScreenUpdating = True 'on réactive lacualisation de l'ecrans
 
 
End Sub 'fin de macro

Cependent la macro d'importation de fonctionne plus correctement le format défini pas les Array n'est pas resper et il me prend quel le 9 première colonne et ne vas pas jusqu'à la 32 éme.

Savez vous pourquoi ? ce code fonctionnais quand je fesais un SaveAS en CSV. mais vu que j'exporte en fichier .txt maintenant. Savez vous ou est mon problème ?
Cordialement,
Passepartout007