XL 2013 Créer un dossier dans répertoire réseau

[abdounet1]

onjour,
J'essaie de créer des dossiers avec la macro ci-dessous, lorsque il s'agit d'un dossier local ça fonctionne mais
quand il s'agit d'un répertoire sur réseau rien ne passe.
merci à vous

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ligne As Integer
ChDir "W:\Recrutement 2023\Dossiers administratif" ne marche pas

ChDir "C:\Users\Bousettah\Desktop\Recrutement 2023\Dossiers administratif" marche très bien

MkDir textbox2.Value

 

[Jacky67]

onjour,
J'essaie de créer des dossiers avec la macro ci-dessous, lorsque il s'agit d'un dossier local ça fonctionne mais
quand il s'agit d'un répertoire sur réseau rien ne passe.
merci à vous

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ligne As Integer
ChDir "W:\Recrutement 2023\Dossiers administratif" ne marche pas

ChDir "C:\Users\Bousettah\Desktop\Recrutement 2023\Dossiers administratif" marche très bien

MkDir textbox2.Value

Bonjour,
Une astuce pour connaitre le chemin et pour savoir si on a les droits à l'écriture
Avec un classeur simple..et "l'enregistreur de macro"
Faire un "enregistrer sous", chercher le réseau, chercher le ou les répertoires et enregistrer
En théorie on retrouve dans la macro enregistrée quelque chose comme ceci
ActiveWorkbook.SaveAs Filename:= "\\nom du réseau ou du pc\répertoire1\répertoire2\nom du classeur
il sera aisé de créer un dossier, connaissant le chemin
NouveauDossier="LeDossier"
MkDir "\\nom du réseau ou du pc\répertoire1\répertoire2\" & NouveauDossier

Il faut évidemment posséder les droits d'écriture sur ce réseau ou répertoire