Archiver une feuille

Signaler
Messages postés
6
Date d'inscription
lundi 2 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
-
Messages postés
6
Date d'inscription
lundi 2 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
-
Bonjour à toutes et à tous,
J'ai pas mal fouillé sur le net pour obtenir la réponse à ma question, mais aucune de celles trouvées ne fonctionne.
Je fais donc appel à vous, pour trouver réponse à ma question.

J'aimerais que le "clic" de mon bouton permette d'enregistrer la page sur laquelle il se trouve au sein d'un autre dossier Excel.

Le fichier source s'appelle : Gestion_stock
La page source s’appelle : Mouvements quotidiens
Le fichier de réception s'appelle : Archive

Les deux fichiers sont au format .xls et présents sur mon bureau

Pour mettre ça en oeuvre, le moyen le plus réalisable serait:
Sub CreeDoss()
ActiveWorkbook.Sheets("Mouvements quotidiens").Copy
fichier = Environ$("stagiaire") & "\Bureau\Archive.xls"
Workbooks(Archive.xls).Sheets(xlLast).Paste
End Sub


Vba ne veux pourtant rien savoir

Du coup, j'aurais vraiment besoin de votre aide

1 réponse

Messages postés
6
Date d'inscription
lundi 2 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011

Pour les intéréssés,
j'ai trouvé la technique =)

Sub Archivage_mvmt()
Application.Workbooks.Open Application.ActiveWorkbook.Path & "" & "Nom_du_fichier_Archive.xls"

Workbooks("Nom_du_fichier_Source").Activate

Sheets("Page_à_copier").Select

Sheets("Page_à_copier").Copy 

Before:=Workbooks("Nom_du_fichier_Archive.xls").Sheets( _
    1)

Sheets("Page_à_copier").Select

ActiveSheet.Name = Range("A1").Text
    
End Sub


Cette macro permet d'ouvrir le fichier archive, d'y copier la page à archiver. De plus, elle lui fait prendre le nom de la cellule "A1" ou j'y ai spécifié le mois et l'année.

Keep On Programming