P
Patrice
Guest
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
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