OVH Cloud OVH Cloud

Renommer un classeur avant envoi par mail

4 réponses
Avatar
Vincent
Bonjour.
J'ai cette procédure qui copie une feuille dans mon classeur, et l'envoie
par mail.
Par défaut, le classeur qui est envoyé par mail, se nomme "Classeur.1"
1* Je souhaite qu'avant l'envoi de ce classeur, il change de nom, et
récupère le nom qu'il y a dans la cellule A1.
2* Au départ du classeur, il y a une fenêtre Outlook Express qui s'ouvre
afin d'avertir qu'un classeur souhaite être envoyé, Je souhaite que cette
alerte disparaisse.
Merci beaucoup, et bonne journée.
Vincent


Dim DestinatR As String
DestinatR = frm_cour.TextBox1.Text
ThisWorkbook.Sheets("Mafeuille").Copy
ActiveWorkbook.SendMail (DestinatR)
ActiveWorkbook.Close False

4 réponses

Avatar
claudy
"Vincent" a écrit dans le message de news:

Bonjour.
J'ai cette procédure qui copie une feuille dans mon classeur, et l'envoie
par mail.
Par défaut, le classeur qui est envoyé par mail, se nomme "Classeur.1"
1* Je souhaite qu'avant l'envoi de ce classeur, il change de nom, et
récupère le nom qu'il y a dans la cellule A1.
2* Au départ du classeur, il y a une fenêtre Outlook Express qui s'ouvre
afin d'avertir qu'un classeur souhaite être envoyé, Je souhaite que cette
alerte disparaisse.
Merci beaucoup, et bonne journée.
Vincent


Dim DestinatR As String
DestinatR = frm_cour.TextBox1.Text
ThisWorkbook.Sheets("Mafeuille").Copy
'Bonjour et bon dimanche

ActiveWorkbook.SaveAs "LeNondetonClasseur.xls"
'A+
'Claudy
ActiveWorkbook.SendMail (DestinatR)
ActiveWorkbook.Close False



Avatar
Vincent
Bonjour Claudy et merci
Bon dimanche également
Vincent

"claudy" a écrit dans le message
de news:41569111$0$22090$

"Vincent" a écrit dans le message de news:

Bonjour.
J'ai cette procédure qui copie une feuille dans mon classeur, et
l'envoie


par mail.
Par défaut, le classeur qui est envoyé par mail, se nomme "Classeur.1"
1* Je souhaite qu'avant l'envoi de ce classeur, il change de nom, et
récupère le nom qu'il y a dans la cellule A1.
2* Au départ du classeur, il y a une fenêtre Outlook Express qui s'ouvre
afin d'avertir qu'un classeur souhaite être envoyé, Je souhaite que
cette


alerte disparaisse.
Merci beaucoup, et bonne journée.
Vincent


Dim DestinatR As String
DestinatR = frm_cour.TextBox1.Text
ThisWorkbook.Sheets("Mafeuille").Copy
'Bonjour et bon dimanche

ActiveWorkbook.SaveAs "LeNondetonClasseur.xls"
'A+
'Claudy
ActiveWorkbook.SendMail (DestinatR)
ActiveWorkbook.Close False







Avatar
Vincent
Bonjour Claudy
Désolé, le pb est que je voudrais que le classeur qui est envoyé, prenne
comme nom ce qu'il y a dans la cellule A1, et qu'après envoi, celui-ci soit
se ferme sans enregistrement
VIncent


"claudy" a écrit dans le message
de news:41569111$0$22090$

"Vincent" a écrit dans le message de news:

Bonjour.
J'ai cette procédure qui copie une feuille dans mon classeur, et
l'envoie


par mail.
Par défaut, le classeur qui est envoyé par mail, se nomme "Classeur.1"
1* Je souhaite qu'avant l'envoi de ce classeur, il change de nom, et
récupère le nom qu'il y a dans la cellule A1.
2* Au départ du classeur, il y a une fenêtre Outlook Express qui s'ouvre
afin d'avertir qu'un classeur souhaite être envoyé, Je souhaite que
cette


alerte disparaisse.
Merci beaucoup, et bonne journée.
Vincent


Dim DestinatR As String
DestinatR = frm_cour.TextBox1.Text
ThisWorkbook.Sheets("Mafeuille").Copy
'Bonjour et bon dimanche

ActiveWorkbook.SaveAs "LeNondetonClasseur.xls"
'A+
'Claudy
ActiveWorkbook.SendMail (DestinatR)
ActiveWorkbook.Close False







Avatar
claudy
"Vincent" a écrit dans le message de news:
%23dXRFs%
Bonjour Claudy
Désolé, le pb est que je voudrais que le classeur qui est envoyé, prenne
comme nom ce qu'il y a dans la cellule A1, et qu'après envoi, celui-ci
soit
se ferme sans enregistrement
VIncent


"claudy" a écrit dans le message
de news:41569111$0$22090$

"Vincent" a écrit dans le message de news:

Bonjour.
J'ai cette procédure qui copie une feuille dans mon classeur, et
l'envoie


par mail.
Par défaut, le classeur qui est envoyé par mail, se nomme "Classeur.1"
1* Je souhaite qu'avant l'envoi de ce classeur, il change de nom, et
récupère le nom qu'il y a dans la cellule A1.
2* Au départ du classeur, il y a une fenêtre Outlook Express qui
s'ouvre
afin d'avertir qu'un classeur souhaite être envoyé, Je souhaite que
cette


alerte disparaisse.
Merci beaucoup, et bonne journée.
Vincent


Dim DestinatR As String



'modifier ceci:
Dim nomclasseur As String
nomclasseur = Range("A1").Value
DestinatR = frm_cour.TextBox1.Text
ThisWorkbook.Sheets("Mafeuille").Copy
'modifier ceci:
ActiveWorkbook.SaveAs nomclasseur
'A+
'Claudy
ActiveWorkbook.SendMail (DestinatR)
ActiveWorkbook.Close False