Bonjour à vous tous,
J'ai fait beaucoup de recherche mais rien de concluent sur une macro que je veux faire.
Je cherche à copier avec savecopyas une nouvelle copie mais en cachant 2 onglet avant de le sauvegarder.
Voici le code, si quelqu'un peux m'aider svp.
Mais malheureusement ca ne fonctionne pas le fichier s'enregistre correctement mais les 2 onglets reste visible.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Archiver() Dim chemin As String, nomfichier As String Application.ScreenUpdating = False extension = ".xls" chemin = "H:\Tempo\Horaire de travail\ " Worksheets(12).Visible = False Worksheets(13).Visible = False ActiveWorkbook.SaveCopyAs chemin & Range("C1") & " " & Range("d1") & extension End Sub
Merci pour votre aide ou suggestions
Partager