Bonjour.
J'utilise une méthode normalement éprouvée pour ouvrir une boîte de dialogue de sélection de dossier dans Outlook, à savoir créer une instance Excel à partir de laquelle l'appeler :
La procédure plante à la ligne 15 avec l'erreur suivante :
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 Public Function SelectionnerDossier(Optional ByVal CheminParDefaut As String) As String Dim objExcel As Excel.Application ' Uniquement pour Outlook, qui ne supporte pas l'objet "FileDialog" Dim objBoiteDialogue As FileDialog Dim strCheminParDefaut As String ' Définition du chemin par défaut sur "Mes Documents" si aucun n'a été passé en paramètre If Len(CheminParDefaut) > 0 Then strCheminParDefaut = CheminParDefaut Else strCheminParDefaut = LectureRegistre("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal", True) End If Set objExcel = New Excel.Application ' Uniquement pour Outlook, qui ne supporte pas l'objet "FileDialog" Set objBoiteDialogue = objExcel.Application.FileDialog(msoFileDialogFolderPicker) Sortie: With objBoiteDialogue .InitialFileName = strCheminParDefaut If .Show Then SelectionnerDossier = .SelectedItems(1) Else SelectionnerDossier = "" End If End With Set objBoiteDialogue = Nothing Set objExcel = Nothing ' Uniquement pour Outlook, qui ne supporte pas l'objet "FileDialog" End Function
Références activées :?err.Number
-2147319779
?err.Description
La méthode 'FileDialog' de l'objet '_Application' a échoué
- Visual Basic for Applications
- Microsoft Outlook 15.0 Object Library
- OLE Automation
- Microsoft Office 15.0 Object Library
- Microsoft Excel 15.0 Object Library
- Microsoft Forms 2.0 Object Library
- Microsoft Scripting Runtime
Quelqu'un aurait-il une idée ?
Merci d'avance !
Partager