Dossier - Peur : l'avion pour les trouillards sujet

Vous avez peur en avion ? Peut-être est-ce la crainte de l’inconnu, ou encore que les principes physiques derrière la portance de l’appareil vous sont étrangers. Avec ce dossier, vous saurez tout...

Lire la suite : Peur : l'avion pour les trouillards

[WD17] Créer Dossier, S/Dossiers sujet

Bonjour,

Je souhaite à partir d'une fenêtre créer simplement un dossier (ça je sais faire) :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

// Déclaration des variables RépertoireACréer est une chaîne ResCréation est un booléen // Sélection du répertoire à créer RépertoireACréer = SAI_Rep // Création du répertoire ResCréation = fRepCrée(RépertoireACréer+"\"+SAI_NomDossier) // Affichage du message d'erreur si la création n'a pas été effectuée SI ResCréation = Faux ALORS Erreur(ErreurInfo(errMessage)) SINON Info("Le dossier "+SAI_NomDossier+" et le(s) sous-dossier(s)a été(on été) créé dans "+SAI_Rep+".") FIN

---

Ce que ne sait pas faire : :roll:

Créer un dossier avec un ou plusieurs sous-dossiers suivant un choix prédéfini avec un champ interrupteur.
Créer un ou plusieurs sous-dossiers suivant un choix prédéfini avec un champ interrupteur.

Ci-joint une capture de ma fenêtre : Capture.PNG

Merci de votre aide.

Images attachées

• 
  
  Capture.PNG
  (21,3 Ko)
  

XL 2010 Creer dossier sujet

Bonjour

je cherche a modifier le code ci-joint afin de créer le dossier dans le fichier source au lieu de le créer a la base du lecteur.
Sub CreerDossier()

Dim Fe As Worksheet
Dim Tbl(1 To 5) As String
Dim DosAnnée As String
Dim DosClient As String
Dim DosMachine As String
Dim DosIntervention As String
Dim I As Integer

Set Fe = Worksheets("PARAMETRE")

With Fe
Dossier = .Range("L4")
DosAnnée = .Range("L2")
DosClient = .Range("E4")
DosMachine = .Range("E27") & "_" & .Range("E29")
DosIntervention = .Range("E53") & "_" & .Range("E32") & "_" & .Range("F32") & "_" & .Range("G32")

End With

'stocke dans un tableau pour boucler ensuite
Tbl(1) = Dossier
Tbl(2) = Dossier & "\" & DosAnnée
Tbl(3) = Dossier & "\" & DosAnnée & "\" & DosClient
Tbl(4) = Dossier & "\" & DosAnnée & "\" & DosClient & "\" & DosMachine
Tbl(5) = Dossier & "\" & DosAnnée & "\" & DosClient & "\" & DosMachine & "\" & DosIntervention

'le lecteur par défaut est celui où est enregistré le classeur
ChDir Split(ThisWorkbook.Path, "\")(0) & "\"

For I = 1 To 5

'gère les éventuelles erreurs
On Error Resume Next

'vérifie si le dossier existe déjà
If Dir(Tbl(I), vbDirectory) = "" Then

'crée le dossier dans le lecteur
MkDir Tbl(I)

'si une erreur est générée, message et fin de procédure...
If Err.Number <> 0 Then

MsgBox "Erreur lors de la création du dossier '" & Split(Tbl(I), "\")(I - 1) & "' !"
Exit Sub

End If

End If

Next I

'enregistre une copie dans le sous-dossier avec le nom du client
ThisWorkbook.SaveCopyAs Dossier & "\" & DosAnnée & "\" & DosClient & "\" & DosMachine & "\" & DosIntervention & "\" & DosClient & "_" & DosIntervention & ".xlsm"

End Sub

je vous joint le fichier pour exemple.

merci de votre aide

François

Fichiers attachés

• 
  
  Fichier exemple.xls‎
  (184,5 Ko)