Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Renommer un classeur avant envoi par mail

Renommer un classeur avant envoi par mail

2 réponses
Avatar
Didier Novarin
Bonsoir
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de
la cellule B1.
je vous remercie
Didier

ThisWorkbook.Sheets("Lafeuille").Copy
Application.Dialogs(xlDialogSendMail).Show ""
ActiveWorkbook.Close SaveChanges:=False
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Didier,

Une façon de faire :

'---------------------
Dim NomFichier As String
Dim Destination As String
Dim Sujet As String

NomFichier = "toto.xls"
Destination = ""
Sujet = "Voilà ce que tu désires!"

ThisWorkbook.Sheets("Feuil1").Copy
ActiveSheet.SaveAs ThisWorkbook.Path & "" & NomFichier
Application.Dialogs(xlDialogSendMail).Show Destination, Sujet

ActiveWorkbook.Close SaveChanges:úlse
Kill ThisWorkbook.Path & "" & NomFichier
'---------------------


Salutations!



"Didier Novarin" a écrit dans le message de news: %
Bonsoir
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de
la cellule B1.
je vous remercie
Didier

ThisWorkbook.Sheets("Lafeuille").Copy
Application.Dialogs(xlDialogSendMail).Show ""
ActiveWorkbook.Close SaveChanges:úlse
Avatar
Didier Novarin
Bonsoir Denis et merci
En fait je souhaite, renommer le classeur avant l'envoi, est-ce possible ?
Je te remercie
Didier

"michdenis" a écrit dans le message de news:
uUm%
Bonjour Didier,

Une façon de faire :

'---------------------
Dim NomFichier As String
Dim Destination As String
Dim Sujet As String

NomFichier = "toto.xls"
Destination = ""
Sujet = "Voilà ce que tu désires!"

ThisWorkbook.Sheets("Feuil1").Copy
ActiveSheet.SaveAs ThisWorkbook.Path & "" & NomFichier
Application.Dialogs(xlDialogSendMail).Show Destination, Sujet

ActiveWorkbook.Close SaveChanges:úlse
Kill ThisWorkbook.Path & "" & NomFichier
'---------------------


Salutations!



"Didier Novarin" a écrit dans le message de
news: %
Bonsoir
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier

ThisWorkbook.Sheets("Lafeuille").Copy
Application.Dialogs(xlDialogSendMail).Show ""
ActiveWorkbook.Close SaveChanges:úlse