erreur L'indice n'appartient pas à la sélection

[solid_sneak06]

Je veux créer une fonction qui permet de copier toutes les feuilles d'un classeur fermé à un autre classeur fermé. j'ai trouvé ce code sur un autre forum (avc quelques petite modifications) et ca marche. erreur dans la première ligne

Set CL1 = Workbooks("M:\Fichier_Model.xls")

j'ai le message:

L'indice n'appartient pas à la sélection

voici mon code

Sub Copie_Fichier_Model1(Chemin_f As String)
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim LaFeuille As Worksheet
Dim i As Byte, ListeANePasCopier '(as variant)
Dim ko As Boolean
    Set CL1 = Workbooks("M:\Fichier_Model.xls")
    Set CL2 = Workbooks(Chemin_f)
    ListeANePasCopier = Array("Rien")
    For Each LaFeuille In CL1.Worksheets
        For i = 0 To UBound(ListeANePasCopier)
            ko = ko Or LaFeuille.Name = ListeANePasCopier(i)
        Next
        If Not ko Then LaFeuille.Copy After:=CL2.Worksheets(CL2.Worksheets.Count)
        ko = False
    Next
    Set CL1 = Nothing
    Set CL2 = Nothing

End Sub

Aidez moi!

 

[tototiti2008]

Re : erreur L'indice n'appartient pas à la sélection

Bonjour solid_sneak,

Et tu es sûr que ce code ne doit pas ouvrir les classeurs ? Personnellement ça m'étonnerais mais je peux me tromper.

Moi je ferais :

Set CL1 = Workbooks.Open("M:\Fichier_Model.xls")
Set CL2 = Workbooks.Open(Chemin_f)


Avec à la fin

CL1.close false