Autres Message à supprimer

[Staple1600]

Bonjour

Comment éviter qu'en enregistrant un fichier texte ouvert
dans Excel, que ce perfide tableur (car d'habitude, il est sympa)
ne rajoute à l'innocent fichier texte des guillements non désirés
qui déflore son intégrité physique de petit (ou gros) fichier texte.

En effet, que je choisisse les formats suivants:
Texte unicode
Texte avec séparateur

et le difficilement réparable se produit toujours telle une malédiction méfitique.

Car oui je l'avoue, j'aime le guillemet mais le "monoguillemet"
celui nécessaire à :range("A1")
mais pas cette hérésie "range(""A1"")"
qu'a osé commettre Excel sans qu'on lui demande.

Qui saura, qui saura...
rompre cette malédiction?

Qui saura me rendre les seules et uniques guillemets
nécessaire à VBA?

Merci d'avance

et bonne journée à tous.

 

[mutzik]

Re : Vade retro guillemetas

Coucou à tous,

A mon sens c'est plus que logique, tu demandes à excel d'enregistrer ton fichier en format texte, il convertit les cells en texte. Il faut faire 'enregistrer sous' et choisir le format excel
(si j'ai bien tout compris, sinon je fais un tour dans le ZOP)

 

[Bernard_XLD]

Re : Vade retro guillemetas

Salut Staple1600, mutzik, Jmps, le forum

pour contourner ce problème, déclare tes cellules en format texte.
j'ai modifié ton fichier avant et maintenant tu peux l'enregistrer et le réouvrir sans problème

Cordialement, A+

Regarde la pièce jointe avant.zip

 

[Bernard_XLD]

Re : Vade retro guillemetas

j'avais compris donc je précise
(en plus je t'ai renvoyé le txt et non le xls qui illustrait ce que je disais)
deux solutions vba
1-ouvrir tes données avec opentext en précisant tes données au format texte, plus de problème ensuite à l'enregistrement, les cellules étant formatées en texte, plus de guillemets parasites
2-écrire ton fichier en séquentiel (Open "FICHTEST" For Output) pour maitriser le processus d'écriture sans utiliser les convertisseurs d'excel, là aussi plus de guillemets parasites.

A+

 

[Bernard_XLD]

Re : Vade retro guillemetas

regarde la, tu devrais trouver ton bonheur

A+

https://www.excel-downloads.com/threads/copier-ds-un-note-pad.59015/
https://www.excel-downloads.com/threads/boite-de-dialogue-pour-diriger-lexport.34864/
https://www.excel-downloads.com/threads/export-csv-ou-txt.22639/
https://www.excel-downloads.com/threads/exporter-au-format-texte.7575/

 

[lacorse33]

Re : Vade retro guillemetas

Bonsoir Staple1600 et le forum,

Je pense que tu n'étais pas obligé de passer par Word.
Voici ce que j'ai fait :
- Ouvrir Excel en formatant le 2 première colonne au format "Texte"
- Copier/Coller le contenu de ton fichier Texte dans Excel
- Copier les données dans le fichier Excel
- Ouvrir le bloc notes et coller les données.

Normalement, tu n'as plus de guillemets.
Je te fournis le fichier que j'ai fait.

@+
Béa

 

[Bernard_XLD]

Re : Vade retro guillemetas

je regarderai cela ce soir mais à mon avis il faut tout simplement adapter

A+

 

[Bernard_XLD]

Re : Vade retro guillemetas

Bonjour

j'ai testé la procédure sur le fichier avant.txt, le résultat est en pièce jointe
la, faudrait plus d'infos parce que cela fonctionne sur ton fichier test

A+

Regarde la pièce jointe temp.zip

Sub essai()
Dim Nom_Fichier As String, Cel_en_Cours As Range
Nom_Fichier = "c:\temp\temp.txt"
If Not (Dir(Nom_Fichier, vbNormal) = "") Then Kill Nom_Fichier
On Error GoTo Fin
Open Nom_Fichier For Output As #1
For Each Cel_en_Cours In ThisWorkbook.Sheets(1).Range("A1:A" & Range("A65536").End(xlUp).Row)
Print #1, Cel_en_Cours.Value
Next Cel_en_Cours
Close #1
Exit Sub
Fin:
Close #1
End Sub

 

[Bernard_XLD]

Re : Vade retro guillemetas

une idée, la proc ne sauve que les données en colonne A, as tu réparti tes données sur plusieurs colonnes ?

 

[Bernard_XLD]

Re : Vade retro guillemetas

désolé de ne répondre que maintenant mais je viens seulement de recevoir ton post hors je m'aperçois qu'il date de plusieurs jours, vous avez dit bizarre???