Erreur 1004

Je ne suis pas sur de comprendre , comment je peux faire le nouveau chemin pour que mon fichier puisse fonctionner ?

En fait je me le suis envoyé par mail et je me demande comment le faire fonctionner à nouveau

Voici le code:

' CRÉATION DE VARIABLE

    Dim racine_CPB_TABLEAU As String
    Dim Name_CPB_TABLEAU As String
    Dim Tab_CPB_TABLEAU As String

'Ouvrir CPB_TABLEAU
    
    
    racine_CPB_TABLEAU = "G:\Excelop8\Ameliorc\A220\1.Tableau de bord\Customer Protection Board - 
    Mirabel\Création CPB pour un nouveau poste\ACS - Tableau de protection client\CPB"
    Name_CPB_TABLEAU = "Tableau CPB.xlsm"
    Workbooks.Open Filename:=racine_CPB_TABLEAU & "\" & Name_CPB_TABLEAU, ReadOnly:=True, 
    UpdateLinks:=False  (LE BUG EST ICI)

'COPIER EXCEL Tableau CPB

    'Windows("Tableau CPB.xlsm").Activate
    Sheets("CPB").Select
    Sheets("CPB").Copy After:=Workbooks("ACS - Tableau de protection client").Sheets(1)
    Range("M8").Select
    ActiveCell.FormulaR1C1 = "ACS"

...

@mIl faut employé ThisWorkbook.Path comme chemin suivi du fichier ou dossier qui se trouve avec ce classeur.

le chemin d’accès(.Path) au dossier contenant ce classeur (ThisWorkbook). Nous avons récupéré un chemin d’accès relatif, c’est à dire qui changera en fonction de l’emplacement du fichier dans tel ou tel dossier, par opposition à un chemin d’accès absolu comme myPath = "C:\Utilisateurs\moi" qui ne changera pas, quel que soit l’emplacement de notre classeur.

comme ceci

ThisWorkbook.Path & "\dossier ou fichier"

voilà

@cs_Le PivertEn mettant ton classeur Tableau CPB.xlsm dans le même dossier que celui qui contient la macro, voici le code qui fonctionnera dans n'importe quel environnement:

Dim racine_CPB_TABLEAU As String
    Dim Name_CPB_TABLEAU As String
    Dim Tab_CPB_TABLEAU As String

'Ouvrir CPB_TABLEAU
    
    
    racine_CPB_TABLEAU = ThisWorkbook.Path
    Name_CPB_TABLEAU = "Tableau CPB.xlsm"
    Workbooks.Open Filename:=racine_CPB_TABLEAU & "\" & Name_CPB_TABLEAU, ReadOnly:=True, 
    UpdateLinks:=False ' (LE BUG EST ICI)

'COPIER EXCEL Tableau CPB

    'Windows("Tableau CPB.xlsm").Activate
    Sheets("CPB").Select
    Sheets("CPB").Copy After:=Workbooks("ACS - Tableau de protection client").Sheets(1)
    Range("M8").Select
    ActiveCell.FormulaR1C1 = "ACS"

Voilà

@+ Le Pivert