THOR57
XLDnaute Nouveau
Bonjour à tous !
J'ai un petit problème,
J'ai un code qui fonctionne parfaitement sur mon ordinateur personnel, j'ai tenté de l'adapter sur mon ordinateur au boulot (réseau d'entreprises)
Du coup j'ai adapté le chemin (et ça fonctionne pour la création du dossier si j'enlève "Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus" mais du coup il n'ouvre pas le dossier !
Par quoi puis-je remplacer cette partie du code ?
"Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus"
Merci d'avance,
ci-dessous le code complet :
J'ai un petit problème,
J'ai un code qui fonctionne parfaitement sur mon ordinateur personnel, j'ai tenté de l'adapter sur mon ordinateur au boulot (réseau d'entreprises)
Du coup j'ai adapté le chemin (et ça fonctionne pour la création du dossier si j'enlève "Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus" mais du coup il n'ouvre pas le dossier !
Par quoi puis-je remplacer cette partie du code ?
"Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus"
Merci d'avance,
ci-dessous le code complet :
VB:
Private Sub CommandButton6_Click()
'Declaration des Variables
Dim Chemin As String
Dim Dossier As String
Dim Reponse As VbMsgBoxResult
Dim Z
'Affectation des Variables
Z = (TextBox1)
Chemin = "\\archives3\DATA\PUBLIC\Dossier Logement" & "\" & (TextBox1)
Dossier = Dir(Chemin, vbDirectory)
'Test existance du Fichier, si oui on ouvre le fichier
If Dossier = vbNullString Then
Reponse = MsgBox("Le dossier recherché n'existe pas. Voulez-vous le créer ?", vbYesNo + vbQuestion, "CREATION")
'Choix de la réponse
Select Case Reponse
Case vbYes
VBA.FileSystem.MkDir (Chemin)
Case Else
Exit Sub
End Select
Else
MsgBox "Dossier Existant, Cliquez sur OK pour l'ouvrir", vbOKOnly + vbInformation
End If
Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus
End Sub