' Lire la longueur de la chaîne à partir de la mémoire
CopyMemory StrLen, ByVal Ptr - 4, 4 ' Longueur Unicode
MsgBox StrLen
ReDim Buffer(0 To (StrLen * 2) - 1) ' Chaque caractère = 2 octets (Unicode)
CopyMemory Buffer(0), ByVal Ptr, StrLen * 2
Private Type MONTYPE
L1 As Long
L2 As Long
S As String
End Type
Sub TestCopyMemory()
Dim MT As MONTYPE
Dim MTAdd As LongPtr
Dim DataSize As Long
MT.L1 = 12345 MT.L2 = 67890 MT.S = "Test"
' Vérifiez la taille DataSize = LenB(MT)
Debug.Print "Taille mémoire calculée : " & DataSize
' Vérifiez l'adresse mémoire avant de la passer à CopyMemory
MTAdd = VarPtr(MT)
Debug.Print "Adresse mémoire : " & MTAdd ' Appel à la fonction CopyMemory 'Call b(MTAdd, DataSize)
End Sub
Ça va être la teuf ce soir !et en même temps je prépare des petit confitsdans des verines pour ce soir j'ai déjà pris au moins 1 kilo
j'ai la patronne qui chante aux armes citoyen