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: