Sébastien Delisle
XLDnaute Nouveau
Salut voici un code VBA qui fonctionne pour ajouter et renommer une feuille de calcule Excel par contre si l'utilisateur entre le nom d'une feuille déjà existante il y a une erreur. Je veux qu'en cas d'erreur un input box ouvre Vbyesno pour lui demander d'entrer un nouveau nom ou exit sub voi mon code
Private Sub Workbook_Open()
Dim Rep As Integer
Dim Mat As String
Dim rEp2 As Integer
Rep = MsgBox("Voulez-vous ajouter un employé au fichier de suivi?", vbYesNo + vbQuestion, "Ouverture du fichier")
If Rep = vbYes Then
Mat = InputBox("Quel est le matricule de l'employé à ajouter?")
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Mat
On Error GoTo 0
Sheets("Master").Select
Cells.Select
Selection.Copy
Sheets(Mat).Select
Cells.Select
ActiveSheet.Paste
Range("H6") = Mat
Else
Exit Sub
End If
End Sub
Private Sub Workbook_Open()
Dim Rep As Integer
Dim Mat As String
Dim rEp2 As Integer
Rep = MsgBox("Voulez-vous ajouter un employé au fichier de suivi?", vbYesNo + vbQuestion, "Ouverture du fichier")
If Rep = vbYes Then
Mat = InputBox("Quel est le matricule de l'employé à ajouter?")
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Mat
On Error GoTo 0
Sheets("Master").Select
Cells.Select
Selection.Copy
Sheets(Mat).Select
Cells.Select
ActiveSheet.Paste
Range("H6") = Mat
Else
Exit Sub
End If
End Sub