Enregistrer au format texte des sting contenant des double quotte

[christian820]

Bonjour à toutes et à tous,
Je cherche à enregistrer au format texte, séparateur tabulation, une feuille de calcul dont certaines cellules contiennent des mots entourés de ". Ors EXEL ajoute systématiquement des double quottes autour des double quotte existantes et aussi autour du texte entier. Je cherche à éviter cet ajout intempestif, mais en vain.
Quelqu'un aurait-il une idée?
Merci d'avance.
Christian

 

[MJ13]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonjour Christian

Pour ce genre de truc, il faudrait au moins un fichier texte et le fichier .XLS pour qu'on puisse tester 🙂.

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonjour Christian

Pour ce genre de truc, il faudrait au moins un fichier texte et le fichier .XLS pour qu'on puisse tester 🙂.

Bonjour MJ13,
Je joins deux fichiers, un qui est le fichier exel original et un le fichier texte produit.
Christian

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Apparemment, le fichier texte ne passe pas. Je joins donc le fichier xlsx. Il suffit de faire enregistré sous, format texte séparateurs tabulations pour voir le résultat.
Christian

 

[MJ13]

Re : Enregistrer au format texte des sting contenant des double quotte

Re

Pour le txt, il faut le zipper.

Car ce n'est pas pareil de travailler avec un fichier qu'on converti avec Excel, on peut avoir des surprises.

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

OK, voici le fichier zip

 

[MJ13]

Re : Enregistrer au format texte des sting contenant des double quotte

Re

As tu essayé de l'enregistrer en .prn puis de l'ouvrir via Excel avec l'assistant d'importation?

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

NOn, je n'ai pas essayé. En fait, le fichier .txt est destiné à alimenter une base de données MySQL et il doit être absolument au format .txt (ou .csv le cas échéant). Par ailleurs, le format .prn étant limité à 240 caractères par ligne ne répond pas à mon besoin (il y a 35 cellules par ligne dans ma feuille réelle, dont la plupart vont contenir plus de 10 caractères).

 

[MJ13]

Re : Enregistrer au format texte des sting contenant des double quotte

Re

Alors, cela va être plus compliqué. Bon courage.

 

[MJ13]

Re : Enregistrer au format texte des sting contenant des double quotte

Re

Sinon, tu peux toujours tester une macro comme celle-ci:

Code VBA:
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Sub lance_TXT()
Close
Ligne = ""
Open "c:\Temp\Test.txt" For Output As #1
For i = 3 To 7
For j = 1 To 2
Ligne = Ligne & Cells(i, j) & Chr(9)

Next
Ligne = Ligne & Chr(10)
Print #1, Ligne
Ligne = ""
Next
Close
End Sub

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Merci de cette réponse.
Je vais essayer cette macro.
Sinon, je pensais passer par access, pour voir si le résultat est le même...
Je te tiens au courant de mes essais.
Christian

 

[Paf]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonjour christian820, MJ13

le même principe de création de fichier texte, avec un code un peu différent:

Sub CreaText()
 Dim i As Long, DerLig As Long, Num As Byte
 
 DerLig = Range("A" & Rows.Count).End(xlUp).Row
 Num = FreeFile

 Open "C:\FICHTEST.txt" For Output As #Num

 For i = 2 To DerLig
    Print #Num, Cells(i, 1); Tab; Cells(i, 2); Tab; Cells(i, 3); Tab; Cells(i, 4)
 Next

 Close #Num
End Sub

à adapter en fonction du nombre de colonnes dans le classeur ( Ici prévu pour 4) et des répertoire et nom de destination

Bonne journée

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonsoir Michel,
J'ai résolu le problème en important la feuille exel dans access puis en faisant une exportation au format txt, séparateur tabulation, pas de délimitateur de texte.
Il est dommage que exel ne possède pas ces mêmes options...
Je testerai ta macro pour voir si c'est pas plus simple et je te tiendrai au courant.
Merci d'avoir réfléchi à mon problème
Christian

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonsoir PAF,
Comme je le disais à Michel, j'ai trouvé une solution avec access. Mais j'ai envie de régler le problème directement depuis exel. Donc, je testerai également cette macro et je te tiendrai au courant.
Merci d'avoir planché sur mon problème,
Christian

 

[christian820]

Re : Enregistrer au format texte des sting contenant des double quotte

Bonjour,
J'ai testé les deux macros proposées par MJ13 et par PAF, elles fonctionnent toutes les deux.
Merci de votre participation
Christian