Mais bon j´ai regardé ça, ça m´a pas l´air compliqué à gérer:
´ Déclaration des fonctions API
´ Pour lire dans un fichier INI
Private Declare Function GetPrivateProfileString _
Lib " kernel32" Alias " GetPrivateProfileStringA" _
( ByVal lpApplicationName As String, ByVal lpKeyName _
As Any, ByVal lpDefault As String, ByVal lpReturnedString _
As String, ByVal nSize As Long, ByVal lpFileName _
As String) As Long
´ Pour enregistrer dans un fichier INI
Private Declare Function WritePrivateProfileString Lib " kernel32" _
Alias " WritePrivateProfileStringA" ( ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function LireIni(stSection As String, stKey As String, stFichier As String) As String
´ Lecture d´une valeur dans un fichier INI
´ stSection est le la partie designée entre crochets ( [option] par exemple)
´ stKey est le nom de la clé à récupérer ( COULEUR=... par exemple)
Dim stBuf As String, lgBuf As Long, lgRep As Long
´ Mise en place du buffer de lecture
stBuf = Space$(255)
lgBuf = 255
lgRep = GetPrivateProfileString(stSection, stKey, " ", stBuf, lgBuf, stFichier)
LireIni = Left$(stBuf, lgRep)
End Function
Public Sub EcrireIni(stSection As String, stKey As String, stValeur As String, stFichier As String)
´ Lecture d´une valeur dans un fichier INI
´ stSection est le la partie designée entre crochets ( [option] par exemple)
´ stKey est le nom de la clé à récupérer ( COULEUR=... par exemple)
´ stValeur est la valeur à stocker
´ stFichier est le fichier à manipuler
WritePrivateProfileString stSection, stKey, stValeur, stFichier
End Sub