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

**ffavier** · 01/09/2008, 17h26

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.

**ouskel'n'or** · 02/09/2008, 00h31

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
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

**fring** · 02/09/2008, 00h36

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 :

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
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

**ffavier** · 02/09/2008, 14h24

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 :

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
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

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

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é

Dim AppWord As Word.Application
Dim WordDocument As Object

alors que moi je propose

Code :

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