Plusieur choix de MAPRésolu

Question

Bonjour tout le monde,

voila j ai essaye de faire un petit programme en VB qui permet de crée des lecteur reseau selon leur service avec une combobox (combo1) et l'utilisateur doit rentrer son mot de passe dans un txtbox (txtpassword) et le nom utilisateur est recupere a la connection de la session windows (user).

pour le moment j ai ça mais sa ne fonctionne pas

Option Explicit
Dim password As String
Dim user As String
Dim WshNet As Object

Private Sub Command1_Click()
Set WshNet = CreateObject("WScript.Network")
user = WshNet.Username
password = txtpassword

Shell ("NET USE I: \FRSRV01\commun$ /USER:" & user & " " & password & " /PERSISTENT:NO")

If Me.Combo1.Value = "TRACE" Then
    Shell ("NET USE K: \FRSRV01\custsce$ /USER:" & user & " " & password & " /PERSISTENT:NO")
    Shell ("NET USE H: \FRSRV01\call_trace_ech$ /USER:" & user & " " & password & " /PERSISTENT:NO")
    Else
    If Me.Combo1.Value = "CALL" Then
        Shell ("NET USE K: \FRSRV01\custsce$ /USER:" & user & " " & password & " /PERSISTENT:NO")
        Shell ("NET USE H: \FRSRV01\call_trace_ech$ /USER:" & user & " " & password & " /PERSISTENT:NO")
        Else
        If Me.Combo1.Value = "CustSup" Then
            Shell ("NET USE K: \FRSRV01\custsce$ /USER:" & user & " " & password & " /PERSISTENT:NO")
            Shell ("NET USE H: \FRSRV01\call_trace_ech$ /USER:" & user & " " & password & " /PERSISTENT:NO")
            Else
            If Me.Combo1.Value = "OPS" Then
                Shell ("NET USE H: \FRSRV01\ops$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                Else
                If Me.Combo1.Value = "Sales" Then
                    Shell ("NET USE H: \FRSRV01\sales$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                    Shell ("NET USE T: \FRSRV01\Coms_Tsales$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                    Else
                    If Me.Combo1.Value = "Automation" Then
                        Shell ("NET USE T: \FRSRV01\automation$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                        Else
                        If Me.Combo1.Value = "Comp & ben" Then
                            Shell ("NET USE K: \FRSRV01\comp&ben$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                            Else
                            If Me.Combo1.Value = "UTL" Then
                                Shell ("NET USE U: \FRSRV01\UTL$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                Shell ("NET USE K: \FRSRV01\custsce$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                Shell ("NET USE H: \FRSRV01\call_trace_ech$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                Else
                                If Me.Combo1.Value = "Training" Then
                                    Shell ("NET USE U: \FRSRV01\UTL$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                    Shell ("NET USE K: \FRSRV01\custsce$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                    Else
                                    If Me.Combo1.Value = "ITD" Then
                                        Shell ("NET USE N: \FRSRV01\ITD$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                        Else
                                        If Me.Combo1.Value = "CIS" Then
                                            Shell ("NET USE H: \FRSRV01\finance$ /USER:" & user & " " & password & " /PERSISTENT:NO")
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_load()
Set WshNet = CreateObject("WScript.Network")
user = WshNet.Username
PINNUMBER = user

Combo1.AddItem ("TRACE")
Combo1.AddItem ("CALL")
Combo1.AddItem ("CustSup")
Combo1.AddItem ("OPS")
Combo1.AddItem ("Sales")
Combo1.AddItem ("Automation")
Combo1.AddItem ("Comp & ben")
Combo1.AddItem ("UTL")
Combo1.AddItem ("Training")
Combo1.AddItem ("ITD")
Combo1.AddItem ("CIS")
Combo1.ListIndex = 0

End Sub

Je vous remercie pas avance de votre aide

KawaX007 · Accepted Answer

j ai trouvé une solution j ai remplacé les me.combo1.value par me.combo1.text est ca fonctionne.
mais je suis sur qu'il y a d'autre solution a mon algo alors je suis preneur
merci quand meme

cs_casy · Answer

tu peux aussi remplcer tous tes if imbriqués par un select case, ça sera plus propre.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

KawaX007 · Answer

je l avais fait mais mon VB le reconnai pas je crois qui est mal installé
merci.

Plusieur choix de MAP

3 réponses

Votre réponse

Discussions similaires