Bonjour à tous,
J'ai une petit problème de compatibilité avec cette macro.
Dans le mail envoyer, j'aimerais que le nom du classeur soit le nom du fichier sauvegardé seulement quand je place la commande sendmail après la sauvegarde, il y a un problème "le fichier est endommagé" donc les macro ne sont plus présentes.
Quand je le place avant comme ci dessous, cela fonctionne mais mon classeur porte le nom d'origine (normal).
Comment faire pour que ce classeur soit renommé avant l'envoi du fichier par mail?
Merci pour votre aide....
Sub envoyer_Click()
ActiveWorkbook.SendMail Recipients:="toto@tata"
ActiveSheet.Copy
Dim Nom As String, Fichier As String, Chemin As String
Nom = Sheets("Commande").Range("G6").Value
Fichier = "\" & Nom & Format(Date, "yyyy-mm-dd") & "_" & ".xls"
Chemin = "H:\Gestion de production\Commande Archivage\"
ActiveWorkbook.SaveAs Chemin & Fichier
ActiveWorkbook.Close savechanges:=False
MsgBox ("Nouvelle commande validée")
ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub
J'ai une petit problème de compatibilité avec cette macro.
Dans le mail envoyer, j'aimerais que le nom du classeur soit le nom du fichier sauvegardé seulement quand je place la commande sendmail après la sauvegarde, il y a un problème "le fichier est endommagé" donc les macro ne sont plus présentes.
Quand je le place avant comme ci dessous, cela fonctionne mais mon classeur porte le nom d'origine (normal).
Comment faire pour que ce classeur soit renommé avant l'envoi du fichier par mail?
Merci pour votre aide....
Sub envoyer_Click()
ActiveWorkbook.SendMail Recipients:="toto@tata"
ActiveSheet.Copy
Dim Nom As String, Fichier As String, Chemin As String
Nom = Sheets("Commande").Range("G6").Value
Fichier = "\" & Nom & Format(Date, "yyyy-mm-dd") & "_" & ".xls"
Chemin = "H:\Gestion de production\Commande Archivage\"
ActiveWorkbook.SaveAs Chemin & Fichier
ActiveWorkbook.Close savechanges:=False
MsgBox ("Nouvelle commande validée")
ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub
Dernière édition: