Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
562
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…