Discussion :

[PeGe-687]

Bonjour,

On me fournit un fichier Excel de données (extraction de données AD).
Les cellules sont en format "Standard" et le contenu est vu comme une chaine de caractère.
Certaines lignes donc sont "normales" et je peux lire du texte "normal" (CN=xxxxx;OU=yyyyy; ....)
Sur d'autre j'ai quelque chose comme "X'436f6d7074652064277574696c6973617465757220696e766974c3a9'"
Rapidement on se rend compte que ce sont des caractères ASCII codés Héxadécimal.
Si je prend la chaine et que je la converti j'obtiens bien du texte compréhensible "Compte d'utilisateur invité".

Je recherche donc à convertir automatiquement les cellules (un peu éparpillées dans la feuille) de mon fichier qui contiendraient une ou des chaines de type "X'..........'" (une cellule peut contenir plusieurs chaines de ce type séparées par des ";") par une ou des chaines de caractères lisibles.
Une possibilité est donc d'écrire une procédure VBA qui appellerait une fonction de conversion.
Et je n'ai pas vraiment des compétences en VBA ...
Est-ce que quelqu'un a déjà développé un truc de ce genre ?

Merci,
Pierre

[unparia]

Bonjour
Je te propose cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function versascii(ByVal ch As String) As String
  For k = 1 To Len(ch) Step 2
    versascii = versascii & ChrW(Val("&h" & Mid(ch, k, 2)))
  Next k
End Function

A utiliser ainsi (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim toto As String
toto = "X'436f6d7074652064277574696c6973617465757220696e766974c3a9'"
toto = Split(toto, "'")(1)
MsgBox versascii(toto)

Il te faudra ensuite intervenir pour remplacer certains caractères accentués (je te laisse ce soin, car il me faut partir).