activer un classeur et rendre une page visible

[Angelo7891]

Bonjour
alors c'est un peu compliqué à expliqué mais je vais essayer de faire simple

J'ai 2 classeur (un source et un destination)

dans mon classeur destination j'aimerai récupérer une valeur de mon classeur source
or cette valeur se trouve das la feuille 2 du classeur source et j'ai vonlontairement rendu invisible dans une macro

Sheets('Feuil2').Visible = False

je pense donc qu'il faut que dans le code du source il me faut activer le classeur et rendre la feuille visible mais je sais pas quel est le code qui permet de faire ca
si vous pouviez m'aider

j'espere que ma demande est clair et que vous aller pouvoir m'aider

 

[Adeus33]

Salut

Pour rendre ta feuille visible:

Sheets('Feuil2').Visible = True

Ensuite est ce que tes deux fichiers sont ouvert?
Ont ils toujours le même nom?

Bon courage

Edit: j'ai oublié le code pour activer le classeur1 par exemple

Windows('classeur1.xls').Activate

Message édité par: adeus33, à: 22/05/2006 13:32

 

[Angelo7891]

seul le fichier destination est ouvert au moment de la récupération de la valeur par contre oui ils ont toujours les meme nom

 

[Robert]

Bonjour Angelo, Adeus, Bonjour le forum,

Tu n'a pas besoin de rendre ta feuille visible pour récupérer une donnée. Par exemple, dans ton classeur destination (on va les appeler «Destination.xls» et «Source.xls» pour simplifier), tu peux dire :

Activesheet.Range('A1')=Workbooks('Source.xls).Sheets('Feuil2').Range('D5').Value

La celle A1 de Destination.xls (onglet actif)prendra la valeur de la cellule D5 de Source.xls (onglet 'Feuil2') même si celui-ci est masqué.

 

[Adeus33]

re

Voila pour ouvrir un classeur si tu connais le nom et son emplacement.

Sub ouvrir()
Dim Chemin$
Dim MonTab


Chemin = 'c:\\'
MonTab = 'essai.XLS'
Workbooks.Open Chemin & MonTab
End Sub

bon courage
Adeus33


EDIT: bonjour robert j'avais pas rafraichi.
Bon et bien fais confiance à robert, il sait ce qu'il dit.

@+

Message édité par: adeus33, à: 22/05/2006 13:45

 

[Angelo7891]

seul le fichier destination est ouvert au moment de la récupération de la valeur par contre oui ils ont toujours les meme nom

 

[excalibur]

bonjour tous le monde angelo code non simpifier a adapter Option Explicit
Sub Macro2()
Application.ScreenUpdating = False
Workbooks.Open Filename:='d:\\source.xls'
Sheets(2).Range('A1').Copy
Windows('destination').Activate
Range('A1').Select
ActiveSheet.Paste
Windows('source.xls').Close
End Sub
tu peus passer par d autres methode pour recuperer des donnees dans un classeur ferme regarde dans les archives du forum & tape ADO salutations