kakenette
Messages postés218Date d'inscriptiondimanche 1 mai 2005StatutMembreDernière intervention15 novembre 2009
-
29 mars 2008 à 23:44
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
5 avril 2008 à 07:43
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 30 mars 2008 à 04:47
tiens miss, du sur mesure rien que pour toi:
Private Function Hex2Bin(ByRef vsHex As String) As String
Dim i As Long
Dim nLength As Long
nLength = Len(vsHex) \ 3 + 1
Hex2Bin = Space$(nLength)
For i = 1 To nLength
Mid$(Hex2Bin, i, 1) = Chr$(Val("&H" & Mid$(vsHex, i * 3 - 2, 2) & "&"))
Next i
End Function