bonjour à tous,
voila mon petit problème.
j'ai créer une macro qui me permet de copier une feuille puis de la renommer en fonction d'une cellule et enfin vérifie si cette feuille existe et si elle existe je souhaiterais supprimer celle-ci et la remplacer par la nouvelle.
voici mon code:
Sub copyjour()
'copy de la feuille
Sheets("liste de garde").Copy Before:=Sheets(4)
Sheets("liste de garde (2)").Select
Dim Ws As Worksheet
For Each Ws In Worksheets
'verifie si elle existe et la supprime
If Ws.Name = [a3] Then MsgBox "Ce nom de feuille existe déjà !": Sheets("liste de garde (2)").Delete
Next Ws
'nomme la feuille
Sheets("liste de garde (2)").Name = Range("a3").Value
'imprime la feuille
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
'reviens sur la feuille d'origine
Sheets("liste de garde").Select
End Sub
mon soucis se situe au moment ou je supprime ma copie car je ne sais pas recupérer ma feuille qui porte le même nom (ce n'est pas obligatoire) mais je ne sais surtout pas où mettre mon Exit Sub pour fermer ma macro si le nom de ma feuille existe. (au pire j'éfface mon ancienne feuille manuellment et je relance ma macro).
voila mon problème exposé, merci de vos réponses.
voila mon petit problème.
j'ai créer une macro qui me permet de copier une feuille puis de la renommer en fonction d'une cellule et enfin vérifie si cette feuille existe et si elle existe je souhaiterais supprimer celle-ci et la remplacer par la nouvelle.
voici mon code:
Sub copyjour()
'copy de la feuille
Sheets("liste de garde").Copy Before:=Sheets(4)
Sheets("liste de garde (2)").Select
Dim Ws As Worksheet
For Each Ws In Worksheets
'verifie si elle existe et la supprime
If Ws.Name = [a3] Then MsgBox "Ce nom de feuille existe déjà !": Sheets("liste de garde (2)").Delete
Next Ws
'nomme la feuille
Sheets("liste de garde (2)").Name = Range("a3").Value
'imprime la feuille
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
'reviens sur la feuille d'origine
Sheets("liste de garde").Select
End Sub
mon soucis se situe au moment ou je supprime ma copie car je ne sais pas recupérer ma feuille qui porte le même nom (ce n'est pas obligatoire) mais je ne sais surtout pas où mettre mon Exit Sub pour fermer ma macro si le nom de ma feuille existe. (au pire j'éfface mon ancienne feuille manuellment et je relance ma macro).
voila mon problème exposé, merci de vos réponses.