[VBA-E] activer un classeur et rendre une page visible

Version imprimable

22/05/2006, 13h22
DonKnacki

[VBA-E] activer un classeur et rendre une page visible

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

Code:

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
22/05/2006, 13h29
Megaxel

Salut!
Déjà, je ne crois pas qu'il soit nécessaire de rendre une feuille visible pour récupérer une valeur dedans.
Fais simplement:

Code:

MaValeurArecuperer = MonFichierSource.Worksheets(2).Cells(numLigne, numColonne)

Ensuite, si tu mets "False" au lieu de "True" dans le code que tu nous montres, ça rend la feuille visible.

Ou alors, je n'ai pas compris la question... Ça m'arrive tout le temps.

:D
22/05/2006, 13h36
DonKnacki

je pense que tu as compris ma question
en revanche MonFichierSource est le nom du fichier?
si les 2 fichiers sont pas dans le meme répertoire comment faire ?
22/05/2006, 13h42
Megaxel
Ha d'accord, le problème est en amont.
En fait, tu peux travailler comme ça:
1°) tes 2 fichiers doivent être ouverts. Je suppose que l'un des 2 est déjà ouvert, et que ton code se trouve dedans. Dans ce code, tu ouvres l'autre:
Code:

1 2 Workbooks.Open Filename:= "C:\ggrg\GnaGnaGna.xls"
Ensuite, tu désignes les cellules en donnant la position complète:

Code:

MaValeurArecuperer = Workbooks("MonFichierSource.xls").Worksheets(2).Cells(numLigne1, numColonne1)

puis

Code:

Workbooks("MonFichierDestination.xls").Worksheets(1).Cells(numLigne2, numColonne2) = MaValeurArecuperer

Je pense que tu vas t'en sortir en faisant ça.
22/05/2006, 14h30
DonKnacki
alors je complique un peu la situation encore :oops:

au moment d'ouvrir le fichier j'aimerai faire intervenir une variable
par exemple si je met ce code dans mon fichier destination
Code:

1 2 3 4 chemin = ActiveWorkbook.Path 'chemin contiendra donc C:\ par exemple Workbooks.Open Filename:="chemin\source .xls"
comment faire pour que chemin soit pris comme une variabl car la il me

Citation:

chemin\source.xls introuvable
22/05/2006, 14h34
illight
Citation:
Envoyé par Nom

alors je complique un peu la situation encore :oops:

au moment d'ouvrir le fichier j'aimerai faire intervenir une variable
par exemple si je met ce code dans mon fichier destination

Code:

1 2 3 4 chemin = ActiveWorkbook.Path 'chemin contiendra donc C:\ par exemple Workbooks.Open Filename:="chemin\source .xls"

comment faire pour que chemin soit pris comme une variabl car la il me
C'est normal si tu met ta variable entre les guillemets il ne verra pas que c'est une variable :) écris le comme ça plutot :
Code:

1 2 3 4 chemin = ActiveWorkbook.Path 'chemin contiendra donc C:\ par exemple Workbooks.Open Filename:=chemin & "\source.xls"
sachant qu'en fait le & c'est le symbole de la concaténation :)

Je te conseille d'aller voir la FAQ VBA présente sur le site :) :D