XL 2019 Création de dossier avec bouton

[Olympe46]

Bonjour à tous
malgré mes recherches sur le forum je n'arrive pas trouvé mon code
J'ai un classeur Excel avec une feuille type qui lorsque que je crée un nouveau employé grâce a un formulaire cela créer une nouvelle feuille qui se renomme non+agent.
J'aimerais pourvoir avoir sur ma feuille type un bouton qui créer automatiquement un dossier qui se nommerai du non de la feuille créer.
Je sais pas si je suis claire
Je vous joint mon fichier si besoin

 

[Efgé]

Bonjour @Olympe46
Peut-être comme ça:

Private Sub CommandButton36_Click()
Dim numFacture As String, sDossier As String
    numFacture = InputBox("NOTER NON PRENON DU NOUVEAU AGENT")
    Sheets("AGENTTYPE").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = numFacture
    'Chemin du  dossier (Dans le même dossier que le classeur ouvert)
    sDossier = ThisWorkbook.Path & "\" & numFacture
    'Si le dossier n'existe pas
    If Dir(sDossier, vbDirectory) = "" Then
    'Création du dossier
        MkDir sDossier
    'Fin de la condition
    End If
End Sub

Cordialement

 

[Olympe46]

Merci beaucoup de ta réponse cela m'a fait avancé énormément
Mais peut- tu me dire si il est possible de créer un nouveau dossier avec un dossier type existant qui contient des sous-dossiers et le mettre dans une autre emplacement

 

[Efgé]

Re
Je ne pense pas, ou ne sait, le faire.
Pour créer toute un arborescence regarde le classeur joint

Cordialement

 

[Efgé]

Re
Regarde par là :

VBA: copier un dossier et son contenu | Excel-Malin.com

Code VBA pour copier un dossier entier avec son contenu (sous-dossiers & fichiers). Le code VBA prêt à l'emploi, explications, exemples,...

excel-malin.com

pas testè mais ça parle de ta demande.
Cordialement

 

[Olympe46]

Merci de ta réponse mais je ne sais pas comment faire le lien entre la création du nouveau dossier et copier les éléments d'un dossier existant dans ce nouveau dossier.
Le code d' Efgé me permet de créer le dossier niquel mais comment faire pour copier les sous dossiers types du dossier type pour qu'il se mettent dan le dossier créer.
Oula je ne sais pas si c'est très clair tous ça

 

[Efgé]

Re
Je pense que tu as raté mon post précédent
Cordialement

 

[Olympe46]

Si si mais je n'arrive pas le lien entre les deux la création et et la copie

 

[Efgé]

Re
Deux solutions:
Soit tu copies un dossier existant en le renommant et là tu regarde le lien que j'ai laissé, soit on crée une arborescence complète.
Pour la seconde option, il faut à minima me donner l'arborescence attendue.

A te relire

Cordialement

 

[Olympe46]

l'arborescence du dossier avec les sous-dossier ?
Si oui je peux t'envoyer en MP ?

 

[Olympe46]

je n'y arrive pas avec le lien que tu m'as fait suivre

 

[kiki29]

Salut, pour info : JB