SuppotDeSaTante Aka dje69r | Bah tu peux t'amuser a chercher un convertisseur utf8 en effet.
Mais comme tu ne dis pas ou sont stockées ces chaines....
Dans un fichier ? Si oui quel type de fichier ? C'est le nom d'un fichier ? etc.
Apres dans Excel par exemple, tu les mets toutes en colonne A et tu executes cette macro, qui est a etoffer, j'ai pas cherché les correspondances.
Code :
- Sub Chevalier2000()
- Dim TxtDep As String, NbCaracteres As Integer
- 'Parcours la colonne A pour transformer les valeurs et les mettre en colonne B
- For i = 1 To 1000 'Numéro de ligne max a modifier
-
- TxtDep = Cells(i, 1).Value
-
- 'Espaces
- TxtDep = Replace(TxtDep, "%20", " " )
-
- 'Accent aigu
- TxtDep = Replace(TxtDep, "%C3%A9", "é" )
-
- 'Accent grave
- TxtDep = Replace(TxtDep, "%C3%A8", "è" )
-
- '... a etoffer
-
-
- 'Mets en colonne B la correspondance
- Cells(i, 2).Value = TxtDep
- Next i
- End Sub
|
Cordialement ---------------
Soyez malin, louez entre voisins !
|