Boite de dialogue GetOpenFilename depuis Outlook

Bonjour,

Depuis Excel, j’utilise souvent la fonction Application.GetOpenFilename pour sélectionner des noms de fichiers à ouvrir.
J’aimerais l’employer dans une macro Outlook pour sélectionner des noms de fichier à envoyer en pièces jointes.
Quand j'utilise cette fonction dans Outlook, Je lève une erreur d’exécution 438 : propriété ou méthode non gérée par cet objet

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NomFichier As Variant   Private Sub ChoixPJOutlook() NomFichier = Application.GetOpenFilename(, , "Ouvrir", , True) If Not IsArray(NomFichier) Then MsgBox "Vous n'avez pas sélectionné de fichier à envoyer" Exit Sub End If End Sub

---

J’ai vérifié les références et j’ai bien sélectionné les mêmes.

Actuellement, j’utilise la fonction Inputbox et je saisis manuellement les noms de fichiers et j’utilise une autre fonction pour vérifier que les fichiers existent. Cela fonctionne très bien mais je trouve que cela ferait plus professionnel avec la boite de dialogue.

L’un d’entre vous a-t-il une solution ? Merci d’avance.

salut,
attention, application n'est pas identique selon que tu utilises Excel ou Outlook :calim2:

Si tu veux utiliser GetOpenFileName, il faut pour cela simuler une application Excel.

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'en oubliant pas de cocher la référence Excel   Dim NomFichier As Variant Private Sub ChoixPJOutlook() Dim xlApp as New Excel.Application NomFichier = xlApp.GetOpenFilename(, , "Ouvrir", , True) If Not IsArray(NomFichier) Then MsgBox "Vous n'avez pas sélectionné de fichier à envoyer" Exit Sub End If End Sub

---

Bonjour Jpcheck,

Merci, cela fonctionne.

je n'avais pas compris que l'objet Application n'était pas le même selon que l'on se trouvait dans Excel, Word ou Outlook.

Mon application aura donc un aspect plus professionnel.