Piloter boite de dialogue avec VBA
Bonjour,
je dois récuperer tous les jours un fichier excel depuis un site internet et mettre à jour mes données sur mon fichier excel de synthèse.
J'ai automatisé la connection au site, le rapport d'extraction et son extraction, et je suis maintenant devant la boite de dialogue qui me demande d'ouvrir, enregistrer ou annuler ?
J'ai essayer plusieurs choses avec la fonction dialog, mais rien de concluant.
Je voudrais savoir s'il y a un moyen de mettre en place un code pour continuer d'automatiser ma mise à jour, en enregistrant le fichier dans un répertoire spécifique ?
Merci de votre aide.
Bonjour MOD7590
C'est certainement possible, mais sans fichier ou sans code
A+
je n'ai pas de code pour le moment pour cette partie de automatisation.
Ce que j'aimerais savoir, c'est si on peut se servir du VBA pour agir sur ce genre de fenetre générer en automatique ?
Sub Macro2()
'
' Macro2 Macro
'
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim b As Integer
Dim c As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim recul As IHTMLElementCollection
Dim btxcel As IHTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.Navigate "http://jepeuxpasmettrel'url_intranet"
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set recul = maPageHtml.getElementsByTagName("input")
For b = 0 To recul.Length - 1
If recul(b).getAttribute("name") = "imgBtnFirst" Then 'imgbtnfirst est le nom du bouton pour reculer la date d'un mois
recul(b).Click 'Recul d'un mois
Exit For
End If
Next
Sleep (3000) 'milliseconde 1000 = 5s
Set btxcel = maPageHtml.getElementsByTagName("input")
For c = 0 To btxcel.Length - 1
If btxcel(c).getAttribute("name") = "BtnXls" Then 'btnxls est le nom du bouton pour lancer l'export excel
btxcel(c).Click 'exporter
Exit For
End If
Next
End Sub
Un petit up, vraiment personne pour m'aider ?