Discussion :

[LUD734]

Salut,

Je suis actuellement confronté à la même problèmatique: je souhaite définir un argument (chemin d'accès du fichier) d'une fonction grâce à l'explorateur.
Ayant consulté longuement la FAQ, j'ai trouvé comment activer et paramètrer l'explorateur pour renvoyer dans un MsgBox le chemin du fichier sélectionné, mais toujours aucun moyen de l'utiliser pour définir l'argument.
J'ai essayé diverses opérations via un TransferText, mais rien à faire.

Donc la question est: Comment utiliser le chemin d'accès affiché dans ma MsgBox pour définir une variable?

Merci d'avance,

LUD734

[Jean-Philippe André]

Bonjour,
tu peux passer par

Code :

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

1
2
3
4
5
Dim temp as Variant
temp = Application.GetOpenFileName()
if tempo<> False Then
'code ouverture
End If

[LUD734]

Bonjour à toi JP,

Ah, le fameux GetOpenFileName!
Ca me simplifierait bien la vie de pouvoir utiliser cette commande, mais j'ai un petit problème avec: Chez moi, elle n'est disponible que sous Excel.
Sous Access, impossible de trouver la référence Microsoft Common Dialog Control, pour utiliser le composant OpenDialog. Pourtant, quand je parcoure manuellement, je trouve bien comdlg32.dll, mais impossible de rajouter la référence.
Ah oui, autre problème: ma boîte à outils est grisée: impossible de m'en servir -_-.

Bref, je ne peux pas utiliser la commande que tu me proposes JP, parce que l'objet n'est pas reconnu.

Une idée?

Merci d'avance,

LUD734

[Jean-Philippe André]

Pour utiliser GetOpenFileName, je passe par une "pseudo" Application Excel, que je kill à la fin. Il faut ajouter la référence Excel.

Code :

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

1
2
3
4
5
6
7
8
Dim tempoXlApp as New Excel.Application
Dim temp as Variant
temp = tempoXlApp.GetOpenFileName()
'
'
'
tempoXlApp .Quit
Set tempoXlApp  = Nothing

[LUD734]

Merci, j'ai résolu ce problème de GetOpenFileName.

Seulement, il semble y avoir un problème quand je l'intègre au code. Un exemple concret sera sûrement plus clair:

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
Sub EnvoiMailMéthodeOLE(Adresse As String, Objet As String, Corps As String, Optional Pièce As String, Optional Cc As String, Optional Bcc As String)
    Dim MonAppliOutlook As New Outlook.Application
    Dim MonMail As Outlook.MailItem
    Dim MaPièce As Outlook.Attachments
    Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
    With MonMail
        '.Display ' 
        .To = Adresse
        If Not IsNull(Cc) Then .Cc = Cc
        If Not IsNull(Bcc) Then .Bcc = Bcc
        .Subject = Objet
        .Body = Corps
        If Not IsNull(Pièce) Then
            Set MaPièce = .Attachments
            MaPièce.Add Pièce, olByValue
        End If
        .Send
    End With
End Sub

Et la fonction rattachée est la 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
Function EnvoiAvecPièceJointe()
Dim tempoXlApp As New Excel.Application
Dim temp As Variant
 
temp = tempoXlApp.GetOpenFileName()
 
    EnvoiMailMéthodeOLE Adresse:=InputBox("Entrer l'adresse du destinataire"), _
                        Objet:=InputBox("Objet du Message"), _
                        Corps:=InputBox("Message à envoyer"), _
                        Pièce:="temp", _
                        Cc:="", _
                        Bcc:=""
 
                        tempoXlApp.Quit
Set tempoXlApp = Nothing
 
End Function

Le message retourné est: Impossible de trouver ce fichier. Vérifiez quele chemin d'accès et le nom du fichier sont corrects. Pourtant je suis absolument sûr du nom du fichier, et de son existence.

Je dois passer pour un sous-doué, mais please, help!

[Jean-Philippe André]

et en remplaçant

Code :

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

Pièce:="temp", _

par

Code :

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

Pièce:= temp, _

d'autre part, tu dois combiner le IsNull avec IsMissing et mettre tester à False (cas où aucun fichier n'a été sélectionné).