Discussion :

[Coco47]

Bonjour à tous,

J'ai un soucis avec les apostrophes et les guillemets lors de la sauvegarde d'un fichier de données en fichier texte.

Voici à quoi ressemble mon tableau :



Et je veux que mon fichier texte à la sortie ressemble à ça :

'00000001H1','00000015D1','00000020J4','00000026H5'

Pour cela j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
wbOut.Worksheets(1).Range("A1").Value = "'" & wbOut.Worksheets(1).Range("A1").Value & "'"
For Each cell In wbOut.Worksheets(1).Range("A2:A" & wbOut.Worksheets(1).Range("A65535").End(xlUp).Row)
    wbOut.Worksheets(1).Range("A1").Value = wbOut.Worksheets(1).Range("A1").Value & ",'" & cell.Value & "'"
    cell.ClearContents
Next cell
 
'On on sauvegarde le fichier en .txt pour import dans VASCO
Application.DisplayAlerts = False
 
'wbOut.SaveAs Filename:=sOutput, FileFormat:=xlTextPrinter, CreateBackup:=False
wbOut.SaveAs Filename:=sOutput, FileFormat:=xlTextWindows, CreateBackup:=False
wbOut.Close
 
Application.DisplayAlerts = True

Et là j'ai plusieurs problèmes, si j'utilise le format xlTextWindows dans ma fonction SaveAs je me récupère des guillemets au début et à la fin de ma chaîne de caractères et la première apostrophe a disparue dans le processus.

"00000001H1','00000015D1','00000020J4','00000026H5''"

Si j'utilise le fomat xlTextPrinter je n'ai plus les guillemets en début en fichier mais l'apostrophe est toujours absente et il y a des sauts de lignes automatique qui se font tous les 240 caractères (oui en fait mon tableau fait plus de 4 lignes)

Auriez-vous une idée de comment je pourrais faire pour avoir le format que je recherche ?

[Thumb down]

bonjour,
je ne suis pas certain d'avoir compris!

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
Sub test()
Dim txt As String
With Sheets("Feuil1").Range("A1").CurrentRegion
    For I = 2 To .Rows.Count
    If txt <> "" Then txt = txt & ","
        txt = txt & "'" & .Cells(I, 1).Value & "'"
    Next
End With
CreerFichierText Environ("Temp") & "\Feuil1.CSV", txt
End Sub
Private Sub CreerFichierText(Fichier As String, txt As String)
Dim fso, NewFichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFichier = fso.OpenTextFile(Fichier, 2, True)
NewFichier.Write txt
NewFichier.Close
Set NewFichier = Nothing
Set fso = Nothing
End Sub

[marot_r]

Bonjour.

Ce n'est pas un format très standard de fichier .txt.

Je te suggère d'écrire directement dans le fichier sans passer par les fonctions d'export de Excel.

Ici un exemple de 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
 
dim numFic as long: numFic=freefile()
dim nomFic as string:nomFic="x:\TonChemin\TonFichier.txt"
open nonFic for output as #numfic
 
dim cell as range:
 
for each cell in wbOut.Worksheet(1).colums("A").cells
 
   if cell.value="" then
       exit for 'il n'y a plus de données
   end if
 
   if cell.row>1 then
       print #numfic, ","; 'Ajoute la virgule entre les éléments
   end if
 
   print #numfic, "'" & cell.value & "'"; 'Ajoute l'élément à la suite des autres dans le fichier
next cell
 
print #numFic, "" 'Termine le fichier
close #numFic

A+

[Coco47]

@Thumb down : Bah apparemment tu as bien compris vu que ta solution marche super bien , merci beaucoup.

@marot_r : Oui ce n'est pas très standard c'est un fichier qui sert pour import dans un autre soft plus loin. J'avoue que je me suis posé la question, après coup, de passer par les fonctions fso (ce qui marche) mais j'imagine que ta solution fonctionne aussi.

En tous cas merci à tous les 2 pour ces solutions.

[marot_r]

Bonjour.

Les 2 solutions sont sur le même principe, tu écris directement le fichier texte sans utiliser les fonctions de Excel.

La mienne utilise un mécanisme qui existait déjà avant les librairies FSO.

A+