enregistrer sous

[slaurent01]

Bonsoir à tous,

Je fais des test pour la création d'une appli sur "enregistrer sous" en vba.
J'ai le code suivant :

Sub EnregistrerSous()
 
    Dim NomFichier, x As String, w As String, NomDefaut As String
     
    x = ThisWorkbook.Worksheets("feuil1").Range("a1").Value
     w = " " & Format(Date, "dd mm yyyy")
     
    NomDefaut = x & w
     
    
   NomFichier = Application.GetSaveAsFilename(NomDefaut, "Classeur Excel (prenant en charge les macros (*.xlm), *.xlm")
     ActiveWorkbook.SaveAs Filename:=NomFichier
    
 
End Sub

Mon problème est que lorsque je veux ouvrir mon fichier après l'avoir fermé, un message d'avertissement me dit " le format du fichier est différent de l'extension......."
Je peux ouvrir tout de même le fichier, mais je ne comprends pas pourquoi j'ai ce message.

Est ce que quelqu'un aurait une idée?

Par avance merci
cordialement
Stéphane

 

[camarchepas]

Re : enregistrer sous

Bonsoir ,

Essaies avec Xlsm , qui est l'extenxion Excel des fichiers contenant des macros

 

[slaurent01]

Re : enregistrer sous

bonsoir le forum,

bonsoir camarchepas, Merci beaucoup ca marche! Je n'avais pas vu que j'avais oublié le "s".
Merci pour ton aide
bonne fin de soiree
stéphane