Utilisation de Word depuis Excel : argument ou appel de procédure incorrect

Version imprimable

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:

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.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Test() Dim appWd As Object Dim docWd As Object Set appWrd = CreateObject("Word.Application") Set docWord = appWrd.Documents.Open("D:\Doc\monDocument.doc") appWrd.Visible = True 'l'affichage de Word n'est pas indispensable With appWrd.Selection.Find .Text = "titre" .Forward = True If .Execute Then appWrd.Selection.MoveRight Unit:=1 appWrd.Selection.TypeText "TEST" End If End With docWord.Close False appWrd.Quit Set docWord = Nothing Set appWrd = Nothing End Sub
Explication sur "appWrd.Selection.MoveRight Unit:=1" :
Quand tu crées une instance de Word depuis Excel, les paramètres des méthodes ne peuvent prendre qu'une valeur comme argument. En l'occurence l'argument "Unit:=wdCharacter" est remplacé ici par sa valeur, 1.
Ce qui déplace la sélection d'un caractère par défaut.
Pour déplacer de plusieurs caractères il faudrait ajouter le paramètre count:=nbre de caractères.
Bonne nuit

Bonjour,

Il me semble que le plus simple est d'insérer un signet dans le document Word à l'endroit où le nom du Projet doit s'inscrire.

Une fois le signet inséré et nommé par exemple "proj", tu peux procéder comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test_signet_word()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim NomProj As String, CheminFich As String
 
NomProj = "TEST" '<-- texte à insérer à l'endroit du signet
CheminFich = "D:\test1.doc" '<-- chemin et nom à adapter
 
Set WordApp = CreateObject("word.application") '<-- ouvre une session Word
Set WordDoc = WordApp.Documents.Open(CheminFich) '<-- ouvre le document Word
WordApp.Visible = False '<-- Word est masqué pendant l'opération
 
'le signet du document Word se nomme "proj"
'écriture à l'endroit du signet
WordDoc.Bookmarks("proj").Range.Text = NomProj
 
WordDoc.Close True '<-- ferme le document word en sauvegardant les modifications
WordApp.Quit '<-- ferme la session Word
End Sub

Salut Ousk ;)

Merci pour vos réponses,

Bon, ça n'a pas marché tel que... Mais ça m'a mis sur la voix.

L'appel de la procédure "Selection.Find" sur l'application Word échoue (AppWord.Selection.Find)

MAIS l'appel de la même procédure sur la fenêtre active du document ouvert fonctionne (WordDoc.ActiveWindow.Selection.Find)

Le code qui marche est donc le suivant :
Code:

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 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 Set WordDocument = AppWord.Documents.Open("chemin\fichier.doc") AppWord.Visible = True 'l'affichage de Word n'est pas indispensable With WordDocument.ActiveWindow.Selection.Find .Text = "PROJET :" .Forward = True If .Execute Then AppWord.Selection.MoveRight Unit:=1 AppWord.Selection.TypeText "TEST" End If End With WordDocument.Close False AppWord.Quit Set WordDocument = Nothing Set AppWord = Nothing ' On ferme Word AppWord.Quit End Sub
Je n'ai pas essayé avec les signets car je ne peux pas modifier le template initial (template standard d'entreprise, je ne peux pas y ajouter de signets !!).

Merci encore pour votre aide

02/09/2008, 21h43
ouskel'n'or

Citation:

L'appel de la procédure "Selection.Find" sur l'application Word échoue (AppWord.Selection.Find)

MAIS l'appel de la même procédure sur la fenêtre active du document ouvert fonctionne (WordDoc.ActiveWindow.Selection.Find)

Oui, tu as déclaré

Citation:

Dim AppWord As Word.Application
Dim WordDocument As Object

alors que moi je propose

Code:

Dim AppWord As Object

Ce qui évite en outre d'avoir à valider la référence Microsoft WORD XX.X library application ;)
Bonne nuit... si tu passes par là