Pb ecriture dans un fichier .ini a partir de word 2000
2 réponses
Jed
Bonjour à tous,
Ci dessous quelques lignes de codes qui fonctionnent sans problème.
J'aimerai améliorer le code en affichant un msgbox pour recuperer les
differentes valeurs.
J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable "
Title = "Insertion dans fichier ini"
Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les
msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String !!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE=================
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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String)
As String
Ci dessous quelques lignes de codes qui fonctionnent sans problème. J'aimerai améliorer le code en affichant un msgbox pour recuperer les differentes valeurs. J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable " Title = "Insertion dans fichier ini" Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String !!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ > 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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news:
68AA24A9-E129-46FC-A147-026B9BBFCAD3@microsoft.com...
Bonjour à tous,
Ci dessous quelques lignes de codes qui fonctionnent sans problème.
J'aimerai améliorer le code en affichant un msgbox pour recuperer les
differentes valeurs.
J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable "
Title = "Insertion dans fichier ini"
Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les
msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String
!!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ >
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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String)
As String
Ci dessous quelques lignes de codes qui fonctionnent sans problème. J'aimerai améliorer le code en affichant un msgbox pour recuperer les differentes valeurs. J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable " Title = "Insertion dans fichier ini" Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String !!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ > 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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Ci dessous quelques lignes de codes qui fonctionnent sans problème. J'aimerai améliorer le code en affichant un msgbox pour recuperer les differentes valeurs. J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable " Title = "Insertion dans fichier ini" Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String !!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ > > 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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news:
68AA24A9-E129-46FC-A147-026B9BBFCAD3@microsoft.com...
Bonjour à tous,
Ci dessous quelques lignes de codes qui fonctionnent sans problème.
J'aimerai améliorer le code en affichant un msgbox pour recuperer les
differentes valeurs.
J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable "
Title = "Insertion dans fichier ini"
Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les
msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String
!!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ > >
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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String)
As String
Ci dessous quelques lignes de codes qui fonctionnent sans problème. J'aimerai améliorer le code en affichant un msgbox pour recuperer les differentes valeurs. J'ai essayer mais quand je fais Ecrire_ini avec :
Message = "Saisir le nom de la variable " Title = "Insertion dans fichier ini" Default = " "
Mavariable = InputBox(Message, Title, Default)
( X3 pour les autres variables)
strEcrire = EcrireINI(MonEntete, Mavariable, MaValeur) 'recuperer par les msgbox,
Ca plante avec erreur de compatibilité parceque ce ne sont pas des String !!!
Comment puis je faire ?
Merci pour vos conseils.
======CODE================ > > 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 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
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String