sauvegarde feuille

[naidinp]

Bonjour a tous,

Etant novice en programmation VBA je fait appel a votre
aide et je vous en remercie d'avance

Voila j'ai besoin d'un macro qui me sauvegarde une feuille
d'un classeur A vers un autre classeur B (ex:
c:\facture\archive\B.xls) mais qui me renomme la feuille
archive avec un numero sous la forme 01_08_03, 02_08_03....
(01 etant le numero du document qui est affiche dans une
cellule du classeur A et qui s'incremente
automatiquement ; 08 etant le mois en cours ; 03 l'annee
en cours.

merci d'avance

 

[Valérie]

Re Salut à toi naidinp et le forum,

Tu ouvres les 2 classeurs (maintenant cela devrait être fait)

Workbooks("A").Sheets("FeuileACopier").Copy Before:=Workbooks("B").Sheets(1)
ActiveSheet.Name = Workbooks("A").Range("A1") & "-" & Format(Date, "mm") & "-" & Format(Date, "yy")

En imaginant que ton 01 était en cellule A1 du classeur A

@+
Valérie

 

[naidinp]

merci beaucoup pour l'aide

J'ai trouve une autre methode qui est :

Sheets("modele").Select n selectionne la feuille active a sauvegarder

Sheets("modele").Copy n copie la feuille active

Dim repertoire As String :repertoire comme chène de caractères

Dim fichier As String :nom du fichier comme chène

repertoire = "c:\facture\archive" : valeur de la variable du repertoire

fichier = Sheets("modele").range("a4") : nom de la feuille en cours a sauvegarder ou on concatene le n° de la facture le mois et l'annee en cours
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive_2003.xls : sauvegarde du fichier archive_2003.xls

ActiveWindow.Close : fermeture du fichier archive

mais ca ne marche pas - il ne me sauvegarde aucune feuille dans mon fichier archive_2003.xls