Discussion :

[PamelaGeek]

Bonjour,

J'ai un problème avec ma macro Excel en VBA :

Globalement, cette macro prend un fichier .txt en entrée, effectue divers traitements et créé un nouveau fichier .txt en sortie.

Une des données en entrée est un champ texte. Lorsque ce champ contient une virgule, le fichier de sortie encadre la phrase de guillemets.
Cela est visible lorsque j'ouvre le fichier sous .txt.

J'utilise :
ActiveWorkbook.SaveAs Temp, FileFormat:=xlText


j'ai lu qu'utiliser :
ActiveWorkbook.SaveAs Temp, FileFormat:=xlTextPrinter


pouvait aider mais pas dans mon cas, car cela enlève bien les guillemets intempestifs MAIS en ouvrant le fichier sous Excel, je perds toutes mes colonnes pour une colonne unique...

Auriez vous une idée pour dépasser ce problème ? Supprimer ou remplacer la virgule n'est pas une option.

Merci d'avance,

[Daniel.C]

Mets la macro suivante dans un classeur, affiche le fichier texte dans Excel et exécute la 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
Sub test()
    Dim Enrgt As String, C As Range, Temp As String
    Temp = "C:\Users\Daniel\SkyDrive\mpfe\temp4.txt"
    Close #1
    Open Temp For Output As #1
    For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        Enrgt = ""
        For i = 1 To Cells(C.Row, Columns.Count).End(xlToLeft).Column
            Enrgt = Enrgt & Cells(C.Row, i) & vbTab
        Next i
        Enrgt = Left(Enrgt, Len(Enrgt) - 1)
        Print #1, Enrgt
    Next C
    Close #1
End Sub

Remplace le nom et le chemin du fichier texte.

[PamelaGeek]

Merci.
J'ai l'impression que ce code va supprimer tous les guillemets de mon fichier non ?
Si c'est le cas, ce n'est pas ce que je souhaite.

Et en imaginant que cela fonctionne, puis je appeler cette méthode après avoir écrit dans le fichier de sortie ?

Merci.

[Daniel.C]

La macro ne va supprimer aucun guillemet. Une fois que ton fichier texte est ouvert dans Excel, apporte-lui les modifications nécessaires et exécute la macro quand tu veux le sauvegarder.

[PamelaGeek]

Dans ma macro principale, juste avant d'enregistrer mon fichier de sortie au format .TXT, j'appelle ta macro test, avec en paramètre, la chaine de caractère indiquant le chemin du fichier :

Code :

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

1
2
test (Temp)
ActiveWorkbook.SaveAs Temp, FileFormat:=xlText

cela ne change pas la fait que lorsque j'ouvre le fichier TXT avec le bloc note, j'ai toujours mes guillemets intempestifs lorsque ma chaine de caractère contient une virgule.

J'ai bien vérifié que la macro test() était appelée, avec le bon paramètre.

Peut-être que j'ordonne mal les appels ?

[Daniel.C]

Tu n'as pas à exécuter cette ligne :

Code :

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

ActiveWorkbook.SaveAs Temp, FileFormat:=xlText

Lorsque la macro est exécutée, le fichier texte est créé et fermé.