Discussion :

[DonKnacki]

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 :

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

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

[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 :

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

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.

[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 ?

[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 :

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

1
2
 
Workbooks.Open Filename:= "C:\ggrg\GnaGnaGna.xls"

Ensuite, tu désignes les cellules en donnant la position complète:

Code :

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

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

puis

Code :

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

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

Je pense que tu vas t'en sortir en faisant ça.

[DonKnacki]

alors je complique un peu la situation encore

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

Code :

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

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

chemin\source.xls introuvable

[illight]

alors je complique un peu la situation encore

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

Code :

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

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 :

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

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