copier une ligne d'un classeur à un autre

**melodyyy** · 22/11/2006, 09h32

voila je voudrais copier une ligne d'un classeur à un autre, et forcément d'une feuille à une autre.

voici mon code:

Code :

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

1
2
3
4
5
6
Sub macro
Workbook("SDVO PLANNING DISPO").Worksheet("référentiel").Range("57").Select
Selection.Copy
Workbook("Synthèse.01").Worksheet("Feuille principale").Range("4").Select.
Activesheet.Paste
End Sub

et ben il me dit que mon sub ou ma fonction est pas définit, je comprends pas...

**ouskel'n'or** · 22/11/2006, 09h35

Code :

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

WorkBooks

et non WorkBook

Code :

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

Worksheets

et non Worksheet

**melodyyy** · 22/11/2006, 09h37

lol quelle truffe...
roh c'est le matin hein

on sent que je me réveille :p

**melodyyy** · 22/11/2006, 11h36

voila, toujours pour coper ma fameuse ligne

En fait pour copier ma ligne il faut que les 2 fichiers soit ouvert

logique

sauf que j'en ai un sur URL...comment fait on pour appeler un fichier URL, lui demander de s'ouvrir ? et se refermer après ?

merci

**ouskel'n'or** · 22/11/2006, 12h23

Si l'url est dans une cellule, il suffit de la sélectionner... Tu peux en dire plus ?

**melodyyy** · 22/11/2006, 13h22

nan l'url est sur le web et donc je voudrais aller la chercher, lui demander d'ouvrir le fichier et zou en avant

**ouskel'n'or** · 22/11/2006, 13h25

Explique tout, là, j'en suis à espérer que quelqu'un comprenne ce que tu veux...

**melodyyy** · 22/11/2006, 13h44

en fait voila :

je voudrais copier une ligne qui est sur un fichier sur intranet, dans un classeur qui lui est ouvert.

donc je voudrais pouvoir appeler l'url intranet

**melodyyy** · 22/11/2006, 16h25

pour que tu comprennes mieux voici mon code:

Code :

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

1
2
3
4
5
6
7
 Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
Workbooks("111045363.pc1fm").Worksheets("Référentiel").Range("A57:S57").Select
Selection.Copy
Workbooks("Synthese_type_01.xls").Workbooks("Feuille principale").Range("FU3:GM3").Select
Activesheets.Paste
 
End Sub

**melodyyy** · 22/11/2006, 16h26

j'ai une erreur comme quoi la selection de l'objet range a échoué
le premier objet range

**SfJ5Rpw8** · 22/11/2006, 17h05

déjà est-ce que t'on fichier s'ouvre avec :

Code :

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

1
2
 Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")

[Edit] puis sur qu'elle ligne l'erreur je n'avais pas vu celle la :

Code :

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

1
2
Workbooks("Synthese_type_01.xls").Workbooks("Feuille principale").Range("FU3:GM3").Select

?.. pourquoi deux fois workbooks..?

[edit un peu de code] tiens essai cela :

Code :

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

1
2
3
Dim fich As Workbook
Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
fich.Worksheets("Référentiel").Range("A57:S57").Copy Workbooks("Synthese_type_01.xls").Workbooks("Feuille principale").Range("FU3:GM3")