D
Delirium
Guest
Bonsoir tous le monde
Je suis en train de réaliser une application sous excel.
Cette appli comporte d’autres classeurs mais je voudrais que ces classeurs soient appropriés uniquement à mon application.
Pour cela je voudrais les enregistrer avec une extension spécifique à mon appli ".ecx"
Pour cela j'ai créé un userform avec un text box et le code suivant :
Private Sub Enregistrer_Click()
Range("I2").Value = TextBox1.Value
ChDir ThisWorkbook.Path & "\Plannings types"
ActiveWorkbook.SaveAs Range("I2").Value
ActiveWorkbook.CustomViews("Janvier").Show
Range("B1:G1").FormulaR1C1 = "Janvier"
ActiveSheet.Shapes("Picture 138").OnAction = "Enregistrer"
ActiveSheet.Shapes("Picture 152").OnAction = "FermerB"
ActiveWorkbook.Save
Unload Me
End Sub
Ce code permet d'enregistrer le classeur avec le nom qu'il veut mais l'extension est obligatoirement en ".xls".
Je voudrais que se nom soit automatiquement en registré avec l'extension ".ecx"
Si quelqu’un connait la solution,
Merci d'avance et à bientôt
Je suis en train de réaliser une application sous excel.
Cette appli comporte d’autres classeurs mais je voudrais que ces classeurs soient appropriés uniquement à mon application.
Pour cela je voudrais les enregistrer avec une extension spécifique à mon appli ".ecx"
Pour cela j'ai créé un userform avec un text box et le code suivant :
Private Sub Enregistrer_Click()
Range("I2").Value = TextBox1.Value
ChDir ThisWorkbook.Path & "\Plannings types"
ActiveWorkbook.SaveAs Range("I2").Value
ActiveWorkbook.CustomViews("Janvier").Show
Range("B1:G1").FormulaR1C1 = "Janvier"
ActiveSheet.Shapes("Picture 138").OnAction = "Enregistrer"
ActiveSheet.Shapes("Picture 152").OnAction = "FermerB"
ActiveWorkbook.Save
Unload Me
End Sub
Ce code permet d'enregistrer le classeur avec le nom qu'il veut mais l'extension est obligatoirement en ".xls".
Je voudrais que se nom soit automatiquement en registré avec l'extension ".ecx"
Si quelqu’un connait la solution,
Merci d'avance et à bientôt