Copie entre 2 fichiers excel

Version imprimable

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

voici mon programme :

Code:

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 !!!

au lieu de ça :

Code:

1
2
3
4
5
6
7
8
statistiques = "C:\Documents and Settings\Solenne Durand\Bureau\" & "Statistiques" & ".xls"
Workbooks.Open Filename:=statistiques
 
 
chemin = "C:\Documents and Settings\Solenne Durand\Bureau\Statistiques.xls"
 
 
Windows(chemin & ".xls").Activate

met ça :

Code:

1
2
3
4
5
6
7
8
statistiques = "C:\Documents and Settings\Solenne Durand\Bureau\ Statistiques.xls"
Workbooks.Open Filename:=statistiques
 
 
chemin = "C:\Documents and Settings\Solenne Durand\Bureau\Statistiques.xls"
 
 
Windows(chemin).Activate

Mais je comprend pas ce que tu veux faire la..chemin et statistiques c'est la meme chose :?

29/06/2006, 14h41
Freerideuse

oui j'avais déjà essayé ce que tu m'avais proposé mais j'ai toujours le meme problème avec le meme message
29/06/2006, 14h43
illight

tu veux faire quoi au juste ?
29/06/2006, 14h48
Freerideuse

je veux copier une feuille de données d'un classeur excel vers un autre classeur

et pour le chemin j'avais pas vu que c t 2 fois la meme chose... :oops:
29/06/2006, 14h49
Elstak

Et avec workbook au lieu de windows?

sinon vois dans la faq comment utiliser 2 fichier excel c'est plutot simple
29/06/2006, 14h52
Freerideuse

nan ca marche pas non plus avec workbook
29/06/2006, 15h13
illight

T'a essayé avec un enregistreur de macro pour voir ce que ça te donnait ? :D
29/06/2006, 15h21
Freerideuse

oui j'ai essayé mais ca ne marche pas car je dois copier entre 2 classeurs différents et avec une macro on ne peut le faire que sur un seul classeur nan ?
29/06/2006, 15h25
Elstak
Citation:
Comment travailler sur deux classeurs ?

auteur : bidou

Dans ce cas on utilises des variables

Code:

1 2 3 Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook objWorkbookSource = Application.Workbooks.Open(Application.GetOpenFilename) objWorkbookCible = Application.Workbooks.Add

Il ne reste plus qu'à basculer entre les deux variables
dans ton cas tu fais aps Add mais open...

j'ai modifier mon code et maintenant j'ai un autre pb...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
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
 
Windows("Statistiques.xls").Activate
Sheets("Données").Select
Range("A1:P10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Graphiques.xls").Activate
Range("A1").Select
ActiveSheet.Paste
 
End Sub

Le pb est ici :

Code:

Range("A1:P10").Select

l'erreur est "La méthode Select de la classe range a échoué"

29/06/2006, 15h38
Freerideuse

j'ai essayé aussi en mettant Range(Cells(1, 1), Cells(16, 10)).Select mais le problème est le meme
29/06/2006, 15h40
illight

Code:

statistiques = "C:\Documents and Settings\Solenne Durand\Bureau\" & "Statistiques" & ".xls"

Comprend toujours pas pourquoi tu met des & :? enfin bon..

Code:

Application.CutCopyMode = False

ça tu peut l'enlever ça sert a rien..

Mais je vois pas du tout d'ou vient le problème du range :scratch:
29/06/2006, 15h46
Elstak

Ta ligne là sert à rien

Code:

Windows("Statistiques.xls").Activate

tu devrais t'inspirer du code que bidou là tu t'en sert pas pourtant il est simple et evite les erreurs.

pour ton erreur essaie ca :

Code:

source.Sheets(1).Range(source.Sheets(1).Cells(1, 1), source.Sheets(1).Cells(51, 1)).Select

(source est le classeur.)

dans ton cas tu peux le remplacer par AtciveWorkbook il me semble

ca y es j'ai trouvé la solution !!!

voila mon programme final
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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 Windows("Statistiques.xls").Activate Worksheets("Données").Range("A1:P10").Copy Windows("Graphiques.xls").Activate Range("A1:P10").Select ActiveSheet.Paste End Sub
c cette ligne ki a résolu le problème je crois : Worksheets("Données").Range("A1:P10").Copy

merci a tous !!

29/06/2006, 16h12
Elstak
Code:

1 2 3 4 5 Windows("Statistiques.xls").Activate Worksheets("Données").Range("A1:P10").Copy Windows("Graphiques.xls").Activate Range("A1:P10").Select ActiveSheet.Paste
Tu t'inspire pas de ce que je dis Grrr

normalement t'ecrit ca en 1 ligne comme ca :

Code:

Windows("Statistiques.xls").Sheets("Données").Range(source.Sheets("Données").Cells(1, 1), source.Sheets("Données").Cells(10, 16)).copy Windows("Graphiques.xls").Range("A1:P10")