--
Bonjour,
Quand je lance ce bout de code, j'ai toujours une erreur de compil qui me
dit qu'il me manque une ')' apres SectionIni...
Comprends poa...
Code :
private Function LitIni(SectionIni As String, Cle As String, Fichier As
String, Optional ValeurParDefaut As String = "") As String
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString SectionIni, Cle, ValeurParDefaut, strReturn,
Len(strReturn), Fichier
LitIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)