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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour