Supprimer le caractere "

[jerome_l]

Salut,

J'ai un gros ficheir excel dont voici un petit extrait:

*chantier *date *commentaire_meteo
lyon 01/04/2008 beau temps
rennes 01/04/2008 nuage pluie

Une macro VB est censee sauver ce fichier en .txt, pour que le fichier texte soit charge dans un software (qui est +/- une database).

Le probleme concerne la 3eme colonne (commentaire meteo), qui peut comprendre un seul ou plusieurs mots (c'est un champ texte). Lorsque le fichier XL est sauve en .txt, par defaut, aucun identifient n'est ajoute pour reconnaitre le debut et la fin de la chaine de caractere. le .txt se presente comme ca:
*chantier *date *commentaire_meteo
lyon 01/04/2008 beau temps
rennes 01/04/2008 nuage pluie

J'ai essaye de bidouiller la 3eme colonne en concatenant celle-ci avec le caractere " en debut de chaine, mais qudn je sauve en .txt, j'ai ca :
*chantier *date *commentaire_meteo
lyon 01/04/2008 """beau temps"
rennes 01/04/2008 """nuage pluie"

Et le soft dans lequel je dois charger le fichier est perdu car il y a trop de """ !!!

Comment pourrais-je obtenir ce format en .txt:
*chantier *date *commentaire_meteo
lyon 01/04/2008 "beau temps"
rennes 01/04/2008 "nuage pluie"

Merci pour le coup de main!

J.

 

[abcd]

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

 

[jerome_l]

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!

 

[GIBI]

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

 

[jmd2]

Re : Supprimer le caractere "

hello

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