Enregistrer nom bureau

Bonjour,

J'aimerais enregistrer un fichier par une macro avec un nom de bureau variable. J'utilise donc la macro ci-dessous :

login = Environ("userprofile") & "\desktop"
...
    ActiveWorkbook.SaveAs Filename:= _
        login &"\DJU TOURS.xlsx", FileFormat:=
        xlOpenXMLWorkbook , CreateBackup:=False

Mais la deuxième partie ne marche pas. Je ne comprends pas pourquoi ...

Merci pour votre aide,

Coco

Problème réglé en bidouillant, j'ai mis directement l’adresse complète dans "login"

Coco