Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

archive

J

Jean

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…