Message d'erreur sur un code d'enregistrement
Bonjour,
Dans une feuille de calcul, en cliquant sur un bouton le code suivant doit se déclancher. Le code permet de copier la feuille active et de l'enregistrer dans un répertoire précis. Hors j'ai une erreur avec le message suivant sur la ligne en gras.
"La méthode "Copy" de l'objet Worksheet a échoué"
Je n'arrive pas à corriger cette erreur, pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "K:\ERP\Fiches synthèse\"
nomfichier = ActiveSheet.Range("S2") & "_" & Range("A1") & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub |
