Discussion :

[duplaly]

bonjour
J'ai besoin d'aide pour mon macro archivage. Actuellement, le macro fonctionne pour une feuille spécifique, je voudrais archiver feuille active.
voici mon macro qui marche seulement pour la feuille Empl.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Archivage()
Dim Wb1 As Workbook
Dim WB2 As Workbook
Dim Plg As Range, Derlgin As Long
 
 
Application.ScreenUpdating = False
Set Wb1 = ThisWorkbook
Set WB2 = Workbooks.Open("C:\Users\.......\Documents\..........\Facture_Archive")
Set Plg = Wb1.Sheets("Empl").Range("A8:J" & Wb1.Sheets("Empl").Range("A65536").End(xlUp).Row)
 
    With WB2.Sheets("Archive_Facture")
      derlign = .Range("A65536").End(xlUp).Row
     Plg.Copy .Range("A" & derlign + 1)
      .Columns("A:J").AutoFit
    End With
 
WB2.Save
WB2.Close
Application.ScreenUpdating = True
End Sub

merci pour votre aide

[crissud]

j'ai trouvé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Sub ArchiveFeuilles()
Activesheet.copy After:=Activeworkbook.Sheets(sheets.count)
End Sub

[Vadorblanc]

Bonjour
J'utilise souvent ce bout de code pour enregistrer la finalité de mon projet macros, l'utilisateur n'a la main que pour enregistrer le résultat de la macro ou il veut, tout en fermant le fichier des macros sans qu'il puisse intervenir dessus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("Archive_Facture").Copy  'Edition Déplacer ou copier une feuille sur autre classeur
 
    With ThisWorkbook
    .Saved = True  'ne pas enregistrer
    .Close         'ferme le fichier macros
    End With

Cordialement

[Theze]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Plg = Wb1.Sheets("Empl").Range("A8:J" & Wb1.Sheets("Empl").Range("A65536").End(xlUp).Row)

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With Wb1.ActiveSheet
    Set Plg = .Range(.[A8], .Range("J" & .Rows.Count).End(xlUp))
End With

Hervé.