Astuces Excel
  1. Astuces Excel
  3. Apprendre le nom d'user et la date à save comme dans VBA
Intereting Posts
Comment sélectionner des cellules en double sur la même ligne-conditionnellement Utilisez le dernier nombre de lignes dans une formule Excel avec connection C # Python3 Pandas – Créer un nouveau DataFrame basé sur un tableau d'objects Automatisation du file Excel ouvert / Exécuter le script / puis save le process avec un script VBA Fonction Paramètre optionnel dans VBA ne fonctionne pas Traitement du file excel attaché dans un logging d'entité personnalisé dans le module complémentaire Dynamic CRM (object ) range.get_Value (XL.XlRangeValueDataType.xlRangeValueDefault) provoque une erreur de conversion VBA Dual Loops Contiguous et Non Contiguous erreur csv-xls python "devrait renvoyer des strings, pas des octets" Type d'erreur de code VBA non coincé Excel VBA – Extrayez les dates correctes à partir de dates mal formatées? Dans Excel, COUNTIF () ne fonctionne pas avec une string constante définie Visual Basic: Importation de plusieurs files de text en plusieurs feuilles Dans la fonction DGET, comment utiliser plusieurs gammes de cellules comme critère de search?

Apprendre le nom d'user et la date à save comme dans VBA

Comment puis-je save le file excel à l'aide du code vba pour que le nom d'user et la date soient joints dans une macro?

Voici le code sur lequel j'ai travaillé pour essayer de le faire fonctionner: 

ActiveWorkbook.SaveAs FileName:=(Environ$("Username")) & "_" & Date & "_BKMtracker.xlsx", FileFormat:=xlOpenXMLWorkbook

Essaye ça:-

ActiveWorkbook.SaveAs FileName: = (Environ $ ("Nom d'user")) & "_" & Date & "_BKMtracker.xlsx", FileFormat: = xlOpenXMLWorkbook

Avec crédit à @MatthewD 

 Sub SaveDocument() Dim username As Ssortingng Dim nowFormated As Ssortingng Dim path As Ssortingng Dim filename As Ssortingng Dim extention As Ssortingng username = Environ("Username") & "_" 'gets the username nowFormated = CStr(Format(now, "yymmdd")) 'or every format you like path = "D:\" 'Wherever you want to save the file filename = "_BKMtracker" 'or what you want extention = ".xlsm" 'for example (with macros, else you have to change the FileFormat too) ActiveWorkbook.SaveAs filename:=path & username & nowFormated & filname & extention, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub