Archiver une feuille

Question

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&#8217;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

bensoln · Answer

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

Archiver une feuille

1 réponse

Votre réponse

Discussions similaires