Discussion :

[Freerideuse]

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

[illight]

au lieu de ça :

Code :

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

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 :

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

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

[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

[illight]

tu veux faire quoi au juste ?

[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...

[Elstak]

Et avec workbook au lieu de windows?

sinon vois dans la faq comment utiliser 2 fichier excel c'est plutot simple

[Freerideuse]

nan ca marche pas non plus avec workbook

[illight]

T'a essayé avec un enregistreur de macro pour voir ce que ça te donnait ?

[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 ?

[Elstak]

Comment travailler sur deux classeurs ?

auteur : bidou

Dans ce cas on utilises des variables

Code :

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

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

[Freerideuse]

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

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

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

Range("A1:P10").Select

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

[Freerideuse]

j'ai essayé aussi en mettant Range(Cells(1, 1), Cells(16, 10)).Select mais le problème est le meme

[illight]

Code :

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

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

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

Code :

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

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:

[Elstak]

Ta ligne là sert à rien

Code :

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

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 :

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

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

[Freerideuse]

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

voila mon programme final

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
 
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("A110").Copy



merci a tous !!

[Elstak]

Code :

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

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 :

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

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")