A voir également:
- Copie une page et InputBox pour le nom
- Supprimer une page word - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Consultez le code source de cette page. copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Traduire une page web - Guide
1 réponse
Bonjour,
Cdt
Lupin
Dim Rename_Sheet As String
Sheets("IMP R").Select
Rename_Sheet = InputBox("Nouveau Nom :", "Titre", "Agent #")
If Rename_Sheet <> "" Then
MsgBox Rename_Sheet
End If
Sheets("IMP R").Select
Sheets("IMP R").Copy After:=Sheets("IMP R")
ActiveSheet.Name = Rename_Sheet
Sheets(Rename_Sheet).Select
With ActiveWorkbook.Sheets(Rename_Sheet).Tab
.ColorIndex = xlNone
.TintAndShade = 0
End With
Cdt
Lupin