blandinedau
XLDnaute Nouveau
Bonjour,
J'ai pour mission pendant mon stage de coder une macro vba pour excel qui va chercher une information dans une application interne à l'entreprise qui s'ouvre avec un webbrowser.
A partir d'un n° de dossier, je dois simuler l'entrée de ce n° dans l'application et naviguer via différents onglets jusqu'à une information contenue dans une table que j'extrais et que je colle dans Excel.
j'ai réussi à coder une macro qui fonctionne et ce soit pour un numéro de dossier, soit pour un nombre multiple de numéros de dossier.
C'est lors de multiplicité de dossier que j'ai un problème : en effet, si j'ai plus d'un dossier à renseigner, je suis obligée de mettre la valeur true à IE.visible. Si je mets false, le premier dossier est bien trouvé, l'information extraite etc. Au second numéro de dossier, la recherche ne se fait pas, et ainsi de suite, il ouvre vraisemblablement simplement l'application et la referme.
J'aimerai éviter de coller mon code ici, histoire que je n'ai pas à cacher toutes les informations qui pourraient être secrètes concernant l'application (méfiance n'est-ce pas?)
En fait, j'ai juste besoin d'un petit topo sur l'utilisation de cette fonctionnalité...
Voici juste un bout de mon code, sait-on jamais, si vous repérez un petit point rien qu'avec ce que je vous donne
Sub Recherche_Appli_NumDossier()
'Déclaration des variables
Dim IE
.....
Dim t As Integer
t = 1
Range("B3").Select
While ActiveCell.Cells(t, 1).Value <> 0
Set IE = CreateObject("internetExplorer.Application")
With IE
.Visible = False
.navigate "http://...."
'Boucle pour attendre la fin du chargement de la page
Do Until .readyState = 4
DoEvents
Loop
End With
En espérant que vous puissiez m'aider!
Blandine
J'ai pour mission pendant mon stage de coder une macro vba pour excel qui va chercher une information dans une application interne à l'entreprise qui s'ouvre avec un webbrowser.
A partir d'un n° de dossier, je dois simuler l'entrée de ce n° dans l'application et naviguer via différents onglets jusqu'à une information contenue dans une table que j'extrais et que je colle dans Excel.
j'ai réussi à coder une macro qui fonctionne et ce soit pour un numéro de dossier, soit pour un nombre multiple de numéros de dossier.
C'est lors de multiplicité de dossier que j'ai un problème : en effet, si j'ai plus d'un dossier à renseigner, je suis obligée de mettre la valeur true à IE.visible. Si je mets false, le premier dossier est bien trouvé, l'information extraite etc. Au second numéro de dossier, la recherche ne se fait pas, et ainsi de suite, il ouvre vraisemblablement simplement l'application et la referme.
J'aimerai éviter de coller mon code ici, histoire que je n'ai pas à cacher toutes les informations qui pourraient être secrètes concernant l'application (méfiance n'est-ce pas?)
En fait, j'ai juste besoin d'un petit topo sur l'utilisation de cette fonctionnalité...
Voici juste un bout de mon code, sait-on jamais, si vous repérez un petit point rien qu'avec ce que je vous donne
Sub Recherche_Appli_NumDossier()
'Déclaration des variables
Dim IE
.....
Dim t As Integer
t = 1
Range("B3").Select
While ActiveCell.Cells(t, 1).Value <> 0
Set IE = CreateObject("internetExplorer.Application")
With IE
.Visible = False
.navigate "http://...."
'Boucle pour attendre la fin du chargement de la page
Do Until .readyState = 4
DoEvents
Loop
End With
En espérant que vous puissiez m'aider!
Blandine