licwimi
XLDnaute Nouveau
Bonjour,
J'aimerais récupérer des données directement sur certaines pages sharepoint 2007(droits d'accès, structures d'espace) et manipuler certains espaces pour remplir automatiquement des formulaires.
Voici mon code :
Le code fonctionne, la page google sur internet explorer (j'ai IE 7 - mon entreprise n'est pas passé à mieux...) et Office 2007. Malheureusement le contenu de mon espion reste désespérement vide (espion sur IE, point d'arrêt placé sur IE.Visible ou Set IE = Nothing). quand je clique sur le "+" à côté de la variable IE, il me met <aucune variable> dans la colonne valeur.
Et un autre problème avec WaitIE, Il pose problème avec la ligne Do Until IE.ReadyState = READYSTATE_COMPLETE. Une fenêtre me dit :
" Erreur Automation
L'objet invoqué s'est déconnecté de ses clients"
Si quelqu'un peut m'aider ça serait vraiment cool ...
merci d'avance
J'aimerais récupérer des données directement sur certaines pages sharepoint 2007(droits d'accès, structures d'espace) et manipuler certains espaces pour remplir automatiquement des formulaires.
Voici mon code :
Code:
'Activer références suivantes :
' - Microsoft HTML Objects Library
' - Microsoft Internet Controls
' - Microsoft shell control et automation
Sub PremierIE()
'Déclaration des variables
Dim IE As New SHDocVw.InternetExplorer
'Chargement d'une page web google
IE.Navigate "www.google.fr"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On libère la variable IE
Set IE = Nothing
End Sub
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas chargée entièrement
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
Le code fonctionne, la page google sur internet explorer (j'ai IE 7 - mon entreprise n'est pas passé à mieux...) et Office 2007. Malheureusement le contenu de mon espion reste désespérement vide (espion sur IE, point d'arrêt placé sur IE.Visible ou Set IE = Nothing). quand je clique sur le "+" à côté de la variable IE, il me met <aucune variable> dans la colonne valeur.
Et un autre problème avec WaitIE, Il pose problème avec la ligne Do Until IE.ReadyState = READYSTATE_COMPLETE. Une fenêtre me dit :
" Erreur Automation
L'objet invoqué s'est déconnecté de ses clients"
Si quelqu'un peut m'aider ça serait vraiment cool ...
merci d'avance