Discussion :

[nono le golfeur]

Bonjour,

Après que mon équipe est remplis des informations sous Excel je souhaite qu'elle me renvoi ce fichier.

Donc pour automatiser l'envoi, j'utilise cette macro (toute bete j'en convient mais qui marche pas mal)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub EnvoiMail()
 
 
  ThisWorkbook.SendMail Recipients:="babar@blablablabla.fr", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
                          MSG = "Bonjour ....."
 
 
End Sub

Voici ma question :

Est ce qu'il est possible de changer le titre du fichier en cours avant envoie, j'aimerai en gros qu'il insere dans le titre le nom ou ID de l'emetteur (ou bien le numéro de la semaine ) !

En gros mon fichier s'appel : blabla.xls et moi je voudrais le recevoir avec blablab-JohnSmith.xls

Merci d'avance !!!

[cwain]

Bonjour,
tu peux récupérer le login de l'utilisateur avec la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Login = Environ("username")

Après si tous les logins sont du format prenom.nom, tu peux faire du traitement de mots pour isoler Prenom et Nom (left, right, find etc...)

[illight]

A priori tu utilise Outlook déja

Je te conseille, si ta demande n'est pas possible (j'en sais rien en fait), que avant d'envoyer, tu fasse une deuxième sauvegarde (un SaveAs suffira), puis tu envoie ce deuxième fichier