Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

abdounet1

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…