Code VBA pour afficher une Box enregistrer sous

suistrop

XLDnaute Impliqué

• 22 Octobre 2010

• #2

Re : Code VBA pour afficher une Box enregistrer sous

Salut,
Peut etre cette commande :

Application.Dialogs(xlDialogSaveAs).Show

 

Vote positif 0 Vote négatif

P

phiphi27

Guest

• 22 Octobre 2010

• #3

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #4

Re : Code VBA pour afficher une Box enregistrer sous

Bonjour,

essaye ainsi :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #5

Re : Code VBA pour afficher une Box enregistrer sous

Re,

Aarf, zappé le choix du répertoire :

Code:

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

 

Vote positif 0 Vote négatif

P

phiphi27

Guest

• 22 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #7

Re : Code VBA pour afficher une Box enregistrer sous

Re,


modifie ainsi :

Code:

ActiveWorkbook.SaveAs Nouveaufichier & ".xls"

 

Vote positif 0 Vote négatif

P

phiphi27

Guest

• 22 Octobre 2010

• #8

Re : Code VBA pour afficher une Box enregistrer sous

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

 

Vote positif 0 Vote négatif