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
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