XL 2019 Création de dossier avec bouton

  • Initiateur de la discussion Initiateur de la discussion Olympe46
  • Date de début Date de début

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 !

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

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

  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
100
  • Question Question
Réponses
29
Affichages
425
Réponses
10
Affichages
347
Réponses
4
Affichages
144
Réponses
22
Affichages
491
Retour