acceder cellule A1 dans un fichier

bonjour,

je suis sur un fichier A et j'ai ouvert un classeur B de la manière suivante :

Code:

---

1 2 3

Dim Tampon As Workbook 'ouverture du fichier Set Tampon = Workbooks.Open("J:\SILA\Export\NH4_COLO_H.xls")

---

comment est-ce que je lui dit d'aller dans la feuille 1 du fichier tampon à la case A1
j'ai fais Tampon.Feuil1.Cells.Range("A1") mais ca ne fonctionne pas

Merci

Lilou

Je corrige : Tu ne peux pas sélectionner à la fois une feuille et une cellule, tu dois séparer les deux instructions

Code:

---

1 2	Workbooks(Tampon).Worksheets("Feuil1").activate Range("A1").select

---

D'accord mais si je fais

Code:

---

1 2	Workbooks(Tampon).Worksheets("Feuil1").Activate valeurATester = Range(Ref).Select

---

il me met incompatibilité de type ???

En effet, dans ce cas là tu n'as pas besoin de sélectionner ta cellule. Et dans ce cas là, tu peux mettre simplement ça

Code:

---

valeurATester = Workbooks(Tampon).Worksheets("Feuil1").Range(Ref)

---

A+ ;)

Edit
Sinon, en sélectionnant, il te faut trois lignes

Code:

---

1 2 3

Workbooks(Tampon).Worksheets("Feuil1").activate Range("A1").select valeurATester = Activecell.value

---

ou en deux

Code:

---

1 2	Workbooks(Tampon).Worksheets("Feuil1").activate valeurATester = Range("A1") 'sans select

---

alors en mettant
Tampon.Worksheets("Feuil1").Activate
ça ne me donne plus la même erreur mais erreur définie apr l'application

Tu peux utiliser feuil1 pour la feuille de calculs, comme tu l'as fait, mais pas Tampon pour le Classeur, sauf si tu veux provoquer l'erreur que tu évoques :lol:

merci beaucoup