Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

sauvegarde d'une seule feuille d'un classeur

denisbouchard

XLDnaute Junior
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é
Code:
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

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

Bonjour

comme ceci avec une simple boite de dialogue

Code:
ActiveSheet.Copy
    Application.Dialogs(xlDialogSaveAs).Show

ou encore avec un chemin précis

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

 

tactic6

XLDnaute Impliqué
Re : sauvegarde d'une seule feuille d'un classeur

Bonjour

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

ActiveWorkbook.SaveAs ...

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

gilbert_RGI

XLDnaute Barbatruc
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

Code:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…