Discussion :

[Masmeta]

Bonjour

J'aimerais lire un fichier .ini. J'ai donc utilisé la FAQ VB pour cela Comment lire / écrire dans un fichier .ini ?

Mais il y a une erreur de compilation : "Seul des commentaires peuvent,apparaître après End Sub, End Property; End Function.

J'ai donc mis des End Functions pour les privates Functions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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
End Function
 
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
End Function
 
Private Function EcritDansFichierIni(Section As String, Cle As String, Valeur As String, Fichier As String) As Long
EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
End Function
 
Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, Optional ValeurParDefaut As String = "") As String
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
End Function

Qui pourrait m'expliquer comment résoudre ce problème, et comment interpréter GetPrivateProfileString, WritePrivateProfileString?

Cordialement

[ouskel'n'or]

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
End Function

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
End Function

Il s'agit de déclarations. Où as-tu pris End Function ? M'étonnerait que ce soit sur la FAQ
Efface les deux End Founction pendant que tu y es

[Masmeta]

C'est un essai malencontreux pour supprimer le message d'erreur.
Mais avec ou sans, j'ai toujours le même problème.

Cela ne viendrait pas d'une option Excel?

[SfJ5Rpw8]

c'est sans et tout en haut de ton module...

[Masmeta]

c'est sans et tout en haut de ton module...

Merci bbil, le problème était du à cela.
Pourquoi donc?

Sinon une dernière petite question :

Je travaille sur un Sub principal dans thisworkbook comment je fais si je veux utilisé une function qui se trouve dans un module dans ma Sub principal?