Acceder au contenu d'un module de Perso.xls

[neness0912]

Bonjour le forum,

Je partage plusieurs ressources entre differentes macro et je voudrais utiliser le classeur Perso.Xls pour y loguer un genre de variable globale.
J'y ai un module Var_Globale qui contient le code suivant :
Public USFtest As Boolean

et dans une autre classeur le code suivant :

If PERSO.Modules.Var_Globale.USFtest = False Then...

Et ça me génére l'erreur 424 "objet requis"

En fait je n'arrive pas à acceder au contenu de USFtese. Mais comment faire😕
Merci de votre aide.

 

[GIBI]

Re : Acceder au contenu d'un module de Perso.xls

Bonjour,

Tu peux te servir d'une variable externe, par exemple une variable dans un fichier type .INI ou .TXT

http://vb.developpez.com/faq/?page=Systeme#ini

GIBI

 

[neness0912]

Re : Acceder au contenu d'un module de Perso.xls

Merci Gibi,😀

J'ai tenté l'idée mais c'est tres compliqué (je trouve) n'étant pas un grand programmeur VBA je galere pas mal.
D'autres idées peut etre ? 😕😕😕

 

[GIBI]

Re : Acceder au contenu d'un module de Perso.xls

Bonjour,

Paramete dans un classeur excel Param.xls

Sub recupVal()
Set param = Workbooks.Open(Filename:="C:\Documents and Settings\Gibi\Bureau\param.xls")
     usftest = param.Sheets("feuil1").Range("A1")
param.Close
End Sub

parametre dans un fichier TXT

Public USFtest As Boolean
Sub recup()
    F = FreeFile
    Open "C:\Documents and Settings\Gibi\Bureau\Param.txt" For Input As #F
    If Input(4, F) = "VRAI" Then ' lectur 4 caractères du fichier texte
       USFtest = True
    Else
      USFtest = False
      End If
    Close #F

End Sub
Sub maj()
    F = FreeFile
    Open "C:\Documents and Settings\Gibi\Bureau\Param.txt" For Output As #F
    If USFtest Then ' lectur 4 caractères du fichier texte
       Write #F, "VRAI"
    Else
       Write #F, "FAUX"

      End If
    Close #F

End Sub

GIBI