Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

[nalex]

Bonjour,

Je suis débutant et je souhaite faire une macro pour :

Que le fichier en cours soit renommé avec le nom d’une cellule puis envoyé sur ma boite mail

La cellule où il y aura le nom est « D10 », dans cette cellule il y aura par exemple Docteur Toto Tibo, il semble qu’il ne soit pas possible d’avoir des espaces.
Je souhaite ensuite que le fichier soit enregistré soit à la racine de C soit sur le bureau puis envoyé par mail azerty@qwerty.com

Pouvez-vous me donner le code pour mettre en place ce bouton en bas du document.

J’ai fait plusieurs recherches, j’ai des bouts de codes mais je n’arrive pas à exécuter l’ensemble par un seul bouton :s


je vous remercie par avance et reste disponible pour vous apporter en cas de besoin des informations supplémentaires

 

[nalex]

Re : Enregistrer un fichier avec le nom d'une cellule et l'envoyer par mail

Voici ce que j'ai trouvé et qui fonctionne pour envoyer le mail

Sub EnvoiMail()
Workbooks("creation_invitation.xls").SendMail Recipients:="google@google.fr", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

 

[nalex]

Re : Enregistrer un fichier avec le nom d'une cellule et l'envoyer par mail

Toujours pas de réponse?

 

[Philippe68]

Re : Enregistrer un fichier avec le nom d'une cellule et l'envoyer par mail

Bonjour,

C'est juste un bouton qu'il faut ?

 

[nalex]

Re : Enregistrer un fichier avec le nom d'une cellule et l'envoyer par mail

C'est bouton qui permet via une macro d'enregistrer le document avec comme nom le texte de la cellule D10, puis de l'envoyer directement par mail.

J'ai la commande pour procéder à l'envoi mais pas à l'enregistrement

 

[Philippe68]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Pourtant le bouton Sauvegarde est en place, c'est la macro au bouton qui n'est pas bonne alors ?

 

[nalex]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Oui je pense, j'ai une macro d'envoi qui fonctionne, mais pas de macro pour utiliser le contenu d'une cellule pour renommer le fichier.

ma macro d'envoi fonctionne si le fichier n'est pas renommé, mais il est renommé systématiquement par les utilisateurs ^^

 

[Philippe68]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

oui alors là ça dépasse mes connaissances.
sinon les 2 boutons fonctionnent de mon coté

 

[Philippe68]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Re
Faire un essai avec ça

en D10, ne pas mettre d'espace dans le nom ou alors un _ entre 2 mots.
j'ai aussi enlevé la fusion de cellule et ça fonctionne de mon coté.

 

[PrinceCorwin]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Bonjour,

Essai avec ceci :

  ThisWorkbook.SendMail Recipients:="apoint@serf.fr", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True

Bonne journée

 

[nalex]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Merci cela fonctionne mais il me manque la partie pour renommer le fichier avec le texte contenu dans une cellule

merci de votre aide

 

[tototiti2008]

Re : Enregistrer un fichier avec le texte d'une cellule et l'envoyer par mail

Bonjour à tous,

peut-être

Sub EnvoiMail()
    ThisWorkbook.SaveAs "C:\" & Range("D10").Value & ".xls"
    ThisWorkbook.SendMail Recipients:="apoint@serf.fr", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub