coller une cellule d'un fichier excel à un autre

salut à tous.

Petit soucis :

j'ai deux documents excel : A et B
Dans le A j'ai une liste de valeur.

Que faut-til faire pour que la somme de ces valeurs apparaissent dans l'onglet 1 du document B ??

J'ai déjà trouvé cette formule qui me fait la somme de ma liste :

Code:

---

1 2 3 4 5 6 7

Sub test() For Each o In Range("C2:C15000") If Rows(o.Row).Hidden = False Then Var = Var + o Next Worksheets("récapitulatif").Range("e2").Interior.Color = RGB(204, 255, 204) Worksheets("récapitulatif").Range("e2") = Var End Sub

---

MERCI BEAUCOUP !!!

Bonjour à tous

Peut être une solution plus rapide :

Code:

---

1 2 3 4 5

Sub addit() total = Application.WorksheetFunction.Sum(Range("C2:C15000")) Windows("Classeur2").Activate Worksheets("récapitulatif").Range("e2").Value = total End Sub

---

si j'ai bien compris.

Il doit y avoir plus court

A+

slt Edel.
merci pour ta réponse.

j'ai quelques soucis en VBA , je suis stagiaire et ne comprend pas tout !

Dans cette formule :

Code:

---

1 2 3 4 5

Sub addit() total = Application.WorksheetFunction.Sum(Range("C2:C15000")) Windows("Classeur2").Activate Worksheets("récapitulatif").Range("e2").Value = total End Sub

---

à quoi sert Windows("Classeur2").Activate ??

...
désolé j'ai peut etre pas été aussi précis concernant mon besoin :

je suis sur le document Excel n°1 , onglet 1.
Je veut cliquer sur mon bouton et dans ma case A1 va s'afficher une somme X.

X est la somme de (B1,B1000) d'un autre document excel n°2 onglet 2

...
mais je croit que ce Windows("Classeur2").Activate peut m'ouvrir quelques portes !
merci

Bonjour à tous

Essaie ce code

Code:

---

1 2 3 4 5 6

Sub Macro2() Windows("Classeur2").Activate 'active le classeur total = Worksheets("Feuil1").Application.WorksheetFunction.Sum(Range("B1:B1000")) Windows("Classeur1").Activate Worksheets("Feuil1").Range("a1").Value = total End Sub

---

en modifiant les Classeurs et feuilles/onglets

A+

Eric

re .

Merci pour la réponse, elle est très claire !
Mais j'ai un petit soucis !

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   Windows("FichierRéférence").Activate 'active le classeur total = Worksheets("récapitulatif").Application.WorksheetFunction.Sum(Range("c2:c15000")) Windows("Bilan Inventaire 2007").Activate Worksheets("Feuil1").Range("c7").Value = total   End Sub

---

Ce code demande de faire la somme de C2:C15000 dans "FichierRéférence" et d'afficher dans "Bilan Inventaire 2007".
Au lieu de ca, elle fait la somme dans ce meme fichier ""Bilan Inventaire 2007".
Apparemment elle n'ouvre pas mon second document excel (ne le consulte meme pas).
Est ce parceque j'ai ces deux documents excel dans le bureau ?
Est ce peut etre parceque je n'ai pas précisé le lien pour retrouver mes documents ?

En tout cas, ta réponse m'a déjà bien avancé, et je t'en remercie

Bonjour à tous

Alors là, je ne comprend pas !!!!! chez moi cela fonctionne.

Les 2 fichiers sont-ils ouverts en même temps?

Si c'est toujours la même plage à additionner, et la même cellule qui réceptionne, il n'est pas utile de le faire en VBA. Une simple fonction suffit.

A +