Création d'une nouvelle feuille

Salut,

Sub Rectangleàcoinsarrondis1_Cliquer()

Dim wb As Workbook

Dim ws As Worksheet

Workbooks.Open ("\\SERVEUR\Liste.xlsx")

Sheets.Add.Name = Workbooks("DESINGATIONS.xlsm").Sheets("feuil3").Range("B1").Value 

End Sub

J'ai ce code pour créer une nouvelle feuille dans un classeur à l'aide de la valeur d'une cellule, mon problème est que si le nom existe ça renvoie un erreur. je veux conserver ce code mais a chaque fois que le nom existe ajouter 1,2,3 ...

Merci

Bonjour

Crdlt

Et la feuil3 est où ?

Salut je suis désolé c'est la feuil1 du fichier désignation j'ai fait plusieurs essais c'est pour cela.

Merci

Si j'ai bien compris.

Vous ouvrez Liste.xlsx et vous voulez ajouter une feuille dans ce fichier Liste et la nommer sur base de la valeur B1 qui se trouve dans le fichier désignation ?

Oui Dan , mon problème si le nom de feuille existe ajouter 1 , 2 , 3 après la valeur en B1

Bon pas sûr que c'est cela mais essayez ceci

Sub Rectangleàcoinsarrondis1_Cliquer()

Workbooks.Open ("\\SERVEUR\Liste.xlsx")
With Activeworbook
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Workbooks("DESINGATIONS.xlsm").Sheets("feuil1").Range("B1").Value Then
            Sheets.Add.Name = Workbooks("DESINGATIONS.xlsm").Sheets("feuil1").Range("B1").Value & i + 1
        End If
    Next i
End With
End Sub

Salut Dan il est entrain de créer deux feuilles si le nom existe

ex si MED1 existe il est entrain de créer MED2 ET MED3

et si la feuille n'existe pas il ne fait rien

Non

Vous avez "Nom" en B1 et "Nom" en fichier liste
Dans le fichier Liste, le code crée "Nom2" dans puisqu'il voit "Nom" déjà créé

Il ne crée pas 2 feuilles Nom2 et Nom3 mais une seule Nom2.

Je suppose que vous essayez sur les fichiers postés

Merci beaucoup j'ai fait un erreur c'est résolu