xlfileformat + enregistrement sans ""

[Ludo93M]

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

 

[skoobi]

Re : xlfileformat + enregistrement sans ""

Bonjour Ludo93M,

ce code récupère toutes les cellules de la colonne A pour créer un fichier .asc correspondant:

Sub Txt()
fichier = "C:\FichierTxt.asc"
Open fichier For Output As #1
For i = 1 To Range("A65536").End(xlUp).Row
  Print #1, Range("A" & i).Value
Next
Close #1
End Sub

A adapter à ton cas.

 

[Ludo93M]

Re : xlfileformat + enregistrement sans ""

Bonjour Skoobi,

merci pour ton aide cela fonctionne, mais à partir de ton exemple comment puis-je lui demander de transférer les données de l'onglet toto, sachant que j'ai dans mon classeur plusieurs onglet de traitement de données ?

Merci

Ludovic

 

[Ludo93M]

Re : xlfileformat + enregistrement sans ""

En complément d'information et pour clôturer le sujet :
Private Sub T1()

Dim NomFichierASC As String
Dim DateSystème As String * 10
Dim DateSSAAMMJJ As String * 8

DateSystème = Date
DateSSAAMMJJ = Mid(DateSystème, 7, 4) & Mid(DateSystème, 4, 2) & Mid(DateSystème, 1, 2)
fichier = "C:\Documents and Settings\karl\Desktop\test"

NomFichierASC = NomFichierCSV & "_" & DateSSAAMMJJ & ".ASC"

Open fichier & NomFichierASC For Output As #1
For i = 1 To Worksheets("T1").Range("A65536").End(xlUp).Row
Print #1, Worksheets("T1").Range("A" & i).Value
Next
Close #1
End Sub