XL 2019 Création dossier avec le mois actuel

Achille_1

XLDnaute Nouveau
Bonjour,

Je cherche à créer à partir Excel un dossier vide avec le nom du mois actuel (ex: on est en juillet, donc nom du dossier --> 07-juillet) et bien sûr quand on sera en août un nouveau dossier sera créer.
Toutefois si le dossier du mois actuel existe déjà il ne faut pas qu'il soit remplacé par un nouveau (Je ne veux pas perdre les données qur j'aurais stocké entre temps).
Les dossiers devront avoir comme chemin : ‪C:\Users\ORAABEU\Desktop
Ce dossier sera créé à partir d'un bouton quelconque et ce dernier déplacera en même temps un fichier dans le dossier du mois correspond.
Quelqu'un aurait-il une solution ? :)
Je vous ai mis un exemple des dossiers que je voudrais automatiser.

Bonne journée,

Achille
 

Pièces jointes

  • 2.JPG
    2.JPG
    46 KB · Affichages: 14
Solution
Bonjour,
VB:
Sub test()
   MsgBox CreatRep(Environ("UserProfile") & "\Desktop\" & Format(Date, "mm-Mmmm"))
End Sub
Function CreatRep(Rep As String) As Boolean
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(Rep) Then
    Fso.CreateFolder Rep
    CreatRep = True
End If
End Function

dysorthographie

XLDnaute Accro
Bonjour,
VB:
Sub test()
   MsgBox CreatRep(Environ("UserProfile") & "\Desktop\" & Format(Date, "mm-Mmmm"))
End Sub
Function CreatRep(Rep As String) As Boolean
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(Rep) Then
    Fso.CreateFolder Rep
    CreatRep = True
End If
End Function
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal