GysEcxelVBA
XLDnaute Nouveau
Bonjour, Salut a tout le monde,
après multiple recherche sur le site et autres, j'ai pas trouver le bon code pour pouvoir enregistrer une feuille active du classeur en .xls de manière automatique.
Voilà : j'utilise de code
Avec ce code, il m'affiche bien la boite de dialogue enregistrer sous mais je dois a chaque fois choisir .xls.
Merci de votre aide
après multiple recherche sur le site et autres, j'ai pas trouver le bon code pour pouvoir enregistrer une feuille active du classeur en .xls de manière automatique.
Voilà : j'utilise de code
Code:
Private Sub MenDmr_Click()
Application.DisplayAlerts = False
ActiveSheet.Select
ActiveSheet.Copy
With ActiveSheet
Sheets("Liste").MenDmr.Visible = False
End With
Application.Dialogs(xlDialogSaveAs).Show ("Liste")
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
Avec ce code, il m'affiche bien la boite de dialogue enregistrer sous mais je dois a chaque fois choisir .xls.
Merci de votre aide