VBA pour creer dossier d'enregistrement en fonction du mois

Bonjour à tous,

Sous Excel 2016 j'ai un classeur avec plusieurs feuilles (devis, factures, etc...), avec un bouton j' enregistre la feuille "Facture" dans "D:\SARL\Factures\" . Jusque là tout va bien. Mais je voudrais qu'a l appui de ce bouton cela me crée un dossier dans "Factures" avec comme nom le mois et l'année en cours.

Exemple : nous sommes en décembre 2015, j appui, et hop le dossier "décembre 2015" se crée dans "Factures" et ma facture s'enregistre.

Que dois-je rajouter a ce code:

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim chemin As String, Fichier As String
chemin = "D:\SARL\Factures\"
Sheets("Factures").Copy
Fichier = Sheets("Factures").Range("C4") & " " & "F" & Format(Date, "ddmmyyyy") & ".xlsx"
With ActiveWorkbook
.SaveAs Filename:=chemin & Fichier
.Close
Application.DisplayAlerts = True
MsgBox ("Enregistré dans le dossier -Factures-")
End With
End Sub

Je precise que je debute dans l utilisation d'Excel.

Merci pour votre aide.

Cordialement...

Bonjour et bienvenu(e)

A tester

Private Sub CommandButton1_Click()
  Application.DisplayAlerts = False
  Dim Chemin As String, Fichier As String, Rep As String
  Chemin = "D:\SARL\Factures\"
  Rep = Application.Proper(MonthName(Month(Date))) & " " & Year(Date)
  On Error Resume Next
  MkDir Chemin & Rep
  On Error GoTo 0
  Chemin = Chemin & Rep & "\"
  Sheets("Factures").Copy
  Fichier = Sheets("Factures").Range("C4") & " " & "F" & Format(Date, "ddmmyyyy") & ".xlsx"
  With ActiveWorkbook
    .SaveAs Filename:=Chemin & Fichier
    .Close
    Application.DisplayAlerts = True
    MsgBox ("Enregistré dans le dossier -Factures-")
  End With
End Sub

bonjour bonzaï et merci de me répondre.

Ton code fonctionne a merveille apparemment.

Encore un grand merci a toi, cela fait une semaine que je me creuse la tête.

@+