Bonjour,
Dans une discussion précédente, je demandais de l'aide pour une macro qui permet d'enregistrer des courriels dans un dossier à partir de raccourci.
Avec votre aide, j'ai réussi mais j'aimerais savoir comment modifier mon code pour suggérer automatiquement le "bureau" d'un utilisateur.
Voici mon code :
Je sais qu'il faudrait changer la ligne 22 où il est question d'affecter ".InitialFileName ".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 ... Function BrowseFolderExplorer(Optional DialogTitle As String, _ Optional ViewType As MsoFileDialogView = _ MsoFileDialogView.msoFileDialogViewSmallIcons, _ Optional InitialDirectory As String) As String ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' BrowseFolderExplorer ' This provides an Explorer-like Folder Open dialog. ' http://www.cpearson.com/excel/browsefolder.aspx ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim fDialog As Office.FileDialog Dim varFile As Variant Dim ExcelApp Set ExcelApp = CreateObject("Excel.application") ExcelApp.Visible = False Set fDialog = ExcelApp.FileDialog(msoFileDialogFolderPicker) fDialog.InitialView = ViewType With fDialog If Dir(InitialDirectory, vbDirectory) <> vbNullString Then .InitialFileName = InitialDirectory Else .InitialFileName = CurDir End If .Title = DialogTitle If .Show = True Then ....
Mais comment repérer le nom du bureau d'un utilisateur. Surtout que plusieurs utilisateurs sur différents ordis utilisent la macro.
Merci
Partager