Envoyer un fichier excel

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

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/

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

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.

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

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

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

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

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

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.

bonjour,

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

Cordialement

Re,

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

Bonjour,

Merci beaucoup de votre retour,

Mon fournisseur est une filiale de SFR (akeonet)

Cordialement

Re,

C'est pourtant cela mais sans les guillemets

SMTP. akeonet.com

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,

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.

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

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

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,

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