Remplacer des " dans 1 fichier texte

[Patrice]

Bonjour *,

Je voudrais remplacer des ' par un autre caractère A par exemple, dans 1 fichier texte mais dans le code suivant (que m'avais donné Papaye, merci!) il y a une erreur de syntaxe puisque pour remplacer les ' il doit être entre deux ' ce qui génère une ereur. Je cherche donc une solution pour substituer la ' à remplacer par une syntaxe en hexa ou n'existe-t-il pas un caractère d'échappement???
Merci de votre aide
Patrice

Voici le code

Sub essai()

Open 'input.txt' For Input As #1 ' Ouvre le fichier.
Open 'output.txt' For Output As #2
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, MaLigne
MaLigneAmoi = Application.WorksheetFunction.Substitute(MaLigne, ''', 'A') <-- ICI l'erreur
Print #2, MaLigneAmoi
Loop
Close #1
Close #2

End Sub

 

[MichelXld]

bonjour Patrice

tu peux essayer

MaLigneAmoi = Application.WorksheetFunction.Substitute(MaLigne, Chr(34), 'A')



bon apres midi
MichelXld

 

[Patrice]

CA MARCHE GENIAL...merci beaucoup !