Insérer une feuille en évitant les doublons

Salut à tous!

J'ai écris un code qui permet de copier une feuille dans un autre fichier et ensuite le renommer. Comment faire pour savoir si une autre feuille porte le même nom? Un peu à la manière de range.find en fait! Mer ci d'avance

Bonsoir,

Il faudrait voir ton code pour l'adapter en contrôlant la présence ou non du nom de la feuille.

Claude.

Salut le forum

Essaye d'adapter ceci à ton code (Référence VériTi)

'Fonction qui permet de tester si une feuille existe
Function FeuilleExiste(Nom$­) As Boolean 'Ti
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
End Function

'Test feuille nommée "Feuil3"
Sub test()
  MsgBox FeuilleExiste("Feuil3")
End Sub

Mytå

Salut à tous, Myta et Claude, et trés bon dimanche! 8)

Alors pour répondre à Claude:

Dim xlApp As New Excel.Application
Dim xlbook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet

Set xlbook = xlApp.Workbooks.Open("C:\...\BaseDonnéesPesée")
Set xlSheet = xlbook.Sheets("Feuil1")

x = xlbook.Sheets.Count

xlSheet.Select
xlSheet.Copy after:=Sheets(x)
xlbook.Sheets("Feuil1 (2)").Select
xlbook.Sheets("Feuil1 (2)").Name = NumCheptel.Value

Application.DisplayAlerts = False
xlbook.Close savechanges:=True
Application.DisplayAlerts = True

xlApp.Quit

donc si j'ai bien compris Myta, il faudrait que je rajoute

if FeuilleExiste(Numcheptel.value) is nothing then
xlSheet.Select
xlSheet.Copy after:=Sheets(x)
xlbook.Sheets("Feuil1 (2)").Select
xlbook.Sheets("Feuil1 (2)").Name = NumCheptel.Value

Application.DisplayAlerts = False
xlbook.Close savechanges:=True
Application.DisplayAlerts = True