Workbook save As : problème tabulation

Bonjour,

Lorsque je récupère mes données sur Excel, j'applique ce type de format :

Workbooks.OpenText FileName:=NomFich, Origin:=xlWindows, _
            StartRow:=1, DataType:=xlDelimited, ConsecutiveDelimiter:=True, Tab:=True, Comma:=True, Space:=True
        DoEvents

Une fois les données copiées sur mon classeur Excel, j'effectue des traitement particulier dessus et j'enregistre mon fichier excel avec ce format :

Worksheets("feuil1").SaveAs FileName:=chemin & "\feuil1.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False

La sauvegarde des donnée se déroule bien mais mes données sont séparés par des tabulations et non par des espaces, y a t-il un moyen de palier à ce problème ?

Pouvez-vous m'aider svp ?

Bonjour,

Essaie ainsi :

Worksheets("feuil1").SaveAs FileName:=chemin & "\feuil1.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False, Local:=True

Mais pas convaincu !...

Cdlt.

Salut,

Non ça ne fonctionne pas, mais merci d'avoir essayé.

Bonjour SpaceX,

Bonjour Jean-Eric,

Mis à part, changer la tabulation par des ";" comme suit :

ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename & ".txt", FileFormat:=xlCSV, Local:=True

Je ne trouve pas le moyen de remplacer par des espaces.

Cordialement,

SpaceX a écrit :

La sauvegarde des données se déroule bien mais mes données sont séparées par des tabulations et non par des espaces,

y a-t-il un moyen de palier à ce problème ?

c'est vraiment bizarre ! et d'autant plus curieux que ton pseudo est SpaceX et pas TabX !

(désolé, j'ai pas d'solution à proposer ! )

dhany