• Initiateur de la discussion Initiateur de la discussion Emilie
  • 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 !

Emilie

XLDnaute Nouveau
Bonjour à tous,

Je viens de m'inscrire sur ce site car j'y ai trouvé un esprit de solidarité que je ne rencontre pas partout.

Je vous explique mon problème :

Je souhaiterai envoyer un classeur par mail en cliquant sur un simple bouton.
J'ai utilisé la fonction sendmail comme indiqué ci-dessous :

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail Recipients:='toto.tata@free.fr'
End Sub

cette commande fonctionne très bien sur mon ordinateur mais dès que je recopie mon fichier sur un autre PC j'ai un message 'erreur 1004' dès que je clique sur mon bouton Envoyer.


est-ce que quelqu'un a déjà eu ce problème?

Je vous remercie par avance
 
Bonjour Emilie,

mDF avait donné cette macro là, mais je crois que plein d'autres fonctionnent :

Sub Envoi()
Sheets(Array(3, 4)).Copy
Application.Dialogs(xlDialogSendMail).Show 'Destinataire@Dest.com', 'Ci-joint Feuilles 3 et 4'
ActiveWorkbook.Close False
End Sub


Ca te permet de choisir les feuilles.
 
Bonjour Brigitte,

je viens de trouver la soluce à mon problème : j'ai fait une mise à jour des composants Office avec le CD, il y avait surement un composant qui était passé à l'as.

J'ai tout remis à plat et je n'ai plus le message d'erreur lorsque j'appuie sur mon bouton d'envoi.


Il faut juste que je supprime le message qui apparait et qui choisit NON par défaut.

Bonne journée
 
- 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
6
Affichages
303
Réponses
5
Affichages
567
Retour