Condition dans on error

Hello à tous,

J'ai un soucis sur une formule on error.

J'aimerai y mettre une condition. En gros, si la première ligne est en erreur alors il fait la deuxieme ligne. En revanche si la première ligne est ok j'aimerai qu'il ne fasse pas la 2eme ligne.

Si quelqu'un avait une formule magie pour faire cela?

Merci beaucoup

On Error Resume Next

Workbooks(NomFichierMaitre).Sheets(NomFeuille_A_Copier2).Copy After:=Workbooks(Choix_fichierOuvert).Sheets(NomFeuille_A_Copier2 & "old")

Workbooks(NomFichierMaitre).Sheets(NomFeuille_A_Copier2).Copy After:=Workbooks(Choix_fichierOuvert).Sheets("Som")

On Error GoTo 0

Bonjour Uzez, bonjour le forum,

Peut-être comme ça :

On Error Resume Next
Workbooks(NomFichierMaitre).Sheets(NomFeuille_A_Copier2).Copy After:=Workbooks(Choix_fichierOuvert).Sheets(NomFeuille_A_Copier2 & "old")
If Err > 0 Then Workbooks(NomFichierMaitre).Sheets(NomFeuille_A_Copier2).Copy After:=Workbooks(Choix_fichierOuvert).Sheets("Som")
On Error GoTo 0

Bonjour Thauthème.

Merci. c'était tout bête en fait mais ça marche nickel

Merci beaucoup