Envoyer un fichier excel

Question

Bonjour, 

dans un fichier excel, je peux mettre dans une cellule une ou plusieurs adresse mail.
Lorsque je clique dessus, ma boite mail s'ouvre automatiquement et le champs des destinataire est directement remplie

est-il possible d'insérer automatiquement en pièce jointe ce même fichier Excel.
actuellement, je suis obligé d'aller le chercher manuellement.

 avec tous mes remerciements
 

Configuration: Windows 7 / Chrome 27.0.1453.110

Raymond PENTIER · Answer

Je vois mal comment un fichier excel peut s'expédier lui-même, alors qu'il est actif ! 
Il faudrait au moins que tu en fasses une copie, et expédier celle-ci ...

Mike-31 · Answer

Bonsoir,

C'est tout a fait possible par VBA uniquement si tu as quelques notions.
Le mieux serait de joindre un exemple de fichier proche du réel pour adapter un code que tu peux joindre avec ce lien

https://www.cjoint.com/

TOURRET · Answer

Bonjour,

Merci de votre retour
voici le lien de mon fichier:
http://cjoint.com/?CFElJ1TX5UH 

Sur ce fichier, je souhaiterais deux choses:
- le renommer automatiquement lors de l'enregistrement (sur le bureau par exemple). Le nom étant égale à la valeur renseignée en cellule F48 (dans l'exemple joint)
- envoyer directement ce fichier avec ci possible la valeur renseignée en cellule F48 (dans l'exemple joint) dans l'objet du mail
- le lien hypertexte fonctionne à moitié. Je sais envoyé le mail à l'adresse voulue mais sans le fichier excel en PJ et sans renseigner l'objet du mail en question.

Dans l'attente de votre retour, 

Cordialement

Mike-31 · Answer

Re,

Quel est ton fournisseur d'accès internet 

et veux tu expédier tout le classeur ou une feuille en particulier ou simplement une plage de cellules
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

TOURRET · Answer

Merci de votre retour,

Mon classeur ne comporte qu'une seule feuille. c'est cette feuille que je veux expédier éventuellement le classeur si plus simple

Le fichier doit être renseigné par des personnes étant chez des fournisseurs différents et ensuite, envoyé vers les adresses de quatre collaborateurs différentes: un est chez Free, une autre chez AOL, un troisième chez Orange et moi-même chez une filiale de SFR.

Cette automatisation est étudiée pour que les quatre reçoivent le fichier. Aujourd'hui, de façon traditionnelle, il y a toujours un destinataire qui est oublié, lorsque ce n'est pas la pièce-jointe elle-même.

cordialement

Mike-31 · Answer

Re,

Rapidement un bout de code que j'ai adapté pour essai, 
en F46 saisir ou modifier le SMTP
F48 le nom du fichier
F53 l'adresse du destinataire

 https://www.cjoint.com/?CFEsrtwySXk

TOURRET · Answer

merci de votre retour

lorsque je clique sur envoi, j'ai une fenêtre qui s'ouvre et propose un débogage

si je débogue, il y a le code qui s'affiche avec une erreur qui s'affiche en jaune :    Nom_envoi = Workbooks("Tourret.xlsm").Sheets("Feuil1").Range("F48").Value

cordialement

Mike-31 · Answer

Re,

Je viens de re-tester le fichier tout va bien de mon côté, teste tu le fichier que je t'ai retourné, as tu bien saisi en F46 ton SMTP

en F48 ce n'est que le nom donné au fichier d'envoi

mais en F53 tu dois saisir l'adresse destinataire

je te retourne le fichier

https://www.cjoint.com/?CFEvb6fRCYa

TOURRET · Answer

Merci, 

je n'ai pas réussi à faire fonctionner le fichier.
si je renseigne le SMTP, j'ai maintenant le code erreur, "le transport a échoué dans sa connection au serveur"

Cordialement

Mike-31 · Answer

Re,

Qu'as tu mis comme SMTP 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

TOURRET · Answer

bonjour,

j'ai mis "akeonet.com",
c'est la partie qui se trouve derrière @ de mon adresse mail

Cordialement

Mike-31 · Answer

Re,

Pas sur que ce soit cela quel est ton fournisseur d'accès

TOURRET · Answer

Bonjour,

Merci beaucoup de votre retour, 

Mon fournisseur est une filiale de SFR (akeonet)

Cordialement

Mike-31 · Answer

Re,

C'est pourtant cela mais sans les guillemets

SMTP. akeonet.com

TOUTOU03 · Answer

Bonjour,

Merci beaucoup de votre retour

je viens enfin de réussir à envoyer le fichier.
en fait, je n'avais pas renommer le fichier tel qu'il était reconnu par la macro. 

Je remarque deux choses:
- lorsque le fichier arrive sur ma boite mail, le nom indiqué en F48 est bien pris en compte, mais il est suivi d'une date et heure: peut-on éviter cela
- l'adresse expéditeur n'est pas celui de l'expéditeur, mais celle ci : www.xxxxxxx@free.fr. peut on indiquer soit l'adresse réelle de l'expéditeur, soit une valeur indiquée dans une cellule?

Cordialement,

Mike-31 · Answer

Re,

Dans le code tu remarqueras cette ligne, saisir entre les guillemets l'adresse expéditeur, mais dans ton cas il vaudrait mieux saisir cette adresse dans une cellule

 Const Exped As Variant = "www.xxxxxxx@free.fr" '------ adresse mail de réponse de l'expéditeur

ensuite pour ne pas avoir la date et l'heure d'envoi rechercher cette ligne et supprimer la partie en gras

 TempFileName = Nom_envoi & " " & Format(Now, "dd-mm-yyyy h-mm") 

pour inclure le nom de l'expéditeur dans une cellule donne moi l'adresse de la cellule souhaitée ainsi que les adresses des cellules du smtp, nom et adresse destinataire que je revois le code et surtout le simplifie
-
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

TOUTOU03 · Answer

Bonjour,

merci de votre retour
J'ai essayé d'adapter mon fichier final, mais sans succés. Il est vrai qu'il contient plus de colonne

https://www.cjoint.com/c/CGhvvAk3XJ1 

les personnes qui devront me retourner le fichier sont chez des fournisseurs variés (Oranges, Bouygues, Sfr, Free, etc...) d'ou la difficulté d'avoir un seul SMPT
Existe t'il un moyen de contourner cette problématique
par contre, il doit renseigner son adresse mail en cellule AG7

Cordialement

Mike-31 · Answer

Re,


En AG7 saisir l'adresse expéditeur, 
en F53 l'adresse destinataire et tester le fichier voir si l'extraction du SMTP se fait correctement  avec les divers opérateurs

	https://www.cjoint.com/c/CGjltt7w90e

TOUTOU03 · Answer

Bonjour,

merci de votre retour,

j'ai fait plusieurs tentative.
ça fonctionne mais j'ai toujours en expéditeur le :www.xxxxxxx@free.fr

il me reste à adapter cette macro à mon fichier final

cordialement,

Mike-31 · Answer

Re,

Ah oui j'avais oublié de déclarer la variable, donc en AG7 l'adresse expéditeur, en F48 le nom du fichier et en F53 l'adresse destinataire

	https://www.cjoint.com/c/CGktuV6sC96 

encore mille excuses

TOURRET · Answer

bonjour,

merci de votre retour,

j'ai fait plusieurs tentative. 
cette fois, il me demande à l'ouverture du fichier d'insérer une carte à puce et je ne peux plus rien envoyer

cordialement,

Mike-31 · Answer

Re,

 je ne comprends pas "il me demande à l'ouverture du fichier d'insérer une carte à puce"

as tu fait les essais à partir de mon fichier
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

TOURRET · Answer

Bonjour,

merci de votre retour

j'ai essayé à nouveau d'adapter le fichier à la mise en page finale
j'ai dû déplacer des cellules, mais en faisant des essais après chaque modification
tout a fonctionner jusqu'au moment ou j'ai voulu changer le nom du bouton
voici le fichier:
http://cjoint.com/?CGrrMxJ9VIb

par la même occasion, je voudrais que ce bouton soit au niveau de la cellule BA2

Cordialement

Mike-31 · Answer

Re,

si je change l'adresse expéditeur en BA7 tout fonctionne correctement, si tu es sur de cette extension
@akeonet.com

	https://www.cjoint.com/c/CGrslsTeEMn

TOURRET · Answer

Bonjour,

Merci beaucoup de votre retour
- j'ai commencé la mise en forme du fichier
- j'ai renommé la feuille principale et supprimé les feuilles inutiles
- j'ai délimité mon cadre, tout fonctionne à un détail prés, le fichier reçu comporte toujours les 3 feuilles avec leur noms d'origines. Comment corriger cette particularité? (voir fichier ci-joint)

http://cjoint.com/?CGsquw0biH2 

Ensuite, j'ai rentré mon tableau, et là, plus rien ne fonctionne! (voir fichier ci-joint)

http://cjoint.com/?CGsqvLKdjGP 

Cordialement

golf5510 · Answer

Bonjour,
Il y a aussi cette siolution, inscrire les adresse dans un endroit masqué et faire cette macro
le fichier sera envoyé directement

Sub EnvoifichierMail()
Dim myadress(1 To 3)
Set mylst = ActiveSheet.Range("a1:a3")
Count = 1
For Each envoi In mylst
If Len(envoi) Then myadress(Count) = envoi: Count = Count + 1
Next
ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2), myadress(3)), Subject:="NOM DU FICHIER"
End Sub

Cordialement

Envoyer un fichier excel - Page 2

Discussions similaires

Newsletters