CDO et les pièces jointes, une solution de contournement ?

[onobyone]

Bonjour tout le monde,

En parcourant le net, il est bien expliqué que pour envoyer une pièce jointe via CDO, il faut entrer le chemin "en dur" du répertoire de stockage et le nom du fichier, par exemple

.AddAttachment "c:\temp\toto.xls"

.
Cela me pose un souci car je souhaiterais envoyer le fichier courant en pièce jointe (comme je le fais pour l'envoi de la pièce jointe via Notes).
J'ai tenté l'envoi du fichier après l'avoir sauvegardé sous un autre nom mais CDO n'accepte pas la valeur d'une "variable", exemple :

Fichier = ActiveWorkbook.path + " \ " + ActiveWorkbook.name
.AddAttachment Fichier

ou

Fichier = Chr(34") & ActiveWorkbook.path + " \ " + ActiveWorkbook.name & Chr(34)
.AddAttachment Fichier

ou

Fichier = "C:\temp\"  ActiveWorkbook.name
.AddAttachment Fichier

etc..

Je souhatais donc savoir si quelqu'un aurait une solution de contournement.
Je vous remercie par avance.
A toutes fins utiles, je joints le fichier contenant le code d'envoi de message (code par défaut CDO, sans déclaration de nom de fichier)
Pour information, selon les réponses, je risque de poser la même question sur un autre forum spécialisé dans excel.

 

[david84]

Re : CDO et les pièces jointes, une solution de contournement ?

Bonjour,
ci-joint 2 liens trouvés sur le Net, si cela peut t'aider :

Comment envoyer un mail automatiquement avec une pice jointe ?

http://www.rondebruin.nl/cdo.htm

.
Si tu trouves une solution sur un autre site, merci de nous la communiquer.
A+

 

[onobyone]

Re : CDO et les pièces jointes, une solution de contournement ?

Merci pour la réponse.
Je vais regarder cela et oui, si on me communique une solution, sans problème, je la reporte ici !

 

[onobyone]

Re : CDO et les pièces jointes, une solution de contournement ?

La solution est dans le lien que David84 nous a communiqué (Sending mail from Excel with CDO)
Enregistrer l'exemple dans la rubrique Download workbook with more examples
J'ai utilisé le module file1 et ça m'ouvre des perspectives de solution!

Merci beaucoup pour votre aide !