Bonjour à tous

c'est surement trés simple mais je bloque sur une déclaration de nom de classeur
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
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub mofif()
 
Dim Wbdest As Workbook, wbmodif As Workbook
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet
Dim LigneDebut As Byte
Dim LigneFin As Long
Dim Cible1 As String, N_client As String
Dim Rci As Range, Rpdp1 As Range, Rpdp2 As Range, Lign As Integer, X As Integer
Dim Rmod As Range, Rmodval As String, Nomwbmodif As String
 
Set wb = ThisWorkbook
 
Application.Workbooks.Open "Z:\Gestion entreprise\VBA\Atest\CC2011T.xlsx"
Set wbs = Workbooks("CC2011T.xlsx")
wbs.Worksheets("Pilote1").Activate
 
  On Error Resume Next
   Set Rmod = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  On Error GoTo 0
   If Not Rmod Is Nothing Then
    Rmod.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 Rmodval = Rmod.Value
 wbs.Worksheets("Pilote1").Activate
N_client = wbs.Worksheets("Pilote1").Cells(Rmod.Row, 8).Value
Nomwbmodif = Rmodval & " " & N_client & ".xlsx"
 
    Set wbmodif = Workbooks("Nomwbmodif") ' ici j'ai une erreur
    Set Ws1 = wbs.Worksheets("Pilote1")
    Set Ws2 = wbmodif.Worksheets("Devis")
    Set Ws3 = ThisWorkbook.Worksheets("Devis")
Je ne comprends pas pourquoi il ne veut pas de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set wbmodif = Workbooks("Nomwbmodif") ' ici j'ai une erreur
En pas à pas détaillé jusqu'à cette ligne tout est bon y compris le "Nomwbmodif" alors je ne vois pas... Si quelqu'un a une idée je suis preneur
merci d'avance.