Code très simple à priori mais comme je l'ai utilisé dans plusieurs de mes programme, simplement en recopiant la fonction, j'ai pensé qu'il pouvait servir à quelqu'un...
Source / Exemple :
Public Function ConvertOctets(Prm_L_Num As Long) As String
On Error GoTo ConvertOctets_Err
Dim L_Size As Long
L_Size = Prm_L_Num ' Mise en cache
If (L_Size / 1024 > 1) Then
L_Size = L_Size / 1024
If (L_Size / 1024 > 1) Then
L_Size = L_Size / 1024
If (L_Size / 1024 > 1) Then
L_Size = L_Size / 1024
If (L_Size / 1024 > 1) Then
L_Size = L_Size / 1024
Else
ConvertOctets = CStr(L_Size) & " Go"
End If
Else
ConvertOctets = CStr(L_Size) & " Mo"
End If
Else
ConvertOctets = CStr(L_Size) & " Ko"
End If
Else
ConvertOctets = CStr(L_Size) & " Oct"
End If
Exit Function
ConvertOctets_Err:
Call MsgBox("Erreur n° : " & Err.Number & vbCrLf & "Description : " & Err.Description, vbOkOnly + VbExclamation, App.Title)
End Function
Conclusion :
Appel de la fonction : S_Buffer = ConvertOctets(5000)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.