Oh enfin, je me sent moins seul !!!je n'ai pas accès à la page que tu as mis en référence (limitation des sites visitables!!!!)
"... demanda à voir le CV du recruteur pour être sûr que le chef du personnel était compétent".
Code : Tout sélectionner
Declare Function HLLAPI& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, ByVal DataString$, Length&, RetC&)
Sub PC_Send(ByVal HllFunctionNo As Long, HllData As String, Optional ByVal HllReturnCode As Long, Optional ByVal HllLength As Long)
Dim Trim_HllData As String * HA_DATA_LENGTH
' Formatage et calcul de la taille (si non fournie en paramètre du message d'envoi
Trim_HllData = (HllData)
If HllLength = 0 Then
HllLength = Len(Trim(Trim_HllData))
End If
dummy& = HLLAPI&(HllFunctionNo, Trim_HllData, HllLength, HllReturnCode)
' Message d'erreur si code retour non nul
If HllReturnCode <> 0 Then
MsgBox ("Erreur sur fonction : " & Str$(HllFunctionNo))
Exit Sub
End If
HllData = Trim_HllData
End Sub