boulettedu84
XLDnaute Nouveau
Bonjours,
J'ai un petit problème avec une inputbox;
Je dois ouvrir un modèle existant pour en faire une copie et renommer la copie.
je parvient a le faire, cependant lorsque je donne un nom déja existant il se met en défaut.
voici le code que j'utilise:
Sub Rectangle6_Clic()
Nom = InputBox("Nom du client :")
If Nom = "" Then Exit Sub
Sheets("Bon d'intervention").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
End Sub
Merci d'avance pour vos réponses
J'ai un petit problème avec une inputbox;
Je dois ouvrir un modèle existant pour en faire une copie et renommer la copie.
je parvient a le faire, cependant lorsque je donne un nom déja existant il se met en défaut.
voici le code que j'utilise:
Sub Rectangle6_Clic()
Nom = InputBox("Nom du client :")
If Nom = "" Then Exit Sub
Sheets("Bon d'intervention").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
End Sub
Merci d'avance pour vos réponses