Bonjour à tous les deux,
Votre code ne peut pas fonctionner pour deux raisons :
- la première : vous avez oublié de mettre un antislash après Secretariat.
au lieu de :
Chemin = "C:\Users\hp\Documents\Gestion Secretariat" & NomDossier & "\"
lire :
Chemin = "C:\Users\hp\Documents\Gestion Secretariat\" & NomDossier & "\"
(également dans la ligne qui suit).
- en admettant que le sous-dossier C:\Users\hp\Documents existe et que vous ayez entré "Juin" dans la boite de saisie (InputBox), vous ne pouvez pas créer directement le sous-dossier C:\Users\hp\Documents\Gestion Secretariat\Juin\.
A l'aide de la fonction mkDir, vous devez créer dans l'ordre :
- C:\Users\hp\Documents\Gestion Secretariat\
- puis C:\Users\hp\Documents\Gestion Secretariat\Juin\
Si le sous-dossier C:\Users\hp\Documents\ n'existe pas, dans la même logique, vous devez créer dans l'ordre :
- C:\Users\hp\Documents\
- puis C:\Users\hp\Documents\Gestion Secretariat\
- enfin C:\Users\hp\Documents\Gestion Secretariat\Juin\