Discussion :

[dev81]

Bonjour, je cherche comment copier une cellule d'un autre fichier excel.
Merci de vos reponses

[ouskel'n'or]

Si c'est une valeur que tu veux copier,

Code :

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

1
2
Workbooks("Fichier2.xls").Worksheets("Feuil2").cells(NoLigne2, NoCol2).value = _
Workbooks("Fichier1.xls").Worksheets("Feuil1").cells(NoLigne, NoCol).value

Si c'est une formule que tu veux copier, alors tu mets

Code :

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

1
2
Workbooks("Fichier1.xls").Worksheets("Feuil1").cells(NoLigne, NoCol).value.copy _
destination:=Workbooks("Fichier2.xls").Worksheets("Feuil2").cells(NoLigne2, NoCol2).value

[dev81]

ca ne marche pas!!
j'ai adapté ton code et cela m'affiche un message d'erreur.
voila le code:

Code :

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

1
2
Workbooks(Fichier).Worksheets("Tab").Cells(2, 1).Value.Copy _
          Destination:=Workbooks("Evolution FTs.xls").Worksheets("Evol_Grav").Cells(2, 2).Value

et le message d'erreur: c'est erreur d'execution 424 "objet requis"

[titeZ]

Est ce que ton workbooks est ouvert...
ecrit correctement... fts<> Fts...

[dev81]

Oui mes workbook sont ouvert et c'est bien FTs

[titeZ]

Code :

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

1
2
 
Workbooks("fichier.xls").Worksheets("tab").Cells(2, 1).Copy Destination:=Workbooks("Evolution FTs.xls").Worksheets("Evol_Grav").Cells(2, 2)