Enregistrement feuille en csv

Bonjour,

je cherche a faire un bouton qui enregistre la feuille sur lequel il est.

Il doit enregistrer en csv.

le non du fichier enregistré doit être : acc+"date du jour + heure"

emplacement de l'enregistrement : \\nas\excel\

une fois enregistré le document d’origine doit se fermer sans enregistré les modifications

Sub ExportCSV()

ActiveWorkbook.SaveAs Filename:="\\nas\excel\acc.csv", _
FileFormat:=xlCSV, CreateBackup:=False

Workbooks("acc.csv").Close SaveChanges:=False

End Sub

Ce code marche sauf pour la date du jour + heure

je n'arrive pas a intégrer la fonction

& Format(Time, "hh-mm")  

je sais que cela dois être assez simple, mais je suis débutant alors merci d'avance

j'ai réussi a mettre la date, maintenant il faut que je remette le chemin

Je vais finir par trouver...

 Sub ExportCSV()

valeur = "acc_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".csv"

ActiveWorkbook.SaveAs Filename:=valeur, _
FileFormat:=xlCSV, CreateBackup:=False

Workbooks("acc.csv").Close SaveChanges:=False

End Sub 

je viens de trouver

Sub ExportCSV()

valeur = "acc_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".csv"
chemin = "\\nas\excel\"

ActiveWorkbook.SaveAs Filename:=chemin & valeur, _
FileFormat:=xlCSV, CreateBackup:=False

ActiveWorkbook.Close SaveChanges:=False

End Sub