Discussion :

[sat478]

Bonjour, je cherche à partir d'un fichier Excel à ouvrir un fichier Word et remplir les signets correspondants à partir de différentes valeurs.

Voici mon code :

les variables appWord, docWord et Doc sont des variables publiques prédifinies par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public appWord As Word.Application
Public docWord As Word.Document
Public Const Doc = (adresse du fichier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub OuvrirFichierWord()
 
Set appWord = CreateObject("Word.application")
appWord.Visible = True
 
Set docWord = appWord.Documents.Open(Doc)
If docWord.Bookmarks.Exists(test) Then
    docWord.Bookmarks(test).Range.Text = textesignet
End If
 
End Sub

La procédure ouvre correctement mon fichier word mais ne remplit pas le signet quelqu'un peut - il m'expliquer pourquoi ? quelle erreur existe t il ?

[sat478]

en effet dans le 1er cas test correspond en fait au nom de mon signet dans word tandis que testsignet serait le texte que je souhaiterais y insérer (donc à metttre entre guillements je suppose)

[ouskel'n'or]

Autre pb
Tu mets
docWord.Bookmarks(test).Range.Text = textesignet
et là, je ne comprends pas ce que tu veux faire.
Pour aller sur un signet, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Selection.GoTo What:=wdGoToBookmark, Name:="test"

Text n'est pas une propriété de Bookmark
Si c'est pour le créer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    with activeDocument.Bookmarks
        .add range:=selection.range, name:="test"
    end With

A+

[sat478]

oui exactement mais j'utilise peut etre pas les bonnes propriétés et méthodes

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Selection.GoTo What:=wdGoToBookmark, Name:="test"
With Selection
    .InsertAfter "texte ajouté"
    .Collapse Direction:=wdEnd
End With

Ainsi tu atteins ton signet et tu insères le texte juste après

A+

[sat478]

OK j'ai compris le principe de la recherche puis de l'insertion. Mais pour l'utilisation de sélection il doit être préfixé de docWord ou appWord ou rien du tout ? car sinon jai une erreur VBA comme quoi objet inexistant

[ouskel'n'or]

Si tu écris le code tel que je te l'ai donné, "je" n'ai pas d'erreur.
Maintenant, si tu instancies ton doc, tu dois en tenir compte dans les deux cas, pour atteindre ton signet et pour ajouter ton texte.

A+

[sat478]

Excel me met ce message :

Erreur d'exécution 438

Propriété ou méthode non gérée par cet objet

j'utilise Office 2000