Aide sur code VBA sur Excel

Version imprimable

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.
Code:

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
Mais malheureusement ca ne fonctionne pas le fichier s'enregistre correctement mais les 2 onglets reste visible.

Merci pour votre aide ou suggestions

Chez moi ce code fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
Sub Archiver()
    Dim chemin As String, nomfichier As String, extension As String
    Application.ScreenUpdating = False
    extension = ".xls"
    chemin = ThisWorkbook.Path & "\"
    ThisWorkbook.Worksheets(4).Visible = xlHidden
    ThisWorkbook.Worksheets(5).Visible = xlHidden
    ActiveWorkbook.SaveCopyAs chemin & "test" & extension
    Application.ScreenUpdating = True
End Sub

31/03/2013, 16h09
Invité

Merci, mais chez moi il enregistre : .xls

Ces peut-être à cause que l'une des deux feuilles que je tente de cacher a le bouton qui déclenche la macro.

Merci
31/03/2013, 17h14
Invité

Bonjour,

Ca fonctionne si je cache la Worksheets(13) mais ces quand j'essaie de cacher la Worksheets(12) qu'il me cause problème à cause que ces cette feuille qui exécute la macro ?

Avez vous une solution, car mon code macro est dans le module2.

merci.