Supprimer le caractere "

Re : Supprimer le caractere "

Bonjour,

Il dédoubler les " afin qu'Excel comprenne qu'il s'agit d'un texte.
Donc : ...&""""C1""""
C1 contient le texte, par exemple → beau temps

abcd

Re : Supprimer le caractere "

Merci pour le tuyau, mais c'est ce j'avais fait. La macro est la suivante:

Sub Macro_ajout_caractere()

Dim i As Long

For i = 2 To 20

If IsEmpty(Cells(i, 3)) Then
Cells(i, 3).Value = -99999
Else: Cells(i, 3) = """" & Cells(i, 3) & """"
End If

Next i


Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=\\path\meteo.txt, FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close SaveChanges:=False
Windows("fichier_meteo.xls").Activate

End Sub

Pas de probleme pour ajouter le caractere " quand j'ai du texte dans la colonne 3 (quand une cellule est vide, alors je mets -99999).

Le probleme intervient qudn je sauve le resultat en fichier texte: chaque caractere " est alors entoure de 2 "", et ca donne ca au final:

*chantier *date *commentaire_meteo
lyon 01/04/2008 """beau temps"""
rennes 01/04/2008 -99999
paris 01/04/2008 """orage chantier stoppe"""

alors que je souhaite
*chantier *date *commentaire_meteo
lyon 01/04/2008 "beau temps"
rennes 01/04/2008 -99999
paris 01/04/2008 "orage chantier stoppe"

Le probleme viendrait-il du FileFormat:=xlText?

J'ai essaye plusieurs formats mais sans succes!

Auriez-vous une idee? Merci!

Re : Supprimer le caractere "

Bonjour,


Pour dire à excel que le format est du texte il faut faire précéder le texte d'un simple apostrophe par exemple Cells(i, 3) = "'" & Cells(i, 3) ou Cells(i, 3).Value = "'-99999"

En enregistrant le fichier au format texte c'est excel qui entoure le texte d "

GIBI

Re : Supprimer le caractere "

hello

et en post traitement de ton fichier txt
rechercher """ remplacer par "
ça marche même avec le bloc-note