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:
Note: le classeur Matrice est ouvert, ainsi que le classeur NomFichier
Voici mon code:
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: