Fichier excel entxt avec "

Question

J'enregistre un tableau Excel en mode txt.Pas de soucis sauf:
 - quand la cellule contient un " (guillemet) ou une ,(virgule)
le texte est alors entouré avec des guillemets.

Ceci pose un pb pour l'exploitation du txt.

Peut on éviter cela

Merci

cs_loulou69 · Answer

Bonjour donc quand on le sait on prévient avant de guérir

Avant d'enregistrer le fichier excel en texte (événement BaforeSave) , on parcourt les cellules et on remplace les guillemets et virgules par d'autres caractères (exemple simple cote et point) qui sont acceptables pour l'utilisateur final.


Sub TraiterFeuilleAvantEnregistrer(Feuille)
Dim lastCol
Dim lastRow
Sheets(Feuille).Activate
lastCol = ActiveSheet.Range("a1").End(xlToRight).Column
lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row

For each Cell in  ActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select

 Cell.Value = Replace(Cell.Value,Chr(34),"'")
  Cell.Value = Replace(Cell.Value,",",".")
Next
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call TraiterFeuilleAvantEnregistrer(Feuil1)
End Sub

dbou76 · Answer

Merci de ta réponse.

Par contre, je ne peux pas remplacer les " ou ; ,ils sont utilisés dans l'application finale.

Bye

cs_loulou69 · Answer

la commande Replace fait cela

Chr(34) est le caractère double-cote on le remplace par une simple cote

Cell.Value = Replace(Cell.Value,Chr(34),"'")

Fichier excel entxt avec "

3 réponses

Votre réponse

Discussions similaires