Discussion :

[Le Sage]

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 :

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

La procédure plante à la ligne 15 avec l'erreur suivante :

?err.Number
-2147319779

?err.Description
La méthode 'FileDialog' de l'objet '_Application' a échoué

Références activées :

• 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 !

[Oliv-]

salut,
regarde là
https://www.developpez.net/forums/d1...u/#post7652773

[Le Sage]

salut,
regarde là
https://www.developpez.net/forums/d1...u/#post7652773

Bonjour, et merci pour ta réponse.

Malheureusement, c'est exactement ce que je fais, à ceci près que j'utilise Set objExcel = New Excel.Application au lieu de Set objExcel = CreateObject("Excel.application")

J'ai quand même essayé, au cas où, mais comme je le craignais, ça ne change rien... Même plantage au même endroit.

Une autre idée ?

[Oliv-]

salut
et en remplçant
Set objBoiteDialogue = objExcel.Application.FileDialog(msoFileDialogFolderPicker)

par Set objBoiteDialogue = objExcel.FileDialog(msoFileDialogFolderPicker)

[Le Sage]

salut
et en remplçant
Set objBoiteDialogue = objExcel.Application.FileDialog(msoFileDialogFolderPicker)

par Set objBoiteDialogue = objExcel.FileDialog(msoFileDialogFolderPicker)

J'avais déjà essayé... même punition !

[Oliv-]

Sous OL2010 ton code fonctionne parfaitement,
depuis quand ce problème est il apparut ? depuis OFFICE 2013 ?

[Le Sage]

Sous OL2010 ton code fonctionne parfaitement,
depuis quand ce problème est il apparut ? depuis OFFICE 2013 ?

Oui, il fonctionnait sous 2010, et c'est probablement depuis 2013 qu'il bugue

[Oliv-]

salut
c'est étrange --> https://msdn.microsoft.com/fr-fr/lib...or=-2147217396

et en changeant

Dim objBoiteDialogue As FileDialog
par
Dim objBoiteDialogue

[Le Sage]

salut
c'est étrange --> https://msdn.microsoft.com/fr-fr/lib...or=-2147217396

et en changeant

Dim objBoiteDialogue As FileDialog
par
Dim objBoiteDialogue

Merci, mais as mieux...

[Oliv-]

testé avec office 2016 ton code fonctionne

[Le Sage]

testé avec office 2016 ton code fonctionne

On est bien d'accord : mon code devrait fonctionner. Le problème vient donc d'ailleurs, mais je n'arrive pas à le situer...

[Oliv-]

essaye de repartir avec un projet vide

tu vas dans %AppData%\Roaming\Microsoft\Outlook où tu devrais trouver VBAPROJECT.otm tu le renommes et tu aura au lancement de Outlook un nouveau fichier de macro

(ou dans %AppData%\Local\Microsoft\Outlook)

où tu pourras tester ton code

Si cela ne marche pas il faudra tester un autre profil Outlook, puis si cela ne marche aps un autre profil Windows.

Tu peux aussi vérifier ton projet initial en lançant une compilation.