Discussion :

[Lootro]

Bonjour,

Je souhaiterais automatiser le rappatriement de milliers de fichiers images (jpg) vers l'ordinateur de mes visiteurs par l'intermédiaire d'un client en VBA (le reste de mon programme est écrit dans ce langage, je ne souhaite donc pas en changer). J'ai appris des notions de visual basic pour l'occasion, je n'y connais donc vraiment pas grand chose.

J'ai donc un fichier XML contenant des milliers d'occurences de ce type : http://comptoir.jexiste.fr/bdd.xml , ce que je cherche à faire, c'est pouvoir (certainement par l'intermédiaire d'une boucle, enfin j'espère.. :s) télécharger automatiquement sur l'ordinateur équipé du client tous les fichiers par un simple clic, en ajout l'extention .jpg aux noms des images dans mon fichier XML.

Je ne cherche pas nécessairement un boulot tout maché, mais au moins un exemple de code, ou une mise sur la piste, parce que sèche réellement (je planche dessus depuis ce matin, j'arrive a télécharger un fichier depuis le net et le mettre où je veux, j'arrive a lire mon fichier xml et a le rentrer dans une listview, mais je n'arrive pas a combiner les deux pour qu'une progressbar affiche le temps restant..)

J'en appel donc à votre gentilleté, si quelqu'un se sent l'humeur de m'aider, ce sera avec très très [...] très grand plaisir et soulagement.

Cordialement,
Lootro

[SfJ5Rpw8]

tiens un sujet similaire :

Gérer un fichier XML

[Lootro]

Coucou,

Ton bout de code est très bien fait, seulement, j'ai une petite erreur après que j'ai reçu le message me confirmant que mon document xml avait été correctement chargé, j'obtiens une erreur à cette ligne :

LstMembDvp.AddItem listbox1.Text, le message d'erreur est "un objet est requis", je ne sais pas d'où vient le problème.. :/

D'autre part, je ne comprends pas d'où vient l'occurence LstMembDvp, peut-on m'éclairer ?

Merci d'avance =)

[SfJ5Rpw8]

dans le code posté par Kany sur http://www.developpez.net/forums/sho...29&postcount=2

les lignes de codes te posant probléme sont plutôt

Code :

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

1
2
3
4
5
6
7
8
9
 
' dans les membres, affichage dans une ListBox des pseudos
    Set membredvp = dvpdocument.documentElement
 
    If Not membredvp Is Nothing Then
        For Each pseudo In membredvp.getElementsByTagName("pseudo")
            LstMembDvp.AddItem pseudo.Text
        Next
    End If

et LstMembDvp et une listbox...

[Lootro]

C'est tout a fait exact, j'ai remplacé cette portion de code par :

Code :

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

1
2
3
4
5
6
7
8
    ' dans les membres, affichage dans une ListBox des pseudos
    Set membredvp = dvpdocument.documentElement
 
    If Not membredvp Is Nothing Then
        For Each images22 In membredvp.getElementsByTagName("images")
            LstMembDvp.AddItem membredvp.Text
        Next
    End If

Je n'ai plus d'erreur, par contre, j'obtiens ça :

Avec ce fichier : http://comptoir.jexiste.fr/bdd.xml

Il s'agit certainement d'un mot mal placé, mais étant donné ma maîtrise toute relative du langage, cela ne m'étonne pas de moi. : (

Dans tous les cas, un grand merci

[SilkyRoad]

bonsoir

tu peux tester l'exemple dans ce lien

http://www.developpez.net/forums/sho...d.php?t=198357


en remplaçant

Code :

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

    oDoc.Load "C:\liste.xml"

par

Code :

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

    oDoc.Load "http://comptoir.jexiste.fr/bdd.xml"

et

Code :

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

           If oElem.nodeName = "fichiers" Then

par

Code :

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

            If oElem.nodeName = "images22" Then

bonne soiree
michel

[SfJ5Rpw8]

C'est tout a fait exact, j'ai remplacé cette portion de code par :
...

si tu modifie le code et renomme la variable
pseudo .. en image22... fait le partout et ne la remplace pas par membredvp

[Lootro]

Merci à tous les deux, cela fonctionne, je devrais réussir à utiliser ma boucle pour effectuer mes téléchargements, merci bien