Microsoft 365 Création et/ou Ouverture d'un dossier depuis un bouton

[THOR57]

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 :

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

 

[fanch55]

Bonjour,
Ne vous em.... pas avec windir et l'explorer :

CreateObject("Shell.Application").Open Chemin

 

[THOR57]

Bonjour,

Merci pour ce super conseil

j'ai juste rajouter un petit "CVar" et ca marche nickel

CreateObject("Shell.Application").Open CVar(Chemin)

Merci encore