Discussion :

[Shifty44]

Bonjour,

j'aimerais savoir s'il est possible de passer des variables dans les fonctions de lecture d'un fichier INI.
En effet, à chaque fois que mon programme lance la fonction LitDansFichierIni() il m'envoi un message d'erreur (Type d'argument ByRef incompatible) alors que mes paramètres sont des valeurs (des strings).
Que dois-je faire ? Est-ce que les variables (des strings) ne peuvent pas être autorisé dans la fonction GetPrivateProfileString ? Si c'est autorisé quelqu'un pourrait-il m'indiquer comment modifier le code pour accepter le passage de ma variable.

Merci d'avance pour votre aide.

[AlainTech]

Pour le modifier, il faudrait déjà qu'on le voie, ton code.

[Shifty44]

Désolé je nétais pas sûr de pouvoir le mettre en entier!!

Donc à la demande je le mets :

Code :

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

1
2
3
  chemin = ThisDocument.Path
  fichierINI = chemin & "\Parametre.ini"
  MAJCheck = LitDansFichierIni("variable", "CheckdeMAJ", fichierINI , "True")

et pour les fonctions de lecture c'est celles normales de lecture d'un fichier INI à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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
 
 
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

Encore désolé d'avoir perdu du temps en ayant pas mis le code direct et merci de vos réponses...

[wape]

Bonjour,

Essaye de déclarer explicitement la variable fichierINI :

Code :

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

Dim fichierINI As String

Si cette variable n'est pas déclarée, elle sera considérée par défaut comme étant de type "Variant".
Or la fonction LitDansFichierIni() s'attend à recevoir, comme 3ème paramètre, une variable de type
"String", d'où l'incompatibilité...


wape

[ThierryAIM]

Code :

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

1
2
Private Function LitDansFichierIni(Section As String, Cle As String, _
     Fichier As String, Optional ByVal ValeurParDefaut As String = "") As String

[Shifty44]

En effet, c'était bien ça ; je n'aurais jamais pensé à déclarer la variable vu que VB 6 acceptait tous les paramètres et leurs types sans les déclarer!^^

Merci beaucoup en tout cas car cela fonctionne nickel maintenant.