archive

[Jean]

Bonjour,

J'ai un code pour faire une archive avec un bouton comment faire pour le mettre dans un autre tableau.
merci de votre aide
Voici le code
Sub SeeCode()
ActiveWorkbook.VBProject.VBComponents('Saisie').CodeModule.CodePane.Show
End Sub

Sub Archivage()
Dim Mydate, Myday, Mymonth As String
Mydate = Date
Myday = Day(Date)
Mymonth = Month(Mydate)
Myyear = Year(Date)
NomFichier = 'Archive du ' & '-' & Myday & ' ' & Mymonth & ' ' & Myyear & '.xls'

ActiveSheet.Cells.Select
Selection.Copy
Workbooks.Add
Range('A1').Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range('A3').Select
On Error Resume Next
MkDir 'C:\\Documents and Settings\\utilisateur\\Mes documents\\Archive'
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

 

[luc]

salutle forum

coucou le voila le fichier.