[XL-2003] displayalert=false mais erreur tout de même

[comme de bien entendu]

Bonjour,
J'avais une fonction qui marchait très bien.
Et puis depuis ce matin ce ne marche plus.
J'utilise une feuille pattern Annexe_Sauve = "NomDeMaFeuille" que je mets à jour avec de nouvelles valeur.

J'ai l'erreur sur la fonction Copy, alors que normalement il doit générer
une nouvelle feuille avec le (2) concaténer au nom. (je met le displayalert à false)
Ce qui me permet de conserver ma feuille pattern.

L'erreur signalée est :

La méthode Copy de la classe Worksheet a échoué

Code :

1
2
3
4
5
6
7
8
9
10
 
On Error Resume Next
Sheets(type_annexe).Delete
On Error GoTo 0
Application.DisplayAlerts = False
Sheets(Annexe_Sauve).Visible = True
Sheets(Annexe_Sauve).Copy after:=Sheets("site")
Worksheets(Annexe_Sauve & " (2)").Name = type_annexe
Sheets(Annexe_Sauve).Visible = False
Application.DisplayAlerts = True

Merci de vos idées sur le sujet