Bonjour,
J'essaie de faire une macro dans un fichier word, qui reprend les infos de different controle de contenu pour les mettre dans un formulaire HTML.
Mais j'ai une erreur qui pop quand je lance la macro et je ne comprend pas pourquoi apres avoir fait different site, google, sacrifice etc je viens vers vous.
Donc le code en question :
Code :
- Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- Sub test()
- Dim cc As ContentControl
- Dim UnChamp As Object
- Dim IE As Object
- Set IE = CreateObject("InternetExplorer.Application" )
- IE.Visible = True
- IE.Navigate "http://jtrac:8080/jtrac/app/xxxxxx"
- 'On Error Resume Next
- Sleep 2000
- ' Iterate through all the content controls in the document
- ' and select those having the specified tag value.
- If ActiveDocument.ContentControls.Count <> 0 Then
- For Each cc In ActiveDocument.ContentControls
- Select Case cc.Tag
-
- Case "texte4" 'Pilote de l'instruction
- Set UnChamp = IE.Document.getElementByname("summary" ).Item
- UnChamp.Value = cc.Range
- Case "NumLot" 'numero de lot
- Set UnChamp = IE.Document.getElementByname("fields:fields:6:field:field" ).Item
- UnChamp.Value = cc.Range
- Case "Texte8" 'Charge estime
- Set UnChamp = IE.Document.getElementByname("fields:fields:5:field:field" ).Item
- UnChamp.Value = cc.Range
- Case "Texte7" 'Materiel
- Set UnChamp = IE.Document.getElementByname("fields:fields:2:field:field" ).Item
- UnChamp.Value = cc.Range
-
- Case "NumCADFCP " 'CAD/DDR
-
- Case "NumFPP" 'Numero FPP
-
- Case "Texte18" 'Date mise a dispo donnees d'entrees
-
- Case "DateBesoinClient" 'Date de besoin
-
- Case "engagementBE" 'Date engagement BE
- End Select
- Next
- End If
- End Sub
|
J'ai recupere les noms des champs dans le code HTML de la page.
La macro plante ici : IE.Document.getElementByname("summary" ).Item
Avec ca en message d'erreur :
"erreur 80010108 erreur automation l'objet invoque s'est deconnecte de ses clients"
Ma page IE est toujours ouverte, je ne ferme rien, le word est ouvert.
Si vous avez des pistes ou des solutions je suis a votre ecoute.
Bonne journee.
Edit: J'ai fait une petite modif dans mon code pour essayer de trouver le probleme.
Code :
- ...
- Dim IE As Object
- Dim IEDoc As HTMLDocument
- Dim InputGoogleZoneTexte As HTMLInputElement
- ...
- Set IEDoc = IE.Document
- ...
|
Et l'erreur est sur le document : "Set IEDoc = IE.Document"
EDIT 2 : Si je met google en URL ca marche, donc ca doit etre un probleme avec mon intranet
Message édité par lalan28200 le 04-10-2017 à 18:02:40
FORUM HardWare.fr
