Transmettre une variable à un userform

[siocnarf]

Bonjour,

Je souhaite transmettre un nom de serveur à un userform. Au début de mon programme (avant le premier sub), je déclare la variable comme public.

Public StrServerName As String

Et je l'initialise.

StrServerName = Co_strComputer
        'On lance la fenêtre de connexion
        frmlogin.Show

Toutefois, lorsque j'arrive dans mon form celle-ci devient vide... Pourquoi?

Private Sub txtPassword_Change()


StrPassword = txtPassword.Value

End Sub

Private Sub txtServername_Change()
txtServername.Value = StrServerName
End Sub

Private Sub txtUsername_Change()


StrUsername = txtUsername.Value

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "SVP, utilisez le bouton!"
  End If
End Sub

Private Sub cmdCancel_Click()
    Canceled = True
    Unload Me
    Hide
End Sub

Private Sub cmdOK_Click()

'En effectuant un clic on vérifie le mot de passe
If Me.txtPassword.Value = "" Then
    MsgBox "Vous devez inscrire un mot de passe valable sur ce serveur!"
    Me.txtPassword.SetFocus
    Exit Sub
End If

If Len(Me.txtUsername.Value) < Len(Me.txtServername.Value) Then
    MsgBox "Vous devez inscrire un Identifiant valide sur ce serveur!"
    Me.txtUsername.SetFocus
    Exit Sub
End If

Canceled = False
Hide

End Sub

Private Sub Image1_Click()

End Sub

Sub UserForm_Initialize()

'On fait apparaître la fenêtre au milieu de l'écran
Me.StartUpPosition = 2

[CODE]txtServername.Value = StrServerName
txtUsername.Value = StrServerName & "\"

End Sub[/CODE]


Merci,

 

[tototiti2008]

Re : Transmettre une variable à un userform

Bonjour francois,

pour qu'une variable soit globale, il faut la déclarer avec Public, mais en haut d'un Module (pas le code d'un userform)

 

[siocnarf]

Re : Transmettre une variable à un userform

Je m'excuse mais il semble que je me sois mal expliqué.

J'ai créé ma variable globale dans le haut de mon programme et non pas dans mon userform.

Ainsi, dans le haut de mon programme (avant le premier sub), j'ai inscrit:

Public StrServerName As String

Puis plus loin dans mon code, j'ai inscrit:

'On donne le nom du serveur à la fenêtre de connexion
StrServerName = Co_strComputer
                
'On lance la fenêtre de connexion
frmlogin.Show
If frmlogin.Canceled = False Then
        
            Err.Clear
            
            'On récupère les données de jour et d'intervalle
            StrUsername = frmlogin.txtUsername
            StrPassword = frmlogin.txtPassword
    
           Set objLocator = CreateObject("WbemScripting.SWbemLocator")
           Set Co_objWMIService = objLocator.ConnectServer _
               (Co_strAdresseIP, "root\cimv2", StrUsername, StrPassword)

Or aussitôt que mon userform démarre, la variable strServerName devient en blanc.

Voici le code de mon userform:

Public Canceled As Boolean
Private Sub txtPassword_Change()


StrPassword = txtPassword.Value

End Sub

Private Sub txtServername_Change()
txtServername.Value = StrServerName
End Sub

Private Sub txtUsername_Change()


StrUsername = txtUsername.Value

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "SVP, utilisez le bouton!"
  End If
End Sub

Private Sub cmdCancel_Click()
    Canceled = True
    'Unload Me
    Hide
End Sub

Private Sub cmdOK_Click()

'En effectuant un clic on vérifie le mot de passe
If Me.txtPassword.Value = "" Then
    MsgBox "Vous devez inscrire un mot de passe valable sur ce serveur!"
    Me.txtPassword.SetFocus
    Exit Sub
End If

If Len(Me.txtUsername.Value) < Len(Me.txtServername.Value) Then
    MsgBox "Vous devez inscrire un Identifiant valide sur ce serveur!"
    Me.txtUsername.SetFocus
    Exit Sub
End If

Canceled = False
Hide

End Sub

Private Sub Image1_Click()

End Sub

Sub UserForm_Initialize()

'On fait apparaître la fenêtre au milieu de l'écran
Me.StartUpPosition = 2

[B]txtServername.Value = StrServerName[/B]
txtUsername.Value = StrServerName & "\"

End Sub

Merci,

 

[tototiti2008]

Re : Transmettre une variable à un userform

Bonjour,

J'ai créé ma variable globale dans le haut de mon programme

donc bien en haut d'un module ?

StrServerName = Co_strComputer

et que vaut Co_strComputer ?