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