Discussion :

[mickael99]

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 :

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

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 ^^.

[SfJ5Rpw8]

essai cela :

Code :

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

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....

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