Je ne vois pas ma discussion dans Outlook Express. Grrr. Là je passe par Google mon copain.
comment tester si la variable regdata a bien trouvé l'existence de la ligne SOFTWARECLASSESPhilatel.Collection.france.4
En fait si cette ligne existe, je voudrais afficher "OK" sinon "pas OK" ;)
Grace à toi je n'ai plus la ligne en erreur.
Mais si j'écris : msgbox REGDATA, il affiche un message d'erreur
Merci
Aski a écrit :
Hi Alain,
> Je ne comprenais pas ta ligne rouge. > J'ai trouvé en testant : > Pour appeler la fonction, il faut écrire dans ta procédure appelant la > fonction :: > > Dim RegData as REG_DATA > RegData = GetValue(HKEY_LOCAL_MACHINE, > "SOFTWARECLASSESPhilatelix.Collection.france.4","") > > J'ai essayé avec une sous-clef qui existe chez moi.
Alors, tu t'en es sorti ?
Aski
Bonjour Aski,
Je ne vois pas ma discussion dans Outlook Express. Grrr. Là je passe
par Google mon copain.
comment tester si la variable regdata a bien trouvé l'existence de la
ligne SOFTWARECLASSESPhilatel.Collection.france.4
En fait si cette ligne existe, je voudrais afficher "OK" sinon "pas OK"
;)
Grace à toi je n'ai plus la ligne en erreur.
Mais si j'écris : msgbox REGDATA, il affiche un message d'erreur
Merci
Aski a écrit :
Hi Alain,
> Je ne comprenais pas ta ligne rouge.
> J'ai trouvé en testant :
> Pour appeler la fonction, il faut écrire dans ta procédure appelant la
> fonction ::
>
> Dim RegData as REG_DATA
> RegData = GetValue(HKEY_LOCAL_MACHINE,
> "SOFTWARECLASSESPhilatelix.Collection.france.4","")
>
> J'ai essayé avec une sous-clef qui existe chez moi.
Je ne vois pas ma discussion dans Outlook Express. Grrr. Là je passe par Google mon copain.
comment tester si la variable regdata a bien trouvé l'existence de la ligne SOFTWARECLASSESPhilatel.Collection.france.4
En fait si cette ligne existe, je voudrais afficher "OK" sinon "pas OK" ;)
Grace à toi je n'ai plus la ligne en erreur.
Mais si j'écris : msgbox REGDATA, il affiche un message d'erreur
Merci
Aski a écrit :
Hi Alain,
> Je ne comprenais pas ta ligne rouge. > J'ai trouvé en testant : > Pour appeler la fonction, il faut écrire dans ta procédure appelant la > fonction :: > > Dim RegData as REG_DATA > RegData = GetValue(HKEY_LOCAL_MACHINE, > "SOFTWARECLASSESPhilatelix.Collection.france.4","") > > J'ai essayé avec une sous-clef qui existe chez moi.
Alors, tu t'en es sorti ?
Aski
Aski
Hugh magicjude,
En folâtrant sur ton clavier, tu nous as susurré :
Bonjour Aski,
Je ne vois pas ma discussion dans Outlook Express. Grrr. Là je passe par Google mon copain.
comment tester si la variable regdata a bien trouvé l'existence de la ligne SOFTWARECLASSESPhilatel.Collection.france.4
En fait si cette ligne existe, je voudrais afficher "OK" sinon "pas OK" ;)
Grace à toi je n'ai plus la ligne en erreur.
Mais si j'écris : msgbox REGDATA, il affiche un message d'erreur
C'est normal. Le premier argument de MsgBox attend un string.
Remplace ton expression par MsgBox RegData.Value (attention un point entre RegData et Value) puisque RegData et du type REG_DATA
Public Type REG_DATA Value As String DataType As REG_VALUE_TYPES End Type
Cordialement
Aski
Hugh magicjude,
En folâtrant sur ton clavier, tu nous as susurré :
Bonjour Aski,
Je ne vois pas ma discussion dans Outlook Express. Grrr. Là je passe
par Google mon copain.
comment tester si la variable regdata a bien trouvé l'existence de la
ligne SOFTWARECLASSESPhilatel.Collection.france.4
En fait si cette ligne existe, je voudrais afficher "OK" sinon "pas
OK" ;)
Grace à toi je n'ai plus la ligne en erreur.
Mais si j'écris : msgbox REGDATA, il affiche un message d'erreur
C'est normal. Le premier argument de MsgBox attend un string.
Remplace ton expression par MsgBox RegData.Value (attention un point entre
RegData et Value)
puisque RegData et du type REG_DATA
Public Type REG_DATA
Value As String
DataType As REG_VALUE_TYPES
End Type
