Salut,

Source sympas et bien pratique en effet.

Le code est propre et commenté (30%), indenté (un peu spécial mais c'est une question de goût)

Petite remarque stocker en dur c'est un peu moche notament
Const Rep = "C:\mes documents\ini\"
Pourquoi ne pas faire un App.Path ?

par contre, End c'est vraiement brutal et tres tres moche
Private Sub cmdQuitter_Click()
     End
End Sub

ça serait bien de décharger les elements et de finir par un Unload Me ...

Zlub

En effet pas mal de générateur sur ce site.

L'idée est sympas bien que le temps de génération soit un poil long.

Par contre, ça serait bien de commenter un peu le code et d'indenter... Coté critique, perso je ne suis aps fan des GOTO ..

NB : ça serait sympas d'indiquer pourquoi vous mettez une mauvaise note afin que je puisse améliorer le code ou clarifier des points. Sinon ça n'a pas de sens.

ECONS > je suppose que c'est pour ça. Je n'ai pas trouvé le detail dans la doc. Etant donné que ni Ecosse, ni Pays de Galles ont un code pays, j'imagine que GB les regroupent.
De toute façon, les codes pays sont fixés par les pays membres de UE et ne sont donc pas de moi.

Salut,

Merci pour vos commentaires.

KatSankat > en effet, j'ai prévu de m'occuper de ça. En l'état c'est une version "autonome" donc sans connexion au Net. Mais l'idée de vraiment vérifier me plait bien et je vais sans doute bosser dessus.

ECONS > C'est vonlontairement que j'ai fait ainsi en hésitant sur ce point. J'ai opté pour cette solution pour faciliter les modifications au cas où les codes d'un pays changerait. Je me renseigne sur ce point et le cas échéant, je réduirais le nombres de lignes.

++

Zlub

Salut,

Je te proposes cette procédure (si tu tiens à la conserver) au lieu de ta bouccle de recherche...

Private Function Extract_FICHIER(Chaine As String) As String
    Extract_FICHIER = Mid(Chaine, InStrRev(Chaine, "/") + 1)
End Function

En suite, sauf erreur de ma part dans CmdTelecharger_Click, la variable Site n'est pas initialisée donc Nom_Fichier n'est pas correctement initialisée.

++

Zlub

Salut,

Au vu de tes sources, t'aime bien enregistrer non ? ;)

Juste une remarque, un Set DE = Nothing avant le exit Sub ça serait sympas...
Et Gestion_Réclamations.DE : ça vient d'où ?

++

Zlub

patrice99 : Il suffit de définir avec les majuscules et c'est bon par exemple le ÀÂÄ
sebmafate : oki c'est modifié

Ah yes sympas comme astuce.

Y'a aussi ` qui fait planter ... Hors mis quelques plantouillage, c'est efficace.

Zlub

oki, one point ...

Partie entiere d'un double ...