Excel et signet Word

**Fred_rt** · 08/04/2015, 10h22

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 :

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

**Pierre Fauconnier** · 08/04/2015, 10h56

Salut.

Et si tu nous disais quelle erreur tu rencontres et éventuellement sur quelle ligne?

**Menhir** · 08/04/2015, 11h09

Envoyé par Fred_rt

j'ai une erreur

Quelle erreur ? Sur quelle ligne ?

**Fred_rt** · 08/04/2015, 12h41

Bonjour,

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

Merci d'avance.

Fred

**Pierre Fauconnier** · 08/04/2015, 12h49

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

**Philippe Tulliez** · 08/04/2015, 13h10

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)

**Pierre Fauconnier** · 08/04/2015, 13h43

Hello Philippe...

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

**Fred_rt** · 08/04/2015, 15h56

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 :

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

**Menhir** · 08/04/2015, 16h14

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 :

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

1
2
MaVariable = Cells(3, 2)
WordDoc.Bookmarks("Client").Range.Text = MaVariable

**Pierre Fauconnier** · 08/04/2015, 16h19

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.

**Fred_rt** · 08/04/2015, 17h58

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

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

**Pierre Fauconnier** · 08/04/2015, 19h11

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.

**Fred_rt** · 09/04/2015, 09h46

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

**Menhir** · 09/04/2015, 10h00

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.

**Pierre Fauconnier** · 09/04/2015, 09h58

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

Excel et signet Word [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager