web-dev-qa-db-fra.com

Comment enregistrer Excel Workbook sur le bureau quel que soit l'utilisateur?

J'ai un classeur Excel qui, sur le bouton du formulaire, clique sur Je dois enregistrer une copie du classeur sur le bureau de l'utilisateur.

À l'origine, tout se trouvait sur un dossier réseau partagé, mais j'ai maintenant environ 6 utilisateurs différents qui, lorsqu'ils cliquent sur le bouton, doivent enregistrer le classeur sur leurs ordinateurs de bureau.

S'agit-il d'un moyen (au niveau du codage) d'enregistrer sur le bureau de la machine sans avoir à spécifier des utilisateurs individuels (ce qui m'obligerait à gérer 6 fichiers de classeur différents)?

excelexcel-vbavba
15
Analytic Lunatic

Je pense que c'est le moyen le plus fiable d'obtenir le chemin d'accès au bureau, qui n'est pas toujours identique au nom d'utilisateur.

MsgBox CreateObject("WScript.Shell").specialfolders("Desktop")
30
SWa

Vous avez mentionné qu'ils possédaient chacun leur propre ordinateur, mais s'ils devaient se connecter à un ordinateur de collègues, puis utiliser le fichier, le sauvegarder via "C:\Utilisateurs\Public\Bureau \" différents noms d'utilisateurs.

Public Sub SaveToDesktop()
    ThisWorkbook.SaveAs Filename:="C:\Users\Public\Desktop\" & ThisWorkbook.Name & "_copy", _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Je ne suis pas sûr que ce soit une exigence, mais peut aider!

0
Conquistador