Bonjour,

Je souhaite faire un copier/coller d'une feuille excel quise trouve dans A.xls, vers B.xls que je viens de creer. Seul probleme j'y arrive pas.
Voici mon code:

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
 
'Nouveau répertoire
 
      pathFile = "c:\"
     nameFile = pathFile & A.CBAn.Value & "_" & A.CBMois.Value & "_Quittance.xls"
    Application.Workbooks.Add
    Application.ActiveWorkbook.SaveAs nameFile
 
    For i = 1 To nb
 
        Sheets("Modele").Copy Workbooks(nameFile)
        NomFeuille = "Quit" & i
        Workbooks(nameFile).ActiveSheet.Name = NomFeuille
        Workbooks(nameFile).Worksheets(NomFeuille).Activate
 
    Next i
Le nouveau classeur est bien crée.

C'est la copie qui me met une erreur: L'indice n'appartient pas à la sélection
Quelqu'un a une idée ou pourrais em dire ce qui ne va pas.
Merci.