Problème renommer avec sendmail

[Yohan05]

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

 

[Pierrot93]

Re : Problème renommer avec sendmail

Bonjour Yohan

une piste peut être, utiliser la méthode "SaveCopyAs" plutôt que "saveas", à noter tout de même que tu places un double slash devant le nom de ton classeur.

ThisWorkbook.[COLOR="Blue"][B]SaveCopyAs [/B][/COLOR]nomfichier

bonne fin d'après midi
@+

 

[Yohan05]

Re : Problème renommer avec sendmail

Je viens d'essayer mais sans succès

Merci...

 

[Pierrot93]

Re : Problème renommer avec sendmail

Re

as tu supprimé le double slash ???

 

[Pierrot93]

Re : Problème renommer avec sendmail

Re,

A noter tout de même, dans le code que tu nous présentes, tu envoie le mail avant la copie de l'onglet et avant la sauvegarde du classeur... A voir quel est le code réellement utilisé...

@+

 

[Yohan05]

Re : Problème renommer avec sendmail

Bonjour,

Avec cette macro ci-dessous, cela fonctionne pour l'envoi avec le nom d'une cellule comme nom du classeur en pièce jointe mais les macros ne sont plus dans le classeur...

Sub envoyer_Click()

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.SendMail Recipients:="tata@toto.be"
ActiveWorkbook.Close savechanges:=False

MsgBox ("Nouvelle commande validée")
ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub


ET il y a une erreur quand j'ouvre le classeur archivé, message d'erreur :
Le format est différent de celui spécifié par l'extension du fichier
Assurez-vous qu'il n'est pas endommagé ou qu'il provienne d'une source fiable?


Je ne comprends vraiment pas comment résoudre ce problème...
J'ai essayé de corriger l'extension de sauvegarde en xslx,xslm mais rien ne fonctionne...

Pouvez-vous m'aider?
merci

 

[Pierrot93]

Re : Problème renommer avec sendmail

Re

A priori normal qu'il n'y ait pas les macros, puisque le nouveau classeur est créé à partir d'une feuille... essaye peut être ainsi :

Dim Nom As String, Fichier As String, Chemin As String
'ActiveSheet.Copy
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.SendMail Recipients:="tata@toto.be"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Nouvelle commande validée")

@+

 

[Yohan05]

Re : Problème renommer avec sendmail

Merci bien Pierrot

C'est vrai que cette cmd copie est inutile...