Bonjour à tous,

Je cherche à renseigner un document Word depuis une macro Excel. Rien de vraiment terrible.
A l'exécution, j'ai une erreur "Argument ou appel de procédure incorrect" sur la commande ".Selection.Find.Text".

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub DiffuserTmp()
    Dim AppWord As Word.Application
    Dim WordDocument As Object
 
    ' Initialisation des applications
    Set AppWord = CreateObject("Word.application")
    ' On ouvre la fiche de lecture pour pré-renseigner les champs
    With AppWord
        .Documents.Open Filename:="le chemin qui va bien"
        .Visible = True
        .Activate
 
        ' On va dans l'en-tête
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 
        ' Ajout du nom du projet
        .Selection.Find.Text = "PROJET :"
        .Selection.Find.Forward = True
        .Selection.Find.Wrap = wdFindContinue
        .Selection.Find.Execute
        .Selection.MoveRight
        .Selection.TypeText "TEST"
 
        ' On ferme le fichier
        .Documents.Close
    End With
 
    ' On ferme Word
    AppWord.Quit
End Sub
Il se trouve que je cherche le mot dans l'en-tête, mais ça fait pareil en dehors.

Je travaille avec Word et Excel 2000, VBA 6.0.

J'ai cherhcé un peu partout, mais je ne vois pas ce qui cloche !!

Merci d'avance pour votre aide.