Plusieur choix de MAP [Résolu]

KawaX007 3 Messages postés lundi 1 mars 2004Date d'inscription 17 août 2007 Dernière intervention - 17 août 2007 à 10:32 - Dernière réponse : KawaX007 3 Messages postés lundi 1 mars 2004Date d'inscription 17 août 2007 Dernière intervention
- 17 août 2007 à 11:41
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
KawaX007 3 Messages postés lundi 1 mars 2004Date d'inscription 17 août 2007 Dernière intervention - 17 août 2007 à 10:52
3
Merci
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

Merci KawaX007 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 73 internautes ce mois-ci

Commenter la réponse de KawaX007
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 17 août 2007 à 11:04
0
Merci
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
Commenter la réponse de cs_casy
KawaX007 3 Messages postés lundi 1 mars 2004Date d'inscription 17 août 2007 Dernière intervention - 17 août 2007 à 11:41
0
Merci
je l avais fait mais mon VB le reconnai pas je crois qui est mal installé
merci.
Commenter la réponse de KawaX007

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.