bonjour,
j'essaye de copier des données d'un fichiers excel vers un autre mais une erreur apparait.
voici mon programme :
l'erreur "L'indice n'appartient pas à la sélection" apparait à la ligne
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
Windows(chemin & ".xls").Activate
et je n'arrive pas a savoir pk !!!
Partager