bonjour,
j'essaye de copier des données d'un fichiers excel vers un autre mais une erreur apparait.

voici mon programme :

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
Private Sub btn_chargerdonnees_Click()
 
Dim chemin As String
Dim statistiques As String
 
statistiques = "C:\Documents and Settings\aaa\Bureau\" & "Statistiques" & ".xls"
Workbooks.Open Filename:=statistiques
 
 
chemin = "C:\Documents and Settings\aaa\Bureau\Statistiques.xls"
 
 
Windows(chemin & ".xls").Activate 
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Graphiques.xls").Activate
Range("A1").Select
ActiveSheet.Paste
 
 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\aaa\Bureau\" & "Graphiques.xls"
ActiveWorkbook.Close
 
end sub
l'erreur "L'indice n'appartient pas à la sélection" apparait à la ligne
Windows(chemin & ".xls").Activate
et je n'arrive pas a savoir pk !!!