Discussion :

[jazzybluesy]

Bonjour tout le monde,
je suis actuellement en train de travailler sur un programme aui extrait des donnees du web et je voudrais ajouter une progressbar.
Je sais faire des progressbar en incrementant un nombre, le probleme c est que la je n ai aucune idee de quand le processus fini donc je ne peux pas incrementer un nombre sans lui dire que cette valeur est la limite.

Comment je peux faire ?

[tedo01]

Bonjour,
Une progressbar permet de montrer l'état d'avancement d'une opération, ce qui implique d'être capable de calculer cet avancement.
Je ne vois donc pas l'intérêt d'en mettre une si on ne sait pas où on en est, autant mettre un sablier, non ?

[jazzybluesy]

Comment je peux savoir le temps que va prendre le transfert des donnees internet vers excel ?

[patricktoulon]

bonjour

excel vba ne devine pas
cependant si tu fait des extraction d'éléments sur internet(utilisation de la librairie IE) tu fait certainement des boucles sur le "document.all"
le résultat de cette boucle devrait te donner un départ pour évaluer la longueur de la progressbar


n'ayant pas ton fichier sous les yeux il m'est difficile de t'en dire plus
au plaisir

[jazzybluesy]

Bonjour,

En réalité je n utilise que la fonction deja integre dans excel.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
LinkForm.InputWebLink.Value = "" 'LinkForm est mon formulaire ou je copie le lien
LinkForm.Show
WebLink = LinkForm.InputWebLink.Value
PosCut = Mid(WebLink, 40)
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & WebLink & "" _
        , Destination:=Range("$A$2"))
        .Name = _
        "" & CutLink & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Du coup si j ai bien compris je ne peux pas savoir avant combien de temps il va mettre ?