gourdin
XLDnaute Impliqué
Bonjour,
En bas de page le code qui me pose problème.
Il ajoute un nouvelle feuille dont le nom correspond à la valeur d'une cellule et cela fonctionne.
Il est également censé afficher un message et arrêter la macro si cette feuille existe déjà mais cela ne fonctionne pas et un message de débogage s'affiche ("Impossible de renommer une feuille comme une autre feuille etc.")
Voir fichier joint.
Merci de votre aide
Sub creation_page()
Dim TEST As Worksheet
On Error Resume Next
Set TEST = Sheets("Feuil1").Range("F5").Value
On Error GoTo 0
If Not TEST Is Nothing Then
MsgBox "Cette feuille existe déjà !"
Else
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Feuil1").Range("F5").Value
End If
End Sub
En bas de page le code qui me pose problème.
Il ajoute un nouvelle feuille dont le nom correspond à la valeur d'une cellule et cela fonctionne.
Il est également censé afficher un message et arrêter la macro si cette feuille existe déjà mais cela ne fonctionne pas et un message de débogage s'affiche ("Impossible de renommer une feuille comme une autre feuille etc.")
Voir fichier joint.
Merci de votre aide
Sub creation_page()
Dim TEST As Worksheet
On Error Resume Next
Set TEST = Sheets("Feuil1").Range("F5").Value
On Error GoTo 0
If Not TEST Is Nothing Then
MsgBox "Cette feuille existe déjà !"
Else
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Feuil1").Range("F5").Value
End If
End Sub