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 ?