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