Envoyer un fichier excel

Fermé
TOURRET - 29 juin 2013 à 18:07
 golf5510 - 18 juil. 2013 à 17:35
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


A voir également:

26 réponses

Raymond PENTIER Messages postés 58387 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 16 avril 2024 17 088
29 juin 2013 à 18:37
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 ...
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
29 juin 2013 à 20:11
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/
0
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
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 30/06/2013 à 12:09
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
30 juin 2013 à 18:17
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
0
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
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
30 juin 2013 à 21:02
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
0
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
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 2/07/2013 à 15:59
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.
0
bonjour,

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

Cordialement
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
3 juil. 2013 à 08:12
Re,

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

Merci beaucoup de votre retour,

Mon fournisseur est une filiale de SFR (akeonet)

Cordialement
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
4 juil. 2013 à 09:38
Re,

C'est pourtant cela mais sans les guillemets

SMTP. akeonet.com
0
TOUTOU03 Messages postés 19 Date d'inscription dimanche 16 décembre 2012 Statut Membre Dernière intervention 5 janvier 2024
6 juil. 2013 à 18:58
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,
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
6 juil. 2013 à 19:39
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.
0
TOUTOU03 Messages postés 19 Date d'inscription dimanche 16 décembre 2012 Statut Membre Dernière intervention 5 janvier 2024
7 juil. 2013 à 21:29
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
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
9 juil. 2013 à 11:19
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
0
TOUTOU03 Messages postés 19 Date d'inscription dimanche 16 décembre 2012 Statut Membre Dernière intervention 5 janvier 2024
10 juil. 2013 à 18:55
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,
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
10 juil. 2013 à 19:22
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
0