enregistrer sous

slaurent01

XLDnaute Junior
Bonsoir à tous,

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

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

Discussions similaires

Réponses
3
Affichages
564

Statistiques des forums

Discussions
312 920
Messages
2 093 639
Membres
105 768
dernier inscrit
Luc Juvénal YAMBASSA