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é).

[LUD734]

Si je remplace "temp" par temp, j'obtiens le code d'erreur: Erreur de Compilation, Type d'Argument ByRef incompatible.

En ce qui concerne la PJ, j'y avais pensé, mais les clients envoient toujours un mail avec une PJ (PDF Invitation+Plan), donc le cas PJ absente est exclu.

Merci de m'accorder du temps ^^

[Jean-Philippe André]

oki,
essaie alors avec :

Code :

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

Pièce:= CStr(temp), _

[LUD734]

Exactement ce qu'il fallait faire. Je me suis insulté de tous les noms quand j'ai vu ton message ^^. J'aurais dû y penser: c'est la chaîne de caractère contenue dans la variable qu'il me faut .

Merci infiniment. Maintenant, il faudrait que je réussisse à améliorer la convivialité de la fonction.

A ce propos, comment faire pour que la fonction sélectionne une ou plusieurs adresses d'une table, puis attribue ces valeurs à l'argument Adresse?
Je passe par une requête, mais le problème est qu'elle ne parvient pas à attribuer plusieurs adresses à la suite. Seule la première adresse est sélectionnée.

[Jean-Philippe André]

les adresses mail doivent bien être séparées par un ; non ?
concaténation des données issues d'une requete, ca te parle ?

[LUD734]

C'est parfait, merci bien.
En fait j'ai fait une confusion: j'ai utilisé "." au lieu de "+" => Souvenirs de programmation en PHP -_-.

Encore désolé de te demander des choses, mais y aurait-il un moyen de personnaliser l'InputBox pour le champ Corps du message? La rendre semblable au champ texte d'une messagerie?
Tout taper sur une seule ligne, avec une mise en page nécéssitant la connaissance des tables html, c'est moyen.

EDIT: En fait, je suis en train de me rendre compte que je demande de faire un logiciel simplifié de messagerie ...Il vaut peut-être mieux que je demande à la Section Informatique de nous prendre Access 2007, et exporter directement l'état en PDF pour l'envoyer via mail ...

[Jean-Philippe André]

hello,
tu peux passer par un formulaire au lieu de te "limiter" à une inputbox :
sinon à voir je pense
http://access.developpez.com/sources...nerateurMsgBox

[LUD734]

Super sympa ce code: très convivial et efficace

Petit soucis: La commande obtenue est une MsgBox: il faut toujours modifier le code obtenu pour en faire une chaîne de caractères reconnue en tant qu'argument "Corps", puis le coller dans la procédure, avant de la lancer non? Du coup ça rompt un peu la fluidité de l'automatisation.
Et puis pour quelqu'un qui ne connaît absolument pas Access ni VBA, j'ai peur que ça puisse créer des difficultés ...
Petite partie de modifs, copier/coller ...

=> Ergonomie peu présente. Non, je pense vraiment qu'un passage à Access 2007 résoudrait le problème. Je vais juste tenter de garder l'explorateur afin qu'il puisse s'ouvrir et sélectionner la PJ avant l'ouverture d'Outlook, et la requête adresse, histoire d'automatiser un peu.
J'espère seulement que la sécurité informatique nous donnera le feu vert ...

Sinon, y aurait-il un moyen de créer automatiquement un PDF à partir d'un état depuis Access 2003, puis de l'inclure automatiquement dans un message?
Tous les articles que j'ai consulté ne donnent pas de solution claire et précise.

Merci

[Jean-Philippe André]

Le passage automatique d'un état en PDF peut se faire, dès l'instant que tu as un outil installé sur ta machine (Adobe, PDF Creator, etc.)
Il faut appliquer le code fourni dans les librairies.

Tiens nous au courant pour l'Access 2007.

[LUD734]

J'ai Adobe Reader d'installé sur les postes, ainsi que PDFCreator.

J'ai trouvé un petit bout de code (livré comme exemple avec PDFCreator ) qui imprime sans problème le PDF d'un état virtuellement, sans les demandes de confirmation habituelles, donc tout va bien.

Reste plus qu'à trouver le moyen de l'inclure automatiquement en tant que PJ dans un mail.

J'ai contacté la Section Info => Ils vont se pencher sur le problème ...
Espèrons seulement qu'ils vont pas prendre autant de temps à décider que la justice à émettre un jugement sur une affaire xD