Problème de format d'enregistrement/exécution envoi mail

Salut le forum

D'abord mes voeux les meilleurs pour cette année 2013.

J'explique le fonctionnement de l'usf de mon fichier:
A partir de la feuille ACCES, vous cliquer sur le bouton et l'usf apparaitra.
Vous cliquer sur un des boutons de la frame1 et vous remplissez la date debut et fin.
Après cela vous cliquez sur la commande Mail (cela doit entrainer l'envoi du mail avec pour pièce jointe la feuille active (STATSES ou STATBSMS).
Je reste à votre disposition si mes explications ne sont pas celles que vous souhaitez.
N.B : Dans le module Mailses et MailBsms, l'adresse mail est representée par la valeur de la cellule C2 et C3 respectivement pour Mailbsms et Mailses.
En mettant une adresse mail dans les cellules indiquées, vous pourrez exécuter la macro pour voir son comportement.
Elle fonctionne mais y'a un petit debogage sur le format (xlsx ou xlsm) d'enregistrement que j'arrive pas à solutionner.
http://cjoint.com/?CAjnsIhtqOs

Salut à tous

J'ai eu ce code que je compte testé.

Code:

---

1 2 3 4 5

' Enregistrer le nouveau classeur en temporaire Application.DisplayAlerts = False ActiveWorkbook.SaveAs ThisWorkbook.Path & "\DEMANDE SES.xlsx" Application.DisplayAlerts = True ActiveWorkbook.Close

---

Merci