XL 2010 macro copier envoyer par mail un onglet

  • Initiateur de la discussion Initiateur de la discussion mix770
  • Date de début Date de début

mix770

XLDnaute Impliqué
bonjour à vous,

je travail sur un fichier avec des onglets et liens de calcul
j'aurais besoin d'une macro qui ferai un copie de l'onglet au format excel en le rennomam au format Nom_MOIS_AN et l'insère dans un mail outlook avec adresse préprogrammée
j'ai déja fait une fois une macro pour exporter au format PDF ou pour ouvrir un mail mais là je seche
merci à vous
ci dessous une ebauche VBA

Dim stHeureExport As String
stHeureExport = "_" & _
Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & _
Format(Second(Time), "00")
NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport

'Copie de la feuille courante dans un nouveau classeur et enregistrement
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NomCompletFichier
ActiveWorkbook.Close

MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
 

Discussions similaires

Réponses
10
Affichages
490
Réponses
4
Affichages
1 K

Statistiques des forums

Discussions
315 297
Messages
2 118 168
Membres
113 443
dernier inscrit
renotton