Code onglet existe création d'un nouveau avec "bis"
bonjour,
j'ai un petit problème dans mon code et je ne trouve pas trop la solution
dans mon fichier, j'ai un onglet qui me permet de créer une fiche client.
cette fiche (onglet) est enregistré. (ainsi de suite) et un onglet de suivi s'actualise lors de nouvelles fiches.
Mon problème est:
je veux avoir la possibilité de modifier une fiche (je l'appelle par son numéro), de faire les modifs et de l'enregistrer.
Le problème est lors de l'enregistrement, j'ai un message d'erreur car le nom de la fiche existe déjà.
Donc je me posais lq question est ce possible de demander au code que si le nom existe déjà, il met "bis" après.
vous pensez que c'est possible ?
mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| nomfeuille = Cells(6, 2).Value 'indique que le nom de le feuille est à prendre ds l'onglet liste cells(6,2)'
Sheets("Fiche").Copy After:=Worksheets("Variables")
"mon rajout mais le if bloque"
Worksheets("Fiche (2)").Name = nomfeuille
If Sheets(nomfeuille).exist = True Then
Worksheets("Fiche (2)").Name = nomfeuille & "bis"
Else
Worksheets("Fiche (2)").Name = nomfeuille |
merci bcp pour votre aide.
G.
