L
Ludo93M
Guest
Bonjour,
tout d'abord merci de votre aide sur une problématique qui me fait tourner en rond.
Je souheterais réaliser la sauvegarde d'une feuille au format ASC où au format texte séparateur tabulation. Cette étape se déroule correctement mais le formatage final n'est pas bon.
En entrée :toto,1,2,3,4
Au final :
"toto,1,2,3,4"
L'objectif est d'avoir : toto,1,2,3,4
J'ai essayé l'ensemble des xlfileformat, sans grand succès. Voici la macro
-------------------------------------
Private Sub CommandButton1_Click()
Windows("test.xls").Activate
Columns("A:A").Select
Selection.Copy
Windows("Transfert.xls").Activate
Worksheets("TRANSFERT").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\karl\Desktop\FichierTxt" & ".ASC", FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
End Sub
-----------------------------------
Merci
Ludovic
tout d'abord merci de votre aide sur une problématique qui me fait tourner en rond.
Je souheterais réaliser la sauvegarde d'une feuille au format ASC où au format texte séparateur tabulation. Cette étape se déroule correctement mais le formatage final n'est pas bon.
En entrée :toto,1,2,3,4
Au final :
"toto,1,2,3,4"
L'objectif est d'avoir : toto,1,2,3,4
J'ai essayé l'ensemble des xlfileformat, sans grand succès. Voici la macro
-------------------------------------
Private Sub CommandButton1_Click()
Windows("test.xls").Activate
Columns("A:A").Select
Selection.Copy
Windows("Transfert.xls").Activate
Worksheets("TRANSFERT").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\karl\Desktop\FichierTxt" & ".ASC", FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
End Sub
-----------------------------------
Merci
Ludovic