Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 11/09/2008, 10h23   #1
Invité de passage
 
Inscription : mars 2004
Messages : 2
Détails du profil
Informations forums :
Inscription : mars 2004
Messages : 2
Points : 1
Points : 1
Par défaut adresser un label dans un document enfant

Bonjour,

Désolé de vous déranger avec un problème aussi simple ...

Je cherche à ouvrir un document Word 2007 (enfant) dans un autre document Word 2007 (parent) et à mettre certains champs à jour. Mon problème est que je n'arrive pas à adresser les champs dans le document enfant.

Voici mon bout de code:
Code :
1
2
3
4
5
Set odoc = GetObject("E:\Projects\Documents_Admin_Compta\Word_Combo_Test.docx")
        With odoc
            .Parent.Visible = True
            .Label1.Caption = Banques(UserForm1.ListBox1.ListIndex, 1)
        End With
J'ai systématquement une erreur 438: "Object does not support this property or method" en adressant .Label1.Caption. Je confirme que le label1 existe bien dans le document que j'ouvre. et qu'une instance de Word est ouverte.

Un grand merci pour votre aide ...
rvroth est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/09/2008, 12h39   #2
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 364
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 364
Points : 29 286
Points : 29 286
Bonjour et bienvenue sur les forums Office de DVP.

Je pense que c'est l'approche qui n'est pas bonne.

GetObject ou CreateObject sont utilisé pour les Objets ActiveX.

Pour ouvrir un document, il faut l'ajouter à la collection Document existante.

Code :
1
2
3
Dim oDos As Document
 
Set oDoc = Documents.Open ("E:\Projects\Documents_Admin_Compta\Word_Combo_Test.docx")
Pour l'erreur 438.
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/09/2008, 13h46   #3
Invité de passage
 
Inscription : mars 2004
Messages : 2
Détails du profil
Informations forums :
Inscription : mars 2004
Messages : 2
Points : 1
Points : 1
Merci beaucoup! C'était bien le problème.

Sympa le skip
rvroth est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h39.


 
 
 
 
Partenaires

Hébergement Web