Erreur d'objets requis avec "Set"

Bonjour,

J'ai un problème avec ce code, il m'indique "objet requis sur la ligne du "Set". Pouvez-vous m'aider?

Sub Commande_payer()

Dim nomclient As String

Set nomclient = ActiveWorksheet.Name

Range("C5:G13").Cut

Application.ScreenUpdating = False

Workbooks("Fiches-Clients").Activate

For Each Onglet In Workbooks("Fiches-Clients").Worksheets

If (Onglet.Name) And IsNumeric(nomclient) Then

If CInt(Onglet.Name) = CInt(nomclient) Then

Onglet.Select

Exit Sub

End If

Else

If Trim(Onglet.Name) = Trim(nomclient) Then

Onglet.Select

Exit Sub

End If

End Sub

Salut,

Enlève "Set" à la troisième ligne de ton code pour avoir :

Sub Commande_payer()

Dim nomclient As String

nomclient = ActiveWorksheet.Name

Sans le "Set" j'ai une incompatibilité de type

Bonjour Greg.21, bonjour le fil, bonjour le forum,

Ce n'est pas activeworksheet, mais activesheet...

nomclient = ActiveSheet.Name

Joseph

Merci pour la réponse, mais maintenant j'ai un problème avec:

If (Onglet.Name) And IsNumeric(nomclient) Then

Ca me marque "incompatibilité de type

Grég

EDIT

Merci pour les réponses j'ai finalement trouvé le reste de l'erreur moi-même.

Je suis un débutant et comme souvent, c'est dans les détails que le diable se cache

Encore merci,

Grégoire