Discussion :

[afssaLERH]

bonjour,

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

Code :

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

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

[ouskel'n'or]

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

Code :

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

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

[afssaLERH]

D'accord mais si je fais

Code :

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

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

il me met incompatibilité de type ???

[ouskel'n'or]

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 :

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

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

A+

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

Code :

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

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

ou en deux

Code :

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

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

[afssaLERH]

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

[ouskel'n'or]

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

[afssaLERH]

merci beaucoup