Macro Export d'onglets au format .txt

Version imprimable

25/05/2020, 11h29
elotd

Macro Export d'onglets au format .txt

Bonjour à tous,

Je suis novice en VBA.
Je souhaite réaliser une macro afin d'autmatiser l'export de tous les onglets de mon fichier Excel au format .txt
Pour cela j'ai utilisé l'enregistreur de macro en partie mais mon problème est que certains champs, qui contiennent des virgules, sont entourés de guillemets lorsque les fichiers sont exportés par la macro. Cela ne se produit pas quand je fais la manipulation à la main.

Après plusieurs recherches, j'ai essayé le format "xlTextPrinter" mais cela ne me convient pas; j'ai regardé du côté du panneau de configuration pour changer le caractère délimitateur de liste et mettre le ";", cela fonctionne sur mon PC. Cependant l'outils sera utilisé sur différents ordinateurs et je ne peux pas imposer la configuration aux autres personnes suceptibles d'utiliser cet outil.

J'en appelle à votre aide pour savoir comment faire, si cela est possible, pour avoir une solution "viable" peu importe la configuration du PC ?

PS : J'ai aussi vu qu'il était possible de parcourir les fichiers et de remplacer les guillemets mais je ne maîrise pas du tout la lecture/ouverture/ecriture de fichiers en VBA ...

Bonjour,

Tiré de cette page, et légèrement modifié pour fonctionner avec fichiers .xls et .xlsm, sauve la feuille active sous le nom nom_du_fichier.txt:

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
46
'https://excelribbon.tips.net/T009243_Specifying_a_Delimiter_when_Saving_a_CSV_File_in_a_Macro.html
Sub CreateFile()
    Dim sFName As String
    Dim Rows As Long
    Dim Cols As Long
    Dim J As Long
    Dim K As Long
    Dim sTemp As String
    Dim sSep As String
 
    sSep = ";"  'Specify the separator to be used
 
    sFName = ActiveWorkbook.FullName
    If sFName Like "*.xls*" Then
        sFName = Left(sFName, InStrRev(sFName, "."))
        sFName = sFName & "txt"
        Open sFName For Output As 1
 
        With ActiveSheet
            'Number of rows to export is based on the contents
            'of column B. If it should be based on a different
            'column, change the following line to reflect the
            'column desired.
            Rows = .Cells(.Rows.Count, "B").End(xlUp).Row
            For J = 1 To Rows
                sTemp = ""
                Cols = .Cells(J, .Columns.Count).End(xlToLeft).Column
                For K = 2 To Cols
                    sTemp = sTemp & .Cells(J, K).Value
                    If K < Cols Then sTemp = sTemp & sSep
                Next
                Print #1, sTemp
            Next J
        End With
 
        Close 1
 
        sTemp = "There were " & Rows & " rows of data written "
        sTemp = sTemp & "to this file:" & vbCrLf & sFName
    Else
        sTemp = "This macro needs to be run on a workbook "
        sTemp = sTemp & "stored in the .XLS* format."
    End If
 
    MsgBox sTemp
End Sub

A adapter pour sauvegarder les feuilles une à une (ou l'une à la suite de l'autre).
Cordialement.

17/06/2020, 16h52
Menhir

Citation:

Envoyé par elotd

Je souhaite réaliser une macro afin d'autmatiser l'export de tous les onglets de mon fichier Excel au format .txt
Pour cela j'ai utilisé l'enregistreur de macro en partie mais mon problème est que certains champs, qui contiennent des virgules, sont entourés de guillemets lorsque les fichiers sont exportés par la macro. Cela ne se produit pas quand je fais la manipulation à la main.

Il aurait été préférable que tu présentes le code qui permet cet enregistrement.

Je vais donc supposé que tu as utilisé la méthode SaveAs pour faire cet enregistrement.
Le problème, c'est que Excel utilise par défaut les paramètres français (séparateur ";") et VBA les paramètres anglophone (séparateur ",").

As-tu essayer de mettre le paramètre "Local" à True dans ton SaveAs ?
Lire ça : https://docs.microsoft.com/fr-fr/off...ectedfrom=MSDN