Récupérer valeur dans Fichier fermé

[Halffy]

Bonsoir les "couches-Tard",
Je souhaiterai soliciter votre aide afin de modifier un morceau de code;en effet, dans le fichier "Report", je récupère une Cells.Value d'un fichier "Classe" fermé ==> Merci BrunoM45 😉
Toutefois avec cette macro, le résultat s'affiche dans une MsgBox / Or je souhaiterai que le résultat s'affiche dans le fichier "Report", en Feuil "Infos", cellule "T13" 😱
Malgrés mes recherches (voyez l'heure 😀), je n'ai pas trouvé de solution.
Pouvez-vous m'apporter votre aide s'il vous plait?
Je vous joins les fichiers pour de plus amples explications.
Avec tous mes Remerciements, par avance,
Halffy /.

 

[Dull]

Re : Récupérer valeur dans Fichier fermé

Salut Halffy, Bruno🙂, le Forum

Pour ton soucis en faisant Alt+F11 puis DClick sur Module3, dans le Sub Test () remplace MsgBox par Range("T13").Value et le tour est joué

[COLOR=GREEN]'Macro de BRUNOM45[/COLOR]

[COLOR=BLUE]Sub[/COLOR] test()
[COLOR=BLUE]Dim[/COLOR] Fich$, Feuil$, Cell [COLOR=BLUE]As[/COLOR] Range
  Fich = "C:\Documents and Settings\PROPRIETAIRE\Mes documents\ADO\CLASSE.xls"
  Feuil = "Liste"
  [COLOR=BLUE]Set[/COLOR] Cell = Range("L26")
 [COLOR=Green] ' MsgBox GetValueWithADO(Fich, Feuil, Cell)[/COLOR]
  Range("T13").Value = GetValueWithADO(Fich, Feuil, Cell)
 
[COLOR=BLUE]End Sub[/COLOR]

End Sub

Bonne Journée

 

[Halffy]

Re : Récupérer valeur dans Fichier fermé

bonjour Dull,
Merci... Merci pour ta contribution /
Effectivement je savais que ça se passait par là, mais lorsque j'ai voulu le faire, en fait j'avais marqué: Range.Cells("T13").Value = ... et évidement cela ne marchait pas; il y avait un mot de trop 😀
Grand Merci également à BrunoM45 pour sa macro / J'ai vu pas mal de chose, mais c'était celle-ci qui faisait moins "usine à gaz" 🙄
Félicitations à vous deux / Je vous souhaite une bonne journée,
@+ Halffy /.