sauvegarde d'une seule feuille d'un classeur

[denisbouchard]

Bonjour à tous,
Actuellement, j'ai un classeur avec 14 feuilles. La 14ième est une feuille pour faire une archive de 3 autres. Je voudrais, afin de ne pas trop ralentir le programme, faire un archivage tous les mois. Ca pas de problème, je sais faire, par contre je voulais savoir si il y avait possibilité de n'enregistrer que la feuille 14 dans cette archive. J'ai éssayé

Activesheet.SaveAs Filename:=chemin & nomfichier & Format(Date, " dd.mm.yyyy")

mais ça m'enregistre le classeur entier alors que je veux seulement la feuille 14.
Quelqu'un a-t-il une solution à me proposer?
merci pour vos futur réponses ?
Denis

 

[gilbert_RGI]

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour

comme ceci avec une simple boite de dialogue

ActiveSheet.Copy
    Application.Dialogs(xlDialogSaveAs).Show

ou encore avec un chemin précis

ActiveSheet.Copy
ChDrive "C"
ChDir "C:\Perso"
Application.Dialogs(xlDialogSaveAs).Show

 

[tactic6]

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour

Sheets("Le Nom de La Feuille").Copy
nomfichier = "Ce Que Tu Veux"

ActiveWorkbook.SaveAs ...

Edit Salut Gilbert ...............Pas rafraichit

 

[denisbouchard]

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour gilbert_RGI et tactic6,
Merci pour vos réponses, je vais essayé tout ça et reviens vers vous.
A+ et merci
denis

 

[gilbert_RGI]

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour gilbert_RGI et tactic6,
Merci pour vos réponses, je vais essayé tout ça et reviens vers vous.
A+ et merci
denis

une bidouille si le repertoire n'existe pas le créer

Sub enr2()
    ActiveSheet.Copy
    ChDrive "C"
    On Error GoTo suite
pass:
    ChDir "C:\Perso"
    Application.Dialogs(xlDialogSaveAs).Show
    Exit Sub
suite:
    MkDir "C:/Perso"
    GoTo pass
End Sub

 

[denisbouchard]

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour et merci à tous les 2,
j'ai essayé vos 2 solutions, et ça fonctionne très bien.
merci pour vôtre aide.
A+
denis