[VBA-E]récupération de données

Version imprimable

31/01/2006, 13h23
mickael99

[VBA-E]récupération de données
Bonjour !

Je debute en VB et macro Excel (depuis hier), alors je viens vous demander un peu d'aide.

J'ai un fichier Excel, qui doit se mettre a jour grace a une macro qui va ouvrir un fichier sur le serveur.

J'arrive a lancer une macro qui m'ouvre bien le fichier xml qui est sur le serveur.
A ce moment la, j'ai 2 fichiers Excel ouvert, celui qui doit ce mettre a jour et celui qui contient les infos.

pour le moment, ma macro ressemble a ça :
Code:

1 2 3 4 5 6 7 8 9 10 Sub OpenFile() Workbooks.Open Filename:= _ "http://mon_url.xml" Windows("mon_fichier_a_updater.xls").Activate Sheets("data").Range("B11") = "test" End Sub
ce que je n'arrive pas a faire, c'est copier les infos du fichier xml dans l'autre. donc je me tourne vers vous. pour le moment j'arrive juste a ecrire "test" dans le bon fichier, mais comment tout récuperer du fichier xml pour le mettre dans l'autre...?

j'espere avoir ete clair.

merci pour votre attention ^^.

essai cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub OpenFile()
   dim wkS as Workbook 'Fichier source
   dim wkD as Workbook 'Fichier Destination
 
'Je suppose que fichier destination est ouvert
    Windows("mon_fichier_a_updater.xls").Activate
    set wkD   = ActiveWorkbook
 
 
  set wks =  Workbooks.Open (Filename:= _
        "http://mon_url.xml")
 
 
    wkd.Sheets("data").Range("B11") = wks.sheets(1).Range("B11")
 
End Sub

PS: J'ai pas testé le code mais cela doit te donner une idée....

31/01/2006, 14h32
mickael99

oki merci, j'ai un compris comment ca marchait (en gros ^^). j'arrive bien a balancer des infos d'un classeur a l'autre.

merci !