Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1764 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mapper un lecteur avec Case & InputBox

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Mapper un lecteur avec Case & InputBox

n°1858269
Sakayapo
Posté le 05-03-2009 à 23:42:10  profilanswer
 

Je veux maper différentes lettres en utilisant Inputbox & CASE.
Ce qui est ridicule c'est qu'il n'y a pas d'erreures qui s'affichent mais il n'y a pas de drive qui s'affichent.
 
Voici des fragments de mon code.
 
if mode <> ("wscript.exe" ) Then
                         while value=false
 
                        quest=InputBox("Choix-1 Connecter des lecteurs"&Vbcrlf&_
                                "Choix-2 Deconnecter des lecteurs"&Vbcrlf&_
                                "Choix-3 Quitter le script", "Fenetre des choix" )
         
                      Select Case quest
                       
 
                        case "1"
                           value=true
                        lettre=Inputbox("Nom de la lettre:" )
                        rep=Inputbox("Entrez un nom de repertoire tel que"&Vbcrlf&_
                        "ARCHIVE "&Vbcrlf&"CLIENT "&Vbcrlf&"LOT" ,"repertoire voulue:" )
                                call Dpoint()
                                call Mapd()
                                 call ShortCut()
                              msgbox("La connection est etablie" )
                            call list()
 
 
'SUB ROUTINES---------------------------------------------------------------------------------------------------------------------------
 
 
Sub Mapd()
 
Select Case rep
 
Case "Archive"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
 
Case "CLIENT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
 
 
Case "LOT"
part="LOT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\"&part
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  end select
end sub


Message édité par Sakayapo le 07-03-2009 à 18:16:00
mood
Publicité
Posté le 05-03-2009 à 23:42:10  profilanswer
 

n°1858380
fluminis
Posté le 06-03-2009 à 10:16:55  profilanswer
 

lettre=Inputbox("Nom de la lettre:" )  
rep=Inputbox("Entrez un nom de repertoire ...
 
tu ne passe pas ces valeurs a tes fonctions... est ce que ca pourrait etre la source de ton probleme ?
 
Sub Mapd()  
 
Select Case wshnet.username  
=> pourquoi wshnet.username et pas rep que tu as demandé à l'utilisateur juste avant ?


---------------
http://poemes.iceteapeche.com - http://www.simuland.net
n°1858799
Sakayapo
Posté le 07-03-2009 à 18:14:39  profilanswer
 

fluminis a écrit :

lettre=Inputbox("Nom de la lettre:" )  
rep=Inputbox("Entrez un nom de repertoire ...
 
 
 
Select Case wshnet.username  
=> pourquoi wshnet.username et pas rep que tu as demandé à l'utilisateur juste avant ?


 
 
Car c'est en faisant ainsi que le problème mentionné se produit.

n°1859182
fluminis
Posté le 09-03-2009 à 10:18:06  profilanswer
 

Code :
  1. Sub Mapd(rep As String)
  2. Select Case rep
  3. Case "Archive"
  4. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
  5. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  6. Case "CLIENT"
  7. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
  8. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  9. Case "LOT"
  10. part="LOT"
  11. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\"&part
  12. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  13.   end select
  14. end sub
  15. Case Else
  16. // affiche qu'il y a un soucis
  17. end select
  18. end sub


---------------
http://poemes.iceteapeche.com - http://www.simuland.net

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mapper un lecteur avec Case & InputBox

 

Sujets relatifs
Entrer une formule via inputboxMonter Un lecteur reseau en VBA
Problème lecteur virtuel[VBA] Nommer une nouvelle feuille excel d'après InputBox et compteur
Access, bouton case a cocher[Résolu]Lecture d'un fichier csv
Problème avec If et Case dans VBA...Premiere image d'un lecteur flash en demi-teint
Access - Case à cocher dans formulaire pour création d'un étatBouton annuler qui ne fonctionne pas dans inputbox
Plus de sujets relatifs à : Mapper un lecteur avec Case & InputBox


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR