creation d'une macro excel modifiant des caracteres

Bonjour,

Je dois créer une macro-commande sur Excel permettant de modifier des caractères automatiquement mais je ne sais pas comment.

Par exemple j'ai ce document:

PMO|29||33937998401008|3|060930255001|déversoir en tète de stat|A2||||||||||||
PMO|31||33937998401008|3|060930255001|Entrée Station |A3||||||||||||
PMO|32||33937998401008|3|060930255001|sortie station |A4||||||||||||
PMO|41||33937998401008|3|060930255001|boues produites avant tra|A6||||||||||||
PMO| 5||33937998401008|3|060930255001|Graisses évacuées sans tr|A9||||||||||||
PMO|6||33937998401008|3|060930255001|Sable produit évacué|A10||||||||||||
PMO|7||33937998401008|3|060930255001|Refus dégrillage produit |A11||||||||||||

Il faut que je change A2 en S2, A3 en S3 et ca pour plusieurs documents.
Ces caractères sont toujours placer au même endroit.

Par exemple :


PMO|29||33937998401008|3|060930255001|déversoir en tète de stat|S2||||||||||||
PMO|31||33937998401008|3|060930255001|Entrée Station |S3||||||||||||
PMO|32||33937998401008|3|060930255001|sortie station |S4||||||||||||
PMO|41||33937998401008|3|060930255001|boues produites avant tra|S6||||||||||||
PMO|5||33937998401008|3|060930255001|Graisses évacuées sans tr|S9||||||||||||
PMO|6||33937998401008|3|060930255001|Sable produit évacué|S10||||||||||||
PMO|7||33937998401008|3|060930255001|Refus dégrillage produit |S11||||||||||||

Ce sont des fichiers texte (.txt) au format Sandre, ils s'ouvrent avec un logiciel de traitement de texte.

Merci de votre aide.

Code:

---

Columns("H:H").Replace What:="A", Replacement:="S", LookAt:=xlPart, _

---

Mon ami fring me pose une question qui me fait poser une question : Tu les ouvres dans Excel, tes fichiers texte ?
Parce que sinon, tu as la solution longue qui consiste à ouvrir tes fichiers avec Open, à lire chaque ligne, à faire un split sur la ligne avec "|", à remplacer S par A pour chaque 8 ième mot de ta ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Test() Dim Ligne As String, NewLigne, tablo as variant Open "C:\NewFich.txt" For Output As #1 Open "C:\OldFich.txt" For Input As #2 While Not EOF(2) Input #2, Ligne Tablo = Split(Ligne,"|") Tablo(7) = Replace(Tablo(7),"S", "A") For i = 0 to Ubound(Tablo) - 1 NewLigne = NewLigne & Tablo(i) & "|" Next Print #1, NewLigne NewLigne = "" Wend Close #2 Close #1 'Et pour donner au nouveau fichierle nom de l'ancien Name "C:\OldFich.txt" As "C:\OldFich.txt_sav.txt" Name "C:\NewFich.txt" As "C:\OldFich.txt" 'Kill "C:\OldFich.txt_sav.txt" ça je le ferai après vérif End Sub

---

Non en faite ce sont des fichiers textes, qu'on ouvre avec le bloc note ou word, mais on ma di de creer une macro pour rentre le changement de caracteres automatiquement qui au préalable se fesait a la main.

Le code que tu ma donner consiste a quoi, car je comprend pas?

Le dernier code ouvre ton fichier texte -> Tu remplaces OldFich par le nom de ton fichier et tu adaptes le chemin.

Successivement,
- Il crée un nouveau fichier pour pouvoir coller le texte modifié (NewFich)
- Il lit OldFich ligne par ligne,
- Il crée un tableau des données de la ligne avec split, le séparateur de données étant "|"
Dans le tableau
- Il remplace S par A dans la donnée qui va bien (Tablo(7))
- Il recrée la ligne
- ligne qu'il enregistre dans le nouveau fichier.
Quand toutes les lignes du fichier OldFich ont été traitée,
- Il ferme Oldfich et NewFich.

Enfin, les trois dernières lignes servent à redonner au fichier créé (NewFich) son ancien nom (OldFich)
Kill détruit la copie de OldFich mais je te conseille, pour tester, de ne pas la valider.
Ainsi, tu gardes une sauvegarde de ton ancien fichier tel qu'il était sous un nouveau nom.
Si tu as un problème, tu supprimes le fichier créé (qui porte le nom d'origine) et tu rebaptises la copie de l'original, en lui rendant son ancien nom. (C:\OldFich.txt_sav.txt -> C:\OldFich.txt) dans mon exemple
Bon après-midi

Mais si je reprends la première solution proposée, tu peux ouvrir ton fichier texte sous Excel et travailler dans la feuille de calculs ainsi créée.

Code:

---

1 2 3 4 5 6 7

Sub test() Workbooks.OpenText Filename:="D:\Ton répertoire\TonFichier.txt", Origin:= _ xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _ , Space:=False, Other:=True, OtherChar:="|" Columns("H:H").Replace What:="A", Replacement:="S", LookAt:=xlPart End sub

---

Par contre, pour l'enregistrer, comme les séparateurs sont des "|", tu devras enregistrer les données cellule par cellule. Je pense donc que le tps d'exécution sera plus grand (?)
C'est toi qui vois ;)
A+

(si le code pour écrire les données d'une feuille de calculs dans un txt, t'intéresse, mais je ne vois pas l'intérêt ici...)

Désolé je suis un peu blonde, mais je comprend pas!
Le code que tu ma donné:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Test() Dim Ligne As String, NewLigne, tablo as variant Open "C:\NewFich.txt" For Output As #1 Open "C:\OldFich.txt" For Input As #2 While Not EOF(2) Input #2, Ligne Tablo = Split(Ligne,"|") Tablo(7) = Replace(Tablo(7),"S", "A") For i = 0 to Ubound(Tablo) - 1 NewLigne = NewLigne & Tablo(i) & "|" Next Print #1, NewLigne NewLigne = "" Wend Close #2 Close #1 'Et pour donner au nouveau fichierle nom de l'ancien Name "C:\OldFich.txt" As "C:\OldFich.txt_sav.txt" Name "C:\NewFich.txt" As "C:\OldFich.txt" 'Kill "C:\OldFich.txt_sav.txt" ça je le ferai après vérif End Sub

---

Je le met ou? j'ouvre une feuille excel et je le met dans une macro?

Desolé

En faite je me suis mal expliquer les caracteres a modifier sont:
A3=S1
A4=S2
A2=S16
A6=S4
A5=S3

Donc ca doit pas etre le meme code

Si ! "Les" codes fournis font la même chose et remplace le A par un S dans la 8ième colonne de ton txt.
Avant "d'estimer" que des codes ne font pas l'affaire, teste-les. Sinon, il sert à rien "con" se décarcasse ! :evil:

Où placer le code ?
Dans un module d'un classeur tout neuf.
Dans Excel -> Menu Outils -> Macros -> VB Editor
Dans VB Editor -> Insertion -> Module
Et dans la feuille qui s'ouvre, tu colles le code. Puis tu remplaces OldFich par le chemin qui conduit à ton fichier et le nom de ton fichier.
Pour NewFich, tu ajoutes le chemin et .txt à la fin
Ex :
Chemin = "C:\Documents and Settings\TonNom\Mes documents\"
Pour OldFich => "C:\Documents and Settings\TonNom\Mes documents\TonFichier.txt"
Pour NewFich => "C:\Documents and Settings\TonNom\Mes documents\NewName.txt"
S'il sont là, remplace "TonNom" par ton nom :mouarf:
Tu dis ;)

Si tu ne parviens pas à faire ça, je ne vois pas comment t'aider plus. :(
Bon après-midi

J'te remercie pour ton aide, mais ca me fait rien. C'est pas grave jvais essayer de me debrouiller. merci bonne apres midi

As-tu tenté d'ouvrir ton txt avec Notepad après avoir lancé la macro ?
Montre le code tel que tu l'a utilisé, avec les chemins et les noms de fichiers ;)

A tout hasard : Tu as bien exécuté la macro, une fois placée dans le module
Tu fais un clic n'importe où dans la macro et un clic sur la flèche bleue ►
ou bien, tape la touche F5
Les deux exécutent la macro
A te lire ;)

Alors on m'a fourni un code qui marche tres bien:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub recherche() Dim valeur, vt, rep Dim Msg1, Style, Title, Response1 rep = Array("A2", "A3", "A4", "A5", "A6") For i = 0 To 4 valeur = rep(i) Title = "RECHERCHE de " & valeur Range("H1").Select On Error Resume Next ActiveSheet.Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) _ .Activate If rep(i) = "A2" Then ActiveCell = "S16" If rep(i) = "A3" Then ActiveCell = "S1" If rep(i) = "A4" Then ActiveCell = "S2" If rep(i) = "A5" Then ActiveCell = "S3" If rep(i) = "A6" Then ActiveCell = "S4" Response1 = vbYes 'MsgBox(Msg1, Style, Title) Do While Response1 = vbYes Cells.FindNext(After:=ActiveCell).Activate ' If rep(i) = "A2" Then ActiveCell = "S16" If rep(i) = "A3" Then ActiveCell = "S1" If rep(i) = "A4" Then ActiveCell = "S2" If rep(i) = "A5" Then ActiveCell = "S3" If rep(i) = "A6" Then ActiveCell = "S4" If ActiveCell.Column <> 8 Then Range("H1").End(xlDown).Select vt = Application.Find(valeur, ActiveCell) If vt = 2015 Then GoTo pass Loop pass: Next MsgBox "Fin : les valeurs sont changées" Exit Sub End Sub

---

Mais le probleme c'est qu'il faut que mes données soient par colonne, donc les données a modifier doivent etre dans la colonne H, il faut creer une macro pour ca?

Je te trouve gonflée et, apparemment, je ne suis pas le seul.
Juste pour être certain que le code d'ouskel'n'or était valable, je l'ai modifié pour tenir compte de ta dernière modification de contrainte:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Test() Dim Ligne As String, NewLigne As String, tablo As Variant Open "D:\TestReplaceNew.txt" For Output As #1 Open "D:\TestReplace.txt" For Input As #2 While Not EOF(2) Input #2, Ligne tablo = Split(Ligne, "|") tablo(7) = Replace(tablo(7), "A3", "S1") tablo(7) = Replace(tablo(7), "A4", "S2") tablo(7) = Replace(tablo(7), "A2", "S16") tablo(7) = Replace(tablo(7), "A6", "S4") tablo(7) = Replace(tablo(7), "A5", "S3") For i = 0 To UBound(tablo) - 1 NewLigne = NewLigne & tablo(i) & "|" Next Print #1, NewLigne NewLigne = "" Wend Close #2 Close #1 'Et pour donner au nouveau fichierle nom de l'ancien ' Name "C:\OldFich.txt" As "C:\OldFich.txt_sav.txt" ' Name "C:\NewFich.txt" As "C:\OldFich.txt" 'Kill "C:\OldFich.txt_sav.txt" ça je le ferai après vérif End Sub End Sub

---

Ce code fait exactement ce que tu demandes, sans création de feuille dans Excel ni d'importation.

Alors, soit tu tiens compte des conseils qui te sont donnés ici, soit tu prends le code qui t'a été proposé ailleurs et tu demandes à cet ailleurs de débugguer ce même code.

Non mais le probleme c'est que je voi pas a quoi ca sert ca:

Code:

---

1 2	Open "D:\TestReplaceNew.txt" For Output As #1 Open "D:\TestReplace.txt" For Input As #2

---

Moi j'ai plusieur document a modifier, donc je ratacheré la macro a un bouton et voila.

Relis les explications qu'on t'a mises, tu as toutes les données. Déjà on a écrit le code pour toi et, à part prendre ta place, je ne vois pas ce qu'on pourrait faire de plus.

ok merci.