khoed
Messages postés15Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention11 mai 2006
-
18 nov. 2005 à 13:47
khoed
Messages postés15Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention11 mai 2006
-
21 nov. 2005 à 09:22
Je souhaite télécharger un fichier excel sur mon disque dur. J'ai réaliser une appli qui fonctionne mais pas toujours. Et c'est là mon problème. Le problème se situe au niveau de la commande ExecWB : parfois elle est reconnue mais parfois non.
Si quelqu'un peut m'aider ce serai cool, merci d'avance.
P.S. Voici mon code :
Private Sub telechargement()
Application.DefaultFilePath = "c:/temp"
Dim url As String
url = "http://www.blabla.fr/Resultat.xls"
Set ie = New InternetExplorer
ie.RegisterAsBrowser = True
ie.Navigate url
ie.Visible = True
While ie.Busy = True
DoEvents
Wend
dossier = Dir("c:/temp/Resultat.xls", vbDirectory)
If dossier = "Resultat.xls" Then
Kill "c:/temp/Resultat.xls"
End If
ie.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER
While ie.Busy = True
DoEvents
Wend
ie.Quit
Workbooks.Open Filename:="C:\temp\Resultat.xls"
End Sub
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 18 nov. 2005 à 19:35
salut,
IE devrait être un WebBrowser et non un InternetExplorer (il me semble).
et navigate devrait être un Navigate2.
celà dit, c'est peut-être différent pour VBA....
PCPT [AFCK]