Discussion :

[bergeny]

Salut toulemonde ! pardon de mon francais casé ,
j'ai créer un list des url et je l ' ai met dans un Listbox puis je veus créer un timer qui faire commencer la navigation de premier line (url) et reste quelque minute puis saute a la deuxieme line (url) jusqu a la fin comment je peu faire ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Timer1.Interval = 600 ' Add these 3 lines of code where ever you
'want timer to start calling the function
Timer1.Enabled = True
intCnt = 1
End Sub
Private Sub Timer1_Timer()
If intCnt = 20 Then
WebBrowser1.Navigate "un line apres l'autre"
intCnt = 1
Else
intCnt = intCnt + 1
End If
End Sub

et merci boucoup

[Delbeke]

Quelque chose de ce genre ?

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
Dim intCnt as Integer
Private Sub Form_Load()
  Timer1.Interval = 600 ' Add these 3 lines of code where ever you
  'want timer to start calling the function
  Timer1.Enabled = True
  intCnt = 1
End Sub
Private Sub Timer1_Timer()
  If intCnt = 20 Then
    intCnt = 1
  Else
    intCnt = intCnt + 1
  End If
   WebBrowser1.Navigate List1.List(intCnt)
End Sub

[bergeny]

Merci monsieur Delbeke de ton aide , mais je veus naviguer tout les url un apres l'autre et voila j'ai trouve un code qui permet de coller un liste des valeur (url) a partir d'un fichier 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
 
With objXLApp
.Workbooks.Open "D:\Documents and Settings\Abdeslam\Bureau\book1.xlsx"
.Workbooks(1).Worksheets(1).Select
 
For intLoopCounter = 1 To 10
List1.AddItem .Range("A" & intLoopCounter)
Next intLoopCounter
 
.Workbooks(1).Close False
.Quit
End With
 
Set objXLApp = Nothing
End Sub

et voila je veus un code qui coller un url apre l'autre (a partir de listbox) dans Textbox peur commencer la navigation

je pense qui sert a

Code :

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

Next list value ...

et un code je pense qu'il existe dans la programation de VB ,

[zazaraignée]

Bravo! tu as trouvé le code qui charge les url dans un listbox. Ce listbox n'est pas obligatoirement visible (.Visible = False), mais tu pourrais tout aussi bien charger les url dans un tableau à une dimension...

Code :

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

1
2
3
4
5
Dim strTableOfURLs (1 to 10) As String  '<-- just add this line here
For intLoopCounter = 1 To 10
' List1.AddItem .Range("A" & intLoopCounter)  <-- and replace this one
    strTableOfURLs(i) = .Range("A" & intLoopCounter)  ' <-- with this one
Next intLoopCounter

Notes aux lecteurs...
Veuillez excuser mes commentaires écrits en anglais... Je crois que bergeny comprend mieux cette langue... Me tromperais-je, bergeny ?

Pour ajouter l'url courante dans un TextBox...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Timer1_Timer()
  If intCnt = 20 Then
    intCnt = 1
  Else
    intCnt = intCnt + 1
  End If
    txtActiveURL.Text = strTableOfURLs(intCnt)      ' <-- add this line
    WebBrowser1.Navigate strTableOfURLs(intCnt)  ' <-- and modify this one.
End Sub

Ça va ?

[bergeny]

Merci beaucoup zazaraignée de votre aide , Mais je suis désoler , j'ai pas trouver la liste des url dans la Listbox ,je souhaite que tu mettre le code dans visual basic et tester-le

voila ! l'error c'est la

Code :

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

1
2
3
4
'the Debug shown the error there --> 
 
strTableOfURLs(i) = .Range("A" & intLoopCounter) '<-- The error msg said: run-time error '9'
'subscript out of range

et voila le code complete de projet :

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
Private Sub Timer1_Timer()
  If intCnt = 20 Then
    intCnt = 1
  Else
    intCnt = intCnt + 1
  End If
    txtActiveURL.Text = strTableOfURLs(intCnt)      ' <-- add this line
    WebBrowser1.Navigate strTableOfURLs(intCnt)  ' <-- and modify this one.
End Sub
Private Sub form_load()
Dim objXLApp As Excel.Application
Dim intLoopCounter As Integer

Set objXLApp = New Excel.Application

With objXLApp
.Workbooks.Open "D:\Documents and Settings\Abdeslam\Bureau\book3.xlsx"
.Workbooks(1).Worksheets(1).Select

Dim strTableOfURLs(1 To 10) As String
For intLoopCounter = 1 To 10
strTableOfURLs(i) = .Range("A" & intLoopCounter) '<-- l'error c'est la !!
Next intLoopCounter

.Workbooks(1).Close False
.Quit
End With

Set objXLApp = Nothing
End Sub

merci de me suivre

[zazaraignée]

le tableau strTableOfURLs n'est pas un listbox... C'est une variable tableau ou un vecteur si tu préfères, dument déclaré avec la clause Dim et dimentionné explicitement avec les indices 1 à 10. C'est comme une variable ordinaire mais qui peut contenir 10 valeurs au lieu d'une seule.

Je n'ai fait qu'utiliser le code que tu nous as fourni pour récupérer des données d'un classeur Excel (que nous n'avons pas, nous... et qu'il n'est pas utile que nous ayons de toutes façons...). Il apparaît que tu ne comprends pas vraiment ce que tu dois faire... Il est vrai que je n'ai pas tout vérifié la première fois.

Ce qu'une seconde lecture de ton code me dit, c'est qu'il te manque peut-être une variable quelque part pour récupérer les valeurs de la feuille de calcul, soit la feuille de calcul elle même... Il est tard (près de minuit ici) et je vais voir demain... à moins que quelqu'un d'autre s'y colle... vu le décalage horaire.

[Edit] [...] (un paragraphe biffé, puisque plus nécessaire...)

zaza