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

  • Initiateur de la discussion Initiateur de la discussion dudux2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
3
Affichages
582
Retour