Problème sur l'interaction de Excel avec IE 7 (Sharepoint 2007)

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 :
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