Bonjour à tous et toutes

J'ai grace au forum réussi il y a quelques mois à créer un programme qui me permet de composer un document word depuis excel.

J'essaye désormais de simplifier le code en faisant des appels de subs plutot que d'avoir de multiples "chapitres" a peu près similaires dans mon code.

Lors de l'exécution de la sub ci dessous, j'ai une erreur de type 91, variable objet ou variable de bloc with non définie sur la ligne 9


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
Sub PrintTitreChapitre(ByVal n As String)
Const wdStory = 6
Const wdMove = 0
Set objword = CreateObject("Word.Application")
Dim objdoc As Word.Document
Set objdoc = GetObject("e:\1 - aff\aa divers novorest\00 - gestion affaires\00 base\modeles\corps descriptif.doc")
 
Set objselection = objword.Selection
objselection.EndKey wdStory, wdMove
 
Dim p1 As String
                p1 = objdoc.Paragraphs.Count
                With objdoc.Paragraphs(p1).Range
                    .Style = "Titre 2"
                End With
 
                    objselection.TypeText "MATERIELS DE BUANDERIE" & Chr(10)
                    Dim p5 As String
                p5 = objdoc.Paragraphs.Count
                With objdoc.Paragraphs(p5).Range
                  .Font.Bold = False
                    .Style = "Normal"
                End With
                Dim p2 As String
                p2 = objdoc.Paragraphs.Count
                With objdoc.Paragraphs(p2).Range
                    .Style = "Normal"
                End With
J'ai a priori repris les mêmes éléments que ceux qui fonctionnent dans le programme de base.

Merci de votre aide

Daniel