Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrement automatique + Envoi mail automatique

  • Initiateur de la discussion Initiateur de la discussion Tahititin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tahititin

XLDnaute Occasionnel
Bonjour à tous,
Je reviens vers vous car j'ai un petit problème, que vous allez résoudre trés vite... j'en suis sur !
Voilà j'ai un formulaire EXCEL qui doit être complété par des agents. Une fois terminé je souhaiterais qu'ils cliquent sur un bouton afin d'enregistrer automatiquement le fichier sous un chemin et un nom définit (le nom reprend 2 des cellule du formulaire : NOM et Date d'intervention), il faudrait que la fenêtre "enregistrer sous" apparaisse et qu'ils n'ai plus qu'à cliquer sur "enregistrer". Une fois cliqué sur enregistrer j'aimerais que le document soit envoyé (ouverture d'un message prérempli et qu'ils n'aient plus qu'à cliquer sur envoyer).
Je pense que c'est possible, j'ai tenter de "bricoler" avec des posts glanés sur le forum mais sans succés.
Je vous joins le fichier pour l'exemple.
D'avance merci
 

Pièces jointes

Re : Enregistrement automatique + Envoi mail automatique

Merci beaucoup fhoest,
Ca fonctionne à la perfection !
C'est abusé je sais mais as-tu une solution pour envoyer ouvrir un mail avec le document enregistré en PJ ? L'utilisateur clique sur "Enregistrer" et une fenetre mail (outlook) s'ouvre avec le doc en PJ... et si possible le destinataire déjà préselectionner.... C'est étape n'est juste qu'un contrôle de l'utilisateur.
Encore merci
 
Re : Enregistrement automatique + Envoi mail automatique

Bonjour,
voici un code pour ouvrir la boite mail:
Code:
Sub ouvrir_boite_mail()
Application.ActivateMicrosoftApp (xlMicrosoftMail)
End Sub
et
envoie mail avec pièce jointe
Code:
Sub envoie_mail_avec_pièce_jointe()
ActiveWorkbook.SendMail "adress@hotmail.fr", "sujet"
Application.ActivateMicrosoftApp (xlMicrosoftMail)
End Sub
pour le reste je regarde petit a petit "actualisation des nouveaux messages"
mais pour ça un petit F9 suffit
A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
987
Compte Supprimé 979
C
S
Réponses
10
Affichages
4 K
Sylvain29
S
A
Réponses
1
Affichages
749
B
Réponses
4
Affichages
2 K
benoitoleron
B
S
Réponses
11
Affichages
28 K
J
G
Réponses
2
Affichages
2 K
P
Réponses
1
Affichages
1 K
plecrivain
P
T
Réponses
0
Affichages
733
Tonigoto
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…