VBA/XLS Lire un enregisrement xls sans ouvrir un classeur

Bonjour,

si tu fais une recherche sur Google sur le forum, tu trouveras des tas
de réponses car c'est un sujet régulièrement abordé et fourni en
solutions.

A+

Comment via vba/xls et à partir d'une application xls peut on lire un
enregistrement (ou plusieurs) d'un autre classeur sans pour autant
ouvrir le classeur ?

merci d'avance
regarde là

http://frederic.sigonneau.free.fr/Ado.htm

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour,


http://cjoint.com/?mqm6aYynRj
http://cjoint.com/?mqm6LaB3Vv ' classeur où on va chercher l'info

Sub Get_Object()
ChDir ActiveWorkbook.Path '
répertoire de l'appli
Dim monclasseur As Workbook
Set monclasseur = GetObject([B2] & ".xls") ' nom du classeur
cible en B2
[D2] = monclasseur.Worksheets(1).Range("C1")
[D3] = monclasseur.Worksheets(1).Range("D1")
End Sub

Cordialement JB

Bonjour JB,

Bien que l'interface du classeur ne soit pas visible,
cette méthode ouvre le classeur en mémoire... et pour le
voir après l'exécution de la macro :
Menu / fenêtre / afficher ... et sélection dudit classeur.

en conséquence, ce classeur n'est pas fermé selon les
désirs de l'auteur.


Salutations!







"JB" <boisgontier@hotmail.com> a écrit dans le message de news: 1134734433.633893.219080@g44g2000cwa.googlegroups.com...
Bonjour,


http://cjoint.com/?mqm6aYynRj
http://cjoint.com/?mqm6LaB3Vv ' classeur où on va chercher l'info

Sub Get_Object()
ChDir ActiveWorkbook.Path '
répertoire de l'appli
Dim monclasseur As Workbook
Set monclasseur = GetObject([B2] & ".xls") ' nom du classeur
cible en B2
[D2] = monclasseur.Worksheets(1).Range("C1")
[D3] = monclasseur.Worksheets(1).Range("D1")
End Sub

Cordialement JB

Bonjour,

http://cjoint.com/?mqvQRiuRVC
http://cjoint.com/?mqvSvX8Iam

Sub essai
ChDir ActiveWorkbook.Path ' Répertoire classeur Excel
Range("B2:B3").Select
Selection.FormulaArray = "=[Facture001.xls]Feuil1!R1C3:R2C3"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Cordialement JB