Discussion :

[dimitri13]

Bonjour à tous et à toutes,

J'ai crée une macro sous Excel 2010, qui va récupérer des données d'une feuille puis les copier sous une autre.
A l'exécution de cette macro j'obtiens l'erreur suivante : "L'indice n'appartient pas à la sélection".
Voici le 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
    Private Function Dimi()
 
        Dim nomFichier As Variant
        Dim nomRep As Variant
        Dim i As Integer
 
 
        Sheets("1 Arr").Activate
 
        For i = 8 To 12                          
 
 
            ' On ouvre le fichier test.xlsx puis on inscrit les données dans les cellules
            Workbooks.Open ("C:\Test\test.xlsx")
            Sheets("test").Activate
            Sheets("test").Cells(1, 1).Value = Sheets("1 Arr").Cells(i, 2)
 
            ' On sauve le fichier en lui donnant le nom du site
            nomFichier = Sheets("test").Cells(8, 6) & ".xlsx"
            nomRep = "C:\Test\"
            ActiveWorkbook.SaveAs nomRep & nomFichier
 
            ' On ferme le fichier Excel enregistré
            ActiveWindow.Close
 
        Next i
 
 
    End Function

Voici le fonctionnement :
Sur l'onglet "1 Arr", il y a les données de la colonne 2 (de la ligne 8 à la ligne 12) que je dois récupérer, puis j'ouvre ensuite le fichier test et j'inscris la données récupéree sur la cellule (1,1).
Le message d'erreur apparait ici : Sheets("test").Cells(1, 1).Value = Sheets("1 Arr").Cells(i, 2)

Est-ce que vous pouvez m'aider s'il vous plait ?

Cordialement
Dimitri.

[letudiant68]

Bonjour, si j'ai bien compris ta feuille "1 Arr" se trouve dans ton premier classeur, dans ce cas il faut le préciser sur la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("test").Cells(1, 1).Value = Workbooks("NomDuPremierClasseur").Sheets("1 Arr").Cells(i, 2)

[dimitri13]

Bonjour, si j'ai bien compris ta feuille "1 Arr" se trouve dans ton premier classeur, dans ce cas il faut le préciser sur la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("test").Cells(1, 1).Value = Workbooks("NomDuPremierClasseur").Sheets("1 Arr").Cells(i, 2)

Bonjour,

Merci pour ta réponse.
C'était, bien, là le problème. Ca a marché.

Merci beaucoup
Dimitri.