export en fichier texte avec delimiteurs spécifiques

[jeep90]

Bonsoir à tous

Mon problème est d'exporter une feuille excel en fichier txt.
Cette feuille comporte 2 colonnes (A et B) de 7000 lignes.. Contraintes : le format des cellules doit rester en texte.
la struture du fichier texte doit etre le suivant :
colonne A , 'colonne B'

Pour ce qui est du séparateur virgule (au lieu du point virgule) et la création du ficher txt c'est ok grace à un code qui a été développé par l'un ou l'une de vous (je ne me souviens plus de la personne) mais par contre, je n'arrive pas à placer les délémiteurs ' (ou bien chr(39) ) entre les valeurs de la colonne B.

Je vous joins le code d'export du fichier ci-dessous :

Sub exportfile()
Chemin = ThisWorkbook.Path
Fichier = "predads.txt"
Sep = ","
'----------------------
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & "\" & Fichier, True)
With Sheets("ETABLISSEMENT")
For Each X In .Range("A1:" & .Range("A65536").End(xlUp).Address)
For Each Y In .Range(X, .Cells(X.Row, 256).End(xlToLeft))
Var1 = Var1 & Sep & Y.Value
Next
a.WriteLine Right(Var1, Len(Var1) - 1): Var1 = ""
Next
End With
a.Close
End Sub

Vous en remerciant vivement par avance..

 

[Roland_M]

Re : export en fichier texte avec delimiteurs spécifiques

bonsoir,

puisqu'il s'agit que de 2 colonnes A et B, alors comme ceci:

Sub ExportFile()
Chemin$ = ThisWorkbook.Path: Fichier$ = "predads.txt"
CheminFichier$ = Chemin$ & "\" & Fichier$
With Sheets("ETABLISSEMENT").UsedRange: NoDernLig& = .Cells(.Rows.Count, .Columns.Count).Row: End With
With Sheets("ETABLISSEMENT")
Open CheminFichier$ For Output As #1
 For L& = 1 To NoDernLig&
  V$ = .Cells(L&, 1) & "," & "'" & .Cells(L&, 2) & "'"
  Print #1, V$
  'Print #1, Right(V$, Len(V$) - 1) ' voir si comme ceci est utile !? sinon , V$ ça suffit !
 Next
End With
Close #1
End Sub

 

[jeep90]

Re : export en fichier texte avec delimiteurs spécifiques

OUAAAHHH merci Cher ROLAND_M c'est parfait !!! c'est exactement cela et cela boucle définitevement mon projet...
Un grand merci à vous et à ROGER2327 pour votre patience et votre dévouement...