Discussion :

[Martin_77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Philippe André]

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

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

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Martin_77]

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.