Code VBA pour afficher une Box enregistrer sous

[phiphi27]

Bonjour
J"ai un fichier EXCEL et je voudrais un codes VBA qui par l'intermédiaire d'un bouton puisse m'afficher une Box "enrgistrer sous" je choisit l'endroit mais je ne veux sauvegarder que la feuille ex. la feuille "Calendrier" avec la mise en forme et les valeurs sans les formules
Merci

 

[suistrop]

Re : Code VBA pour afficher une Box enregistrer sous

Salut,
Peut etre cette commande :

Application.Dialogs(xlDialogSaveAs).Show

 

[phiphi27]

Re : Code VBA pour afficher une Box enregistrer sous

Bonjour Suistrop
Merci cela fonctionne mais je ne veux sauvegarder que la feuille active avec sa mise en forme les valeurs sans les formules
A+

 

[Pierrot93]

Re : Code VBA pour afficher une Box enregistrer sous

Bonjour,

essaye ainsi :

ActiveSheet.Copy
With ActiveSheet
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
End With
ActiveWorkbook.SaveAs "Nouveaufichier.xls"

bonne journée
@+

 

[Pierrot93]

Re : Code VBA pour afficher une Box enregistrer sous

Re,

Aarf, zappé le choix du répertoire :

Sub test()
Dim Nouveaufichier As String
ActiveSheet.Copy
With ActiveSheet
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
End With
Nouveaufichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Nouveaufichier
End Sub

 

[phiphi27]

Re : Code VBA pour afficher une Box enregistrer sous

Merci cela fonctionne presque il me manque juste l'extension XLS comment faire pour ajouter au nom cette extension
Merci

 

[Pierrot93]

Re : Code VBA pour afficher une Box enregistrer sous

Re,


modifie ainsi :

ActiveWorkbook.SaveAs Nouveaufichier & ".xls"

 

[phiphi27]

Re : Code VBA pour afficher une Box enregistrer sous

Merci a tous pour avoir résolu mon problème
Bon week end