Guillements et export

frbos · 25 Octobre 2007

Bonjour
je dois exporter une page en format txt efin d'obtenir des lignes de la forme

param = "chaine de caracteres"

Dans excel, jai mis

param | = | "chaine de caractere"

Tout va bien a part le traitement des guillemets... J'en obtiens 3, ou pas du tout suivant ce que je mets dans excel.

Est-ce que quelqu'un a deja eu le probleme ?

Staple1600 · 25 Octobre 2007

Re : Guillements et export

Bonsoir

Peut-etre des indices ici:
https://www.excel-downloads.com/threads/guillement-dans-fichier-txt.83044/

frbos · 26 Octobre 2007

Re : Guillements et export

Merci
J'ai trouvé une solution viable.

Sub export()
repertoire = ThisWorkbook.Path
Open repertoire & "\pilote.txt" For Output As #1
For i = 1 To 50
Print #1, Cells(i, 1); Cells(i, 2); Cells(i, 3)
Next i
Close #1
End Sub

Ca exporte exactement ce qu'il y a dans la cellule, sans guillemets s'il n'y en a pas, des guillemets simples s'il y en a dans la cellule...

Guillements et export

frbos

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

frbos

XLDnaute Nouveau

Discussions similaires