Conversion des caractères spéciaux (UTF8 je crois...)

Bonjour existe t il une fonction dans Excel 2007 pouvant convertir ça...?

Le but est convertir la feuille en entier avec une macro

(ou une formule si ça existe !!!)

extrait d'un programme :

# strTemp = Replace(strTemp,"ç","ç")

# strTemp = Replace(strTemp,"ä§","ç")

# strTemp = Replace(strTemp,"é","é")

# strTemp = Replace(strTemp,"ä©","é")

# strTemp = Replace(strTemp,"è","è")

# strTemp = Replace(strTemp,"ä¨","è")

# strTemp = Replace(strTemp,"ê","ê")

# strTemp = Replace(strTemp,"äª","ê")

# strTemp = Replace(strTemp,"ë","ë")

# strTemp = Replace(strTemp,"ä«","ë")

# strTemp = Replace(strTemp,"Ã�","Ê")

# strTemp = Replace(strTemp,"ä�","Ê")

# strTemp = Replace(strTemp,"Ã�","Ë")

# strTemp = Replace(strTemp,"ä�","Ë")

# strTemp = Replace(strTemp,"î","î")

# strTemp = Replace(strTemp,"ä®","î")

# strTemp = Replace(strTemp,"ï","ï")

# strTemp = Replace(strTemp,"ä¯","ï")

# strTemp = Replace(strTemp,"ì","ì")

# strTemp = Replace(strTemp,"Ã�","Î")

# strTemp = Replace(strTemp,"ä�","Î")

# strTemp = Replace(strTemp,"ò","ò")

# strTemp = Replace(strTemp,"ä²","ò")

# strTemp = Replace(strTemp,"ô","ô")

# strTemp = Replace(strTemp,"ä´","ô")

# strTemp = Replace(strTemp,"ö","ö")

# strTemp = Replace(strTemp,"ä¶","ö")

# strTemp = Replace(strTemp,"õ","õ")

# strTemp = Replace(strTemp,"ó","ó")

# strTemp = Replace(strTemp,"ø","ø")

# strTemp = Replace(strTemp,"äµ","õ")

# strTemp = Replace(strTemp,"ä³","ó")

# strTemp = Replace(strTemp,"ä¸","ø")

# strTemp = Replace(strTemp,"Ã�","Ô")

# strTemp = Replace(strTemp,"ä�","Ô")

# strTemp = Replace(strTemp,"Ã�","Ö")

# strTemp = Replace(strTemp,"ä�","Ö")

# strTemp = Replace(strTemp,"Ã ","à")

# strTemp = Replace(strTemp,"ä ","à")

# strTemp = Replace(strTemp,"â","â")

# strTemp = Replace(strTemp,"ä¢","â")

# strTemp = Replace(strTemp,"ä","ä")

# strTemp = Replace(strTemp,"ä¤","ä")

# strTemp = Replace(strTemp,"Ã¥","å")

# strTemp = Replace(strTemp,"ä¥","å")

# strTemp = Replace(strTemp,"Ã�","Â")

# strTemp = Replace(strTemp,"ä�","Â")

# strTemp = Replace(strTemp,"Ã�","Ä")

# strTemp = Replace(strTemp,"ä�","Ä")

# strTemp = Replace(strTemp,"ù","u")

# strTemp = Replace(strTemp,"û","û")

# strTemp = Replace(strTemp,"ü","ü")

# strTemp = Replace(strTemp,"ä¼","ü")

# strTemp = Replace(strTemp,"Ã�","Û")

# strTemp = Replace(strTemp,"Ã�","Ü")

# strTemp = Replace(strTemp,"ä¹","u")

# strTemp = Replace(strTemp,"ä»","û")

# strTemp = Replace(strTemp,"ä¼","ü")

# strTemp = Replace(strTemp,"ä¼","ü")

# strTemp = Replace(strTemp,"ä�","Û")

# strTemp = Replace(strTemp,"ä�","Ü")

# strTemp = Replace(strTemp,"ò","ñ")

# strTemp = Replace(strTemp,"ñ","ñ")

Personne pouvant m'aider alors...?

Ça me sert lors de l'import d'une base de données et qui me donne ces caractères spéciaux

hello

pourrais-tu nous donner un extrait des données d'origine et/ou résultant ?

et surtout quel genre de résultat final tu attends ?

un as de la formule DROITE(m;n) & GAUCHE va sans doute t'aider

merci

Résolu...

Mon export se fait normalement maintenant et donc plus besoin de cette macro