Copier une plage de donnée dans un nouveau classeur de meme structure...

dudux2

XLDnaute Nouveau
Bonjour,

J'ai :

- un classeur appelé Matrice, il contient la macro vba excel 2007.
- un classeur NomAncienFichier, qui contient une plage de donnée.
- un classeur NomFichier, est vierge de donnée, mais il comporte des mises à jour point de vue design.

Mon bute copier des plage de donnée du classeur NomAncienFichier vers NomFichier dans les memes champ



La ou je suis perdu c'est que je sais même pas quel fichier doit être sélectionner ouvert... etc...
J'obtiens une erreur "L'indice n'appartient pas a la selection" sur ce code:
Code:
Workbooks(NomFichier).Worksheets(onglet).Range("C9").Offset(col, lig).Value = Workbooks(NomAncienFichier).Worksheets(onglet).Range("C9").Offset(col, lig).Value



Note: le classeur Matrice est ouvert, ainsi que le classeur NomFichier

Voici mon code:

Code:
   ' On ouvre l'ancien classeur
    Workbooks.Open Filename:=(NomChemin & "\" & NomAncienFichier)
    
    ' On selectionne la nouvelle feuille
    ' Workbooks(NomFichier).Select
        
        
    If TestAncienFichier <> "" Then _
    'On récupère les données de l'ancien classeur pour les feuilles de 0 à 53
    Dim onglet As Integer, col As Integer, lig As Integer
    For onglet = 0 To NombreSemaine
        For col = 0 To 7 'Colonne I
            For lig = 0 To 83 'Ligne C92
                Workbooks(NomFichier).Worksheets(onglet).Range("C9").Offset(col, lig).Value = Workbooks(NomAncienFichier).Worksheets(onglet).Range("C9").Offset(col, lig).Value
            Next lig
        Next col
   Next onglet
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 490
Messages
2 088 875
Membres
103 980
dernier inscrit
grandmasterflash38