Bouton de commande - cliquez et enregistrez sur le bureau de l'utilisateur (il y a beaucoup d'utilisateurs)

Question

J'ai configuré la macro suivante pour que le document soit automatiquement enregistré sur mon bureau avec le nom dans la cellule D1. Cependant, au lieu d'enregistrer sur mon bureau, il enregistre automatiquement sous bibliothèque/documents. Il est destiné à plusieurs utilisateurs et devrait donc être sauvegardé sur leur bureau en cliquant sur le bouton. Un commentaire que j'ai délibérément fait "\ desktop" alors que sinon il est simplement ajouté dans le nom. Ce serait génial si vous pouviez partager avec moi le dernier morceau de la macro. Un grand merci pour votre aide et vos suggestions.

Private Sub CommandButton21_Click() 
    Set objWS = CreateObject("WScript.Shell") 
    strDesktopPath = objWS.SpecialFolders("\Desktop") 
    Dim FileName1 As String 
    FileName1 = Range("D1") 
    ThisWorkbook.SaveAs strDesktopPath & FileName1 & ".xlsm", 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled 
End Sub 

Answer 1

supprimer "\" de strDesktopPath = objWS.SpecialFolders("\Desktop")

ajouter "\" entre ...strDesktopPath et & FileName1 & ".xlsm",

ajouter une séquence "_" après des caractères de continuation ","

like suit:

Private Sub CommandButton21_Click() 
     Set objWS = CreateObject("WScript.Shell") 
     strDesktopPath = objWS.SpecialFolders("Desktop") 
     Dim FileName1 As String 
     FileName1 = Range("D1") 
     ThisWorkbook.SaveAs strDesktopPath & "\" & FileName1 & ".xlsm", _ 
FileFormat:=xlOpenXMLWorkbookMacroEnabled 
    End Sub