Discussion :

[julien0000]

bonjour,

j'ai deja posé presque la meme question, je pensais avoir compris et je me rends compte que non...

j'explique mon probleme: mon bouton de commande est placé sur le fichier "tool1.xls".
je demande à l'utilisateur le chemin complet d'un autre fichier sur lequel il veut extraire des données.
enfin je veux copier certaines données de ce fichier pour les coller sur la "feuille2" du fichier "tool1.xls"

voici mon 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
 je demande le chemin complet du 'second fichier'
MsgBox "choisir l'order", vbOKOnly, "Adresse order"
Chemin = Application.GetOpenFilename()  
 
' j'ouvre et active le fichier demandé par l'utilisateur 
Workbooks.Open Chemin
 
 'je copie la "colonne E" de ce fichier
Workbooks(Dir(Chemin)).Activate    Range("E2:E500").Copy     
 
' je colle cette colonne dans la "feuille2" du fichier "tool1.xls"
ActiveWorkbook.Close
Worksheets("sheet2").Activate
ActiveSheet.Paste

mais avec ce code je copie la colonne E du fichier "tool1.xls" et non pas celle du fichier demandé par l'utilisateur.

j'esperes que j'ai reussi a me faire comprendre, sinon dites le moi j'essaierai de réexpliquer.

donc j'aimerais savoir ou est mon erreur et comment il faut faire pr que ça marche...

merci

[J.Michel]

Essaye comme ça

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
 
    ' je demande le chemin complet du 'second fichier'
    MsgBox "choisir l'order", vbOKOnly, "Adresse order"
    Chemin = Application.GetOpenFilename()
 
    ' j'ouvre et active le fichier demandé par l'utilisateur
    Workbooks.Open Chemin
 
     'je copie la "colonne E" de ce fichier
    Workbooks(Dir(Chemin)).Activate
    Range("E2:E500").Copy
 
    ' je colle cette colonne dans la "feuille2" du fichier "tool1.xls"
    Workbooks("tool1.xls").Worksheets("Feuil2").Paste
 
    'Fermeture du classeur actif
    Workbooks(Dir(Chemin)).Close

[mail.spam]

bonjour,

essaie plutot de faire ça

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
 je demande le chemin complet du 'second fichier'
MsgBox "choisir l'order", vbOKOnly, "Adresse order"
Chemin = Application.GetOpenFilename() 
 
' j'ouvre et active le fichier demandé par l'utilisateur 
Workbooks.Open Chemin
 
'je copie la "colonne E" de ce fichier
Windows(Dir(Chemin)).Activate
sheets("Feuil1").Range("E2:E500").Copy 
 
' je colle cette colonne dans la "feuille2" du fichier "tool1.xls"
Windows("tools1.xls").Activate
Sheets("Feuil2").Range("A1").Select
ActiveSheet.Paste
 
Workbooks(Dir(Chemin)).close

[julien0000]

merci mais ça ne marche tjs pas

pr les 2 solutions le problème est différent:

Code :

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

Workbooks("tool1.xls").Worksheets("Feuil2").Paste

cette ligne n'est pas acceptée

error 9 : subscript out of range

Code :

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

sheets("Feuil1").Range("E2:E500").Copy

cette ligne n'est pas acceptée

error 438 : object doesn't support this property or method

[J.Michel]

Code :

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

Workbooks("tool1.xls").Worksheets("Feuil2").Paste

cette ligne n'est pas acceptée

error 9 : subscript out of range

Verifie le nom de ta feuille de calcul.
J'ai chagé le nom pour tester chez moi mais il me semble que pour toi c'est sheet2 au lieu de Feuil2

[julien0000]

ok ça y est ça marche!

en effet j'ai fait une erreur au niveau du nom des feuilles de calcul...

j'ai changé quelque trucs ( j'ai fait un peu un mix des 2 solutions...)

le + simple c'est que je vous montre ce que j'ai fait :

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
'je demande le chemin complet du 'second fichier'
MsgBox "choisir l'order", vbOKOnly, "Adresse order"
Chemin = Application.GetOpenFilename() 
 
' j'ouvre et active le fichier demandé par l'utilisateur 
Workbooks.Open Chemin
 
'je copie la "colonne E" de ce fichier
Windows(Dir(Chemin)).Activate
sheets("Sheet1").Range("E2:E500").Copy
 
'je ferme le 'second fichier' donc "tool1.xls" redevient actif
ActiveWorkbook.Close
 
' je colle cette colonne dans la "feuille2" du fichier "tool1.xls"
Worksheets("Sheet2").Activate
ActiveSheet.Paste Destination:=Sheets("Sheet2").Range("A1")

voila ça marche!!!

en tout cas merci !!!