XL 2016 Erreur 1004 : select

[dodineau]

Bonjour tout le monde.
Je génère une "erreur 1004 - erreur définie par l'application ou par l'objet" avec ce code tout simple.

Sub fin_Click()
Sheets("Trame").Copy After:=Sheets(Sheets.Count)
Nom_Archive = "Trame - 2"
Sheets(Sheets.Count).Name = Nom_Archive
Sheets(Nom_Archive).Select
Range("A1").Select
End Sub

.

Je précise que la feuille "Trame", qui est copiée, n'a pas, à ma connaissance, de restrictions particulières.
Merci pour votre aide.
A+

 

[Oneida]

Bonjour,
Chez moi pas de probleme
A quelle ligne l'erreur?

 

[patricktoulon]

bonjour

Sub fin_Click()
    Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = "Trame - 2"
        .Range("A1").Select
    End With
End Sub

 

[dodineau]

bonjour

Sub fin_Click()
    Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = "Trame - 2"
        .Range("A1").Select
    End With
End Sub

Bonjour et merci cette méthode fonctionne.
Bizarre que la mienne beugue...
A+

 

[patricktoulon]

Bonjour
je suppose que ca buguais au

Sheets(Nom_Archive).Select

rien d’étonnant avec 2016 ce gros lourdot n'en peut plus de vivre dès sa naissance
un dovents parfois fait l'affaire juste avant
une vrai plaie ouverte et béante cette version d'exel
passe en version sup ou en version inf(2013) sauf si tu travaille avec power lavache kiri

 

[dodineau]

Bonjour
je suppose que ca buguais au

Sheets(Nom_Archive).Select

rien d’étonnant avec 2016 ce gros lourdot n'en peut plus de vivre dès sa naissance
un dovents parfois fait l'affaire juste avant
une vrai plaie ouverte et béante cette version d'exel
passe en version sup ou en version inf(2013) sauf si tu travaille avec power lavache kiri

 

[dodineau]

Oui c’est exactement à cette étape.
Le problème c’est que j’utilise cette version au travail donc pas de possibilité de changer de version.

 

[patricktoulon]

pense au doevents la prochaine fois BIEN QUE JE NE GARANTISSE PAS L'EFFET

Sub fin_Click()
Sheets("Trame").Copy After:=Sheets(Sheets.Count)
Nom_Archive = "Trame - 2"
Sheets(Sheets.Count).Name = Nom_Archive
Doevents
Sheets(Nom_Archive).Select
Range("A1").Select
End Sub