Hello,
Si dans ta cellule A1 tu indiques le chemin du repertoire et en A2 le nom du fichier, tu peux saisir cette macro (tu peux tout à fait remplacer les variables directement par les valeurs dans la macro si celles ci ne varient pas) :
Sub Creation ()
Rep = Range("A1").Value
F = Range("A2").Value
On Error GoTo fin
MkDir Rep
ActiveWorkbook.SaveAs Filename:=Rep & F
Exit Sub
fin:
If Err = 75 Then MsgBox "Il existe déja !!!", vbInformation, "Message"
End Sub
Par contre je ne sais pas créer le raccourci... désolé
Espérant avoir pu t'aider.
Bye
Ju