Insérer donnée entre parenthèse modification de code

Bonjour ,

J'ai un soucis avec le code VBA ci-dessous.

Le code vérifie dans un classeur Excel si ce dernier contient des onglets portant le même nom donc si il y'a des doublons et si oui alors il rajoute un N° derrière le nom de la feuille crée. Exemple : 252 MOUSSA déjà existant dans le classeur alors la macros effectue cela : 252 MOUSSA - 1.

Le code fonctionne parfaitement j'aimerais juste mettre des parenthèse au lieu d'un tiré " - " .

Exemple : 252 MOUSSA (1)

J'ai essayé mais je n'y arrive pas? Pouvez vous m'aider s'il vous plait ?

Sub Verif_Doublon_Onglet()
IncNext: 'Incrementation suivante
FeuilExist = IsFeuilleExiste(NameSheet)
If FeuilExist = True Then
If InStr(1, NameSheet, " - ") Then
IncDoublon = IncDoublon + 1
NameSheet = Mid(NameSheet, 1, InStr(1, NameSheet, " - ") - 1)
Else
IncDoublon = 1
End If
NameSheet = NameSheet & " - " & IncDoublon
GoTo IncNext
End If
End Sub

Hello,

Essaie ça :

Sub Verif_Doublon_Onglet()
IncNext: 'Incrementation suivante
FeuilExist = IsFeuilleExiste(NameSheet)
If FeuilExist = True Then
If InStr(1, NameSheet, " - ") Then
IncDoublon = IncDoublon + 1
NameSheet = Mid(NameSheet, 1, InStr(1, NameSheet, " - ") - 1)
Else
IncDoublon = 1
End If
NameSheet = NameSheet & " (" & IncDoublon &")"
GoTo IncNext
End If
End Sub

@+

ça fonctionne Merci !!

BAROUTE78

Parfois il ne faut pas chercher bien loin

Bonne journée à toi

@+