Bonjour,
J'ai le code ci-dessous qui me permet de créer un dossier dans un répertoire. Mon problème c'est que je veux créer dans ce dossier quatre sous-dossiers (devis,factures,pièces,documents) est ce possible en gardant le même code ?
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Set filesys = CreateObject("Scripting.FileSystemObject" )
Application.DisplayAlerts = False
Rep = "\\FANNY\Profdata\VINCENT\Bureau\Logiciel\Projets 2014\"
NomFic = TextBox2.Value & "-" & TextBox3.Value & "-" & TextBox4.Value
Nom = Rep & NomFic
If Not filesys.FolderExists(Nom) Then
Set newfolder = filesys.CreateFolder(Nom)
MsgBox ("Le repertoire " & Nom & " a été créé" )
Else
MsgBox "Le repertoire existe déjà"
End If
Si mon message n'est claire merci de me l'indiquer
Merci d'avance
Message édité par 00vincent00 le 01-07-2014 à 14:12:11