Discussion :

[bastiencrespy]

Bonjour,

je me lance dans le VBA mais je n'y connais pas encore grand chose, j'aurai donc besoin de votre aide pour savoir si ce que je veux faire est possible

On va générer un fichier chaque jour, il va se présenter sous cette forme:


L'idée est de générer un lien (avec l'IdAgence et l'IdMateriel) et de l'ouvrir avec un navigateur et de répéter ça pour chaque ligne que j'aurai dans mon tableau

j'ai fait un début mais actuellement si je lance ça, il ne se passe rien. J'ai un doute sur le fonctionnement de ma boucle et sur comment ouvrir un lien

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
 
Sub UpdateGroup()
 
Dim IE As Object
 
Set IE = CreateObject("InternetExplorer.Application")
 
 
 
Start = 2
Dim nbLignes As Integer
 
 
nbLignes = cells(rows.count,1).end(xlup).row
IdAgence = Worksheets("Rapprochement").Cells(Start, 2).Value
IdMateriel= Worksheets("Rapprochement").Cells(Start, 4).Value
 
 
 
 
Do While Start<nbLignes
 
IE.navigate "https://api.trackunit.com/public/UpdateGroup?id=" & IdAgence & "addUnits=" & IdMateriel & "&token=XXXXXXXXXXXXXXX"
 
Application.Wait DateAdd("s", 5, Now)
 
Start = Start + 1
Loop
 
End Sub

Cordialement

[Menhir]

L'idée est de générer un lien (avec l'IdAgence et l'IdMateriel)

Pour insérer un lien hypertexte dans une cellule, méthode Hyperlinks.Add appliquée au Worksheet de la feuille concernée.
Lire ça : https://docs.microsoft.com/fr-fr/off...hyperlinks.add

et de l'ouvrir avec un navigateur

Pour ouvrir un lien hypertexte déjà créé, méthode Follow appliqué à l'hyperlink concerné.
Lire ça : https://docs.microsoft.com/fr-fr/off...perlink.follow

[Qwazerty]

Salut

Ton instance d'Internet Explorer n'est pas visible c'est pour ça, il faut ajouter

Code :

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

1
2
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = true

Attention ici de préciser la feuille sur laquelle tu travailles

Code :

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

nbLignes = cells(rows.count,1).end(xlup).row

Tu dois avoir pleins d'instance d'IE de lancées sur ton poste.
Pour les voir va dans le Gestionnaire de tâche (Clique droit sur la barre de menu windows ou Ctrl+Alt+Supp).
Tu pourras arrêter les processus IE que tu ne vois pas à l'écran

++
Qwaz

[Philippe Tulliez]

Bonjour,
Une autre option est l'utilisation de la fonction LIEN_HYPERTEXTE
Son utilisation a un gros avantage c'est sa souplesse d'utilisation avec d'autres cellules d'excel contenant l'adresse URL, le texte convivial, etc.
Placée dans un tableau structuré elle rend encore plus dynamique son usage sans VBA

[bastiencrespy]

Merci pour vos réponses !

Entre vos réponses et celles d'un collègue, j'ai réussi à faire ce que je voulais



merci

[Philippe Tulliez]

Bonjour,

Entre vos réponses et celles d'un collègue, j'ai réussi à faire ce que je voulais

Je suis ravi pour toi et merci de nous l'avoir signalé.
Cependant, un forum est un partage et nous indiquer le choix que tu as fait aurait été un plus car il peut aider d'autres personnes fréquentant ce forum.

[bastiencrespy]

Bonjour,

Je suis ravi pour toi et merci de nous l'avoir signalé.
Cependant, un forum est un partage et nous indiquer le choix que tu as fait aurait été un plus car il peut aider d'autres personnes fréquentant ce forum.

Oui tu as complétement raison

dans mon code :
- j'ai rajouté IE.Visible = True pour m'assurer que mon lien était bon
- j'ai déplacé mes 2 variables(idagence et idmateriel qui correspondent à des cellules de mon tableau dans la boucle pour mettre à jour le numéro de ligne
qui va être lu

voici le code qui fonctionne :

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
32
33
34
35
 
 
Sub UpdateGroup()
 
Dim IE As Object
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
 
 
Start = 2
Dim nbLignes As Integer
 
 
nbLignes = Cells(Rows.Count, 1).End(xlUp).Row
 
 
 
 
 
    Do While Start < nbLignes + 1
IdAgence = Worksheets("Rapprochement").Cells(Start, 2).Value
IdMateriel = Worksheets("Rapprochement").Cells(Start, 4).Value
 
 
'IE.navigate "https://api.trackunit.com/public/UpdateGroup?id=" & IdAgence & "&removeUnits=" & IdMateriel & "&token=XXXXXXXXXXX"
 
 
Application.Wait DateAdd("s", 5, Now)
 
 
Start = Start + 1
    Loop
 
End Sub