Excel et signet Word

Version imprimable

Bonjour à tous,

J'ai un fichier Excel (tableau) qui contient des informations (nom client, adresse etc). C'est fichier de suivi d'incident et je dois l'utiliser pour générer divers courriers. Ces courriers sont des fichiers Word classique dans lequel j'ai inséré des signets. Dans le fichier Excel, je mets un bouton qui me permet de générer ce courrier. Il faut que la procédure reste simple car les utilisateurs ne sont pas expérimentés, et le publipostage n'est pas non plus une bonne solution. Malheureusement, j'ai une erreur et je ne comprends pas ou est le problème.
Pour info, je ne suis pas un pro du VBA.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Editer() Dim oApp As Object Dim Shell As Shell Dim Chemin As String Dim Chemin_complet As String Dim File_name As String File_name = "Plainte contre X.docx" Chemin = ThisWorkbook.Path 'Chemin = Application.GetOpenFilename Chemin_complet = Chemin & "\" & File_name Set oApp = CreateObject("Word.Application") oApp.Documents.Open Chemin_complet oApp.Visible = False 'Set objShell = New Shell 'objShell.Explore (Chemin) With Worksheets("Les_faits") WordDoc.Bookmarks(“Client”).Range.Text = Cells(3, 2) WordDoc.Bookmarks(“Adresse”).Range.Text = Cells(4, 2) WordDoc.Bookmarks(“Site”).Range.Text = Cells(6, 2) End With WordApp.Visible = True End Sub
Qu'ai-je mal fait ?

Merci d'avance.

Cordialement,

Fred

08/04/2015, 10h56
Pierre Fauconnier

Salut.

Et si tu nous disais quelle erreur tu rencontres et éventuellement sur quelle ligne?
08/04/2015, 11h09
Menhir

Citation:

Envoyé par Fred_rt

j'ai une erreur

Quelle erreur ? Sur quelle ligne ?
08/04/2015, 12h41
Fred_rt

Erreur signet word

Bonjour,

Pardon pour cet oubli.
Erreur ligne 18
Erreur 424 objet requis

Merci d'avance.

Fred
08/04/2015, 12h49
Pierre Fauconnier

1. WordDoc n'est pas déclaré. Tu devrais avoir une ligne Dim WordDoc as word.document en début de procédure. Pour éviter ce genre de mésaventure, tu as intérêt à obliger la déclaration de tes variables (Option Explicit en début de module, et cocher la case correspondante dans outils\options\Editeur)
2. A la ligne 11,tu dois avoir set worddoc = oApp.Documents.Open(Chemin_complet)

Essaie déjà avec ces modifs... ;)
08/04/2015, 13h10
Philippe Tulliez

Bonjour,
J'ajouterais à la réponses de Pierre que je salue au passage que les guillemets qui entourent le nom des signets (Bookmarks des lignes 18, 19 et 20) ne sont pas ceux qui doivent être utilisés en VBA (voir les guillemets qui entourent le nom de la feuille de la ligne 17 qui eux sont corrects)
08/04/2015, 13h43
Pierre Fauconnier

Hello Philippe...

Bien vu... Tu as le regard perçant du tigre... ;)

Excel signet word

Merci de vos infos. Je me suis aperçu en effet que j'avais oublié de déclarer la variable. Donc voici le code corrigé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Editer()
Dim oApp As Object
Dim Chemin As String
Dim Chemin_complet As String
Dim File_name As String
Dim WordDoc As Word.document
 
    File_name = "Plainte contre X.docx"
    Chemin = ThisWorkbook.Path
    Chemin_complet = Chemin & "\" & File_name
    Set oApp = CreateObject("Word.Application")
    Set WordDoc = oApp.documents.Open(Chemin_complet)
    oApp.Visible = False
    With Worksheets("Les_faits")
    WordDoc.Bookmarks("Client").Range.Text = Cells(3, 2)
    WordDoc.Bookmarks("Adresse").Range.Text = Cells(4, 2)
    WordDoc.Bookmarks("Site").Range.Text = Cells(6, 2)
    End With
    oApp.Visible = True
End Sub

La je n'ai en effet plus d'erreur. En revanche quand le document Word s'ouvre les signets n'ont pas récupéré la valeur des cellules Excel.

Une idée ?

Cordialement,

Fred

08/04/2015, 16h14
Menhir
Essaye de remplacer Cells(3, 2) par Cells(3, 2).Value.
Idem pour les lignes suivantes.

Si ça ne marche pas, essaye de passer par une variable intermédiaire :
Code:

1 2 MaVariable = Cells(3, 2) WordDoc.Bookmarks("Client").Range.Text = MaVariable
08/04/2015, 16h19
Pierre Fauconnier

Sur les lignes 15, 16 et 17, tu as oublié de mettre un . devant range (puisque tu utilises un bloc With)...

Et puisque tu passes des valeurs, pense à mettre .Value derrière tes range. C'est plus explicite.

N'hésite pas à déboguer ton code pas à pas. Tu pourras ainsi t'arrêter sur les lignes susceptibles de poser problème et de regarder chaque valeur utilisée.

Excel signet word

Ok, merci à tous. Voici le code qui fonctionne:

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
31
32
Sub Editer()
Dim oApp As Object
Dim Shell As Shell
Dim Chemin As String
Dim Chemin_complet As String
Dim File_name As String
Dim WordDoc As Word.document
 
    File_name = "Plainte contre X.docx"
    Chemin = ThisWorkbook.Path
    'Chemin = Application.GetOpenFilename
    Chemin_complet = Chemin & "\" & File_name
    Set oApp = CreateObject("Word.Application")
    Set WordDoc = oApp.documents.Open(Chemin_complet)
    oApp.Visible = False
    'Set objShell = New Shell
    'objShell.Explore (Chemin)
    With Worksheets("Les_faits")
    'WordDoc.Bookmarks("Client").Range.Text = .Cells(3, 2).Value
    'WordDoc.Bookmarks("Adresse").Range.Text = Cells(4, 2).Value
    'WordDoc.Bookmarks("Site").Range.Text = Cells(6, 2).Value
    Client = Range("C2").Value
    'MsgBox Client
    Adresse = Range("D2").Value
    Site = Range("F2").Value
    End With
    WordDoc.Bookmarks("Client").Range.Text = Client
    WordDoc.Bookmarks("Adresse").Range.Text = Adresse
    WordDoc.Bookmarks("Site").Range.Text = Site
 
    oApp.Visible = True
End Sub

A la prochaine.

08/04/2015, 19h11
Pierre Fauconnier

Ton bloc With...End With ne sert à rien, au vu du code que tu donnes. Tu pourrais te passer des lignes 18 et 26, si tu es certain que ce sera toujours cette feuille là qui sera active lorsque la macro sera lancée.
09/04/2015, 09h46
Fred_rt

Excel signet word

Bonjour Pierre,

En effet, mais la macro est lancée d'un bouton situé sur un autre onglet. J'ai du ajouté un . devant range du bloc with. En revanche, ce que je peux simplifier à priori c'est la variable intermédiaire, je dois pouvoir m'en passer.

Cordialement,

Fred
09/04/2015, 09h58
Pierre Fauconnier

C'est la solution que je te proposais dans mon mail de 16h19 ;)

Passer pas une variable intermédiaire ne sert qu'à vérifier que la valeur récupérée sur le range est correcte. Ce qu'on pourrait faire sans variable intermédiaire en mode pas à pas. Mais si le range n'est pas bon au départ (à cause de l'absence du . devant), passer par une variable intermédiaire ne sert strictement à rien...
09/04/2015, 10h00
Menhir

Citation:

Envoyé par Fred_rt

ce que je peux simplifier à priori c'est la variable intermédiaire, je dois pouvoir m'en passer.

J'ai trouvé ça dans un programme que j'avais fait il y a quelques années.
Je ne me souviens plus pourquoi j'avais mis une variable intermédiaire à l'époque mais je pense que si j'ai fais comme ça, c'est que j'ai du rencontré un problème comparable au tien et que je n'avais pas trouvé de solution pour faire autrement.

Cela dit, rien ne t'oblige à utiliser 3 variables. Une seule peut suffire si tu utilises son contenu juste après.