Discussion :

[NEC14]

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 :

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
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

[Daniel.C]

Bonjour,

"ActiveSheet" n'est pas une propriété de "WorkBook". C'est la feuille visible, donc, elle appartient au classeur actif, tu ne peux pas choisir le classeur, il faut l'activer.

Code :

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

1
2
ThisWorkbook.Activate
ActiveSheet.Copy

et sélectionne éventuellement la feuille.

[NEC14]

Merci beaucoup Daniel, ca fonctionne.

Amicalement
René