Sub Macro1()
'Création sur le bureau d'un répertoire "Portefeuilles des CER, CCT & VR_le 'Date du jour'"
Const Cible = &H10 'Bureau
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Cible)
Set objFolderItem = objFolder.Self
MkDir objFolderItem.Path & "\" & "Portefeuilles des CER, CCT & VR_le " & Format(Now(), "dd-mm-yyyy")
'Copie de la feuille vers un nouveau classeur dans le répertoire créé sur le bureau
Sheets("export").Copy
'Création du nouveau classeur
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
extension = ".xlsx"
nomfichier = "Paris_En cours_le " & Format(Now(), "dd-mm-yyyy") & extension
With ActiveWorkbook
'Déclaration du chemin (c'est là que ça plante : si je mets \ avant la " alors message d'erreur d'exécution 1004 et si je n'en mets pas le classeur se crée directement sur le Bureau et non dans le répertoire créé à cet effet).
chemin = "D:\Users\rxstephane\Desktop\Portefeuilles des CER, CCT & VR_le & Format(Now()\"
.SaveAs Filename:=chemin & nomfichier
.Close
End With'
End Sub