Function Base64tofichier(ByVal strData As String, ByVal chemin As String) ' As Object
Dim i As Long
Dim a() As Byte
strData = Left(strData, Len(strData) - Len(strData) Mod 4)
a = Base64Decode(strData)
'///////////////////////////////////
i = FreeFile: Open chemin For Binary As #i: Put #i, , a: Close #i
MsgBox chemin
End Function