XL 2019 Création de dossier avec bouton

Olympe46

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

Pièces jointes

  • 0 -SUIVI employé.xlsm
    113.3 KB · Affichages: 7

Efgé

XLDnaute Barbatruc
Bonjour @Olympe46
Peut-être comme ça:
VB:
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

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

Olympe46

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

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

Discussions similaires

Réponses
11
Affichages
322
Réponses
1
Affichages
378
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 843
Messages
2 092 753
Membres
105 521
dernier inscrit
Chercheur d'excel