Discussion :

[gigalia]

Bonjour,

Je souhaite à l'aide d'une VBA sous excel copie et renommer une feuille.

La copie doit se faire uniqement si la feuille du même nom n'existe pas. Si la feuille existe déja il doit y avoir un msgBox qui dit que la feuille existe déjà.

Quelqu'un aurait-il une idée?

Par avance merci

[mercatog]

Bonjour
Un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim Sh As Worksheet
Dim Nom As String
 
Nom = "Toto"
 
On Error Resume Next
Set Sh = Sheets(Nom)
On Error GoTo 0
 
If Sh Is Nothing Then
    Worksheets("Feuil1").Copy After:=Worksheets("Feuil1")
    ActiveSheet.Name = Nom
Else
    MsgBox "Le feuille " & Nom & " existe déjà!"
    Set Sh = Nothing
End If

[gigalia]

Merci pour la réponse