code copie

[Jean-Luc]

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 'Cocuments and SettingsutilisateurMes documentsArchive'
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

 

[porcinet82]

Salut Jean-Luc,

Il nous faudrait un peu plus d'informations pour pouvoir t'aider. Mets en pièce jointe un exemple de ce que tu as et de ce que tu souhaites, et je pense que quelqu'un devrait etre en mesure de t'aider.

@+