XL 2010 Bouton macro enregistrer sous format xlsx

MJ13

XLDnaute Barbatruc

• 17 Juin 2016

• #2

Re : Bouton macro enregistrer sous format xlsx

Bonjour Tallia

Essaye un code de ce type:

Code:

NomF="Test"
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & NomF & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 17 Juin 2016

• #3

Re : Bouton macro enregistrer sous format xlsx

Bonjour,
Je te remercie beaucoup pour ton aide. Le code fonctionne très bien. Cependant que dois je modifier afin que la fenêtre d'enregistrement s'ouvre pour choisir le répertoire d'enregistrement ?
Merci.

Tallia

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 17 Juin 2016

• #4

Re : Bouton macro enregistrer sous format xlsx

Re,

Tu peux tester ce code:

Code:

Sub A()
NomF = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=NomF & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 19 Juin 2016

• #5

Re : Bouton macro enregistrer sous format xlsx

Bonsoir je te remercie beaucoup pour ton aide ça fonctionne parfaitement
Après l'ouverture de la fenêtre d'enregistrement j'ai un message d'Excel concernant les fonctionnalités et comme quoi les macros vont être désactivées si je continue l'enregistrement. Est ce qu'il est possible d'enlever ce message.
Je te remercie d'avance.
Bonne soirée

Tallia

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 19 Juin 2016

• #6

Re : Bouton macro enregistrer sous format xlsx

J'ai trouvé afin d'éviter le message "Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro :
. Projet VB.....". J'ai rajouté Application.DisplayAlerts = False dans la macro.
Bonne soirée.
Tallia

 

Vote positif 0 Vote négatif