Bonjour à tous,

Je cherche à envoyer un fichier par mail en pièce jointe, j'ai récupéré un code VBA, mais ça bloque au niveau du fichier en pièce jointe lorsque je veux envoyer mon fchier, voici le code:

Sub EnvoiMail()
Répertoire = "C:"
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
ThisWorkbook.SaveCopyAs Répertoire & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _
Format(Now, " yyyy-mm-dd") & ".xls"

Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = "essai@hotmail.fr"
.From = "essai1@hotmail.fr"
.Subject = "Sujet"
.TextBody = "corp du message"
.AddAttachment ("C:\largeur.jpg")
.Send
End With
Set Cdo_Message = Nothing
End Sub

Lorsque je mets un fichier déjà enregistré ça fonctionne (comme "c:\largeur.jpg") mais si j'essaie de mettre activeworkbook ou thisworkbook ça plante.

Si vous avez des idées je suis preneur.

Merci d'avance

Yaloo

Bonjour,

AddAttachment fonctionne avec un fichier joint et une adresse de fichier enregistré.

...quelque chose comme ça (non testé) :

Sub EnvoiMail()
Dim Cdo_Message As Object, Z$

Z = ThisWorkbook.Name
Z = "C:\" & Left(Z, Len(Z) - 4) & Format(Now, " yyyy-mm-dd") & ".xls"
ThisWorkbook.SaveCopyAs Z

Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = "essai@hotmail.fr"
.From = "essai1@hotmail.fr"
.Subject = "Sujet"
.TextBody = "corp du message"
.AddAttachment Z
.Send
End With
Set Cdo_Message = Nothing

Kill Z '(éventuellement)
End Sub

A+

Salut Galopin,

J'avais aussi essayé comme ça, en déclarant une variable, mais je 'y suis mal pris car cela ne fonctionnait pas.

Merci pour le code modifié ça marche très bien, mais pourquoi mets-tu $ ? Ca sert à quoi ?

Yaloo

Bonjour,

Le Galopin est est peu fainéant et quand il peut s'éviter du travail...

C'est l'équivalent de :

Dim Z as String

J'ai pris l'habitude d'utiliser la notation abrégée. Quand il y a de nombreuses variables, c'est quand même bien pratique.

A+

Merci du retour

Bonjour,

Lors de mes essais, j'étais sous Office 2010, mais ce fichier est sur un PC avec Office 2003.

Ca plante sur .send

Message d'erreur : Erreur d'éxécution '-2147220960 (80040220)'

La valeur de configuration "SendUsing" est non valide.

Pourriez-vous m'aider ?

Yaloo

bonsoir,

Je ne peux pas dire je n'utilise pas CDO

A+

Bonsoir Galopin,

As-tu une autre astuce pour envoyer un mail avec le fichier actif en pièce jointe ?

Moi non plus je n'utilisait pas CDO, avant de trouver ce code.

Par contre, c'est un fichier que je fais pour plusieurs personnes, qui n'ont pas forcément le même Office, ni le même FAI, ou qui ont une adresse hotmail. Donc il faudrait qqchose de simple à utiliser et "qui passe partout"

Si tu as une idée, n'hésite pas

A+

Tu as Outlook ?

Euh... Désolé je n'avais pas lu le :

Par contre, c'est un fichier que je fais pour plusieurs personnes, qui n'ont pas forcément le même Office, ni le même FAI, ou qui ont une adresse hotmail.

Donc il faudrait qqchose de simple à utiliser et "qui passe partout"

Je ne suis pas certain que ce soit faisable. Si tu lis un peu le nombre de questions sur les forums spécialisés qui concernent ce sujet tu te rendras très vite compte que chaque cas est un cas d'espèce...

Bonjour,

Et bien oui, d'après ce que j'avais lu sur CDO, on pouvait envoyer des messages sans passer par Outlook ou bien envoyer avec une adresse gmail ou hotmail.

C'est pour ça que j'étais parti là-dessus, j'ai l'impression que mon problème viens du pc, car sur celui-ci, j'ai Office 2003 et 2007, aucun ne fonctionne. Sur un autre PC avec Office 2010, ça marche très bien.

Je vais fouiller davantage.

A+

CDO me semble étroitement dépendant de la machine, avec des paramétrages parfois délicats...

ça me semble être une manivelle un peu désuète. La plupart ont opté pour le démarreur électrique !

Il reste que dans la plupart des cas les ceusses qui posent encore la question le font pour 1 programme et 1 machine pas pour un groupe de machines disparates...

Tout sur le sujet ici

+

Bon, c'est super, avec le lien que tu m'as indiqué, j'ai pu m'en sortir.

Généralement je ne lis pas les fichiers ou les sites en anglais car j'y comprend rien, mais avec un bon traducteur, ton lien m'a largement dépanné.

A+