[XL-2003] Erreur 424 Objet requis (Excel vers signets de Word). [Résolu]

[Michel91120]

Bonjour,
Je suis nouveau sur le forum et je viens faire appel à vous car je ne trouve pas la solution à mon problème.
La macro fonctionne très bien, mais quand je passe par le "Call EcritureSignet(i)", je vais bien dans la procédure demandée et en arrivant sur la ligne 17 en rouge j'ai l'erreur 424 (Objet requis) en avançant en pas à pas (F8).
Merci d'avance pour votre réponse.
A+

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub export()
 Dim WordApp As Word.Application
 Dim WordDoc As Word.Document
 Dim i, bs As Byte
    Set WordApp = CreateObject("word.application")
    Set WordDoc = WordApp.Documents.Open("D:\Essai Word Excel\TU 131.doc")
    WordApp.Visible = True
        For i = 1 To 5
            Call EcritureSignet(i)
        Next i
    WordApp.Visible = False
    
    WordDoc.Close True
    WordApp.Quit
End Sub
Sub EcritureSignet(a)
   bs = WordDoc.Bookmarks("Signet" & i).Start
    WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(a, 1)
    Set rng = WordDoc.Range(Start:=bs, End:=bs + Len(Cells(a, 1)))
    WordDoc.Bookmarks.Add Name:=("Signet" & i), Range:=rng
End Sub

[kiki29]

Salut, WordDoc , i ne sont pas definis correctement ni en global ni en local


.("Signet" & i ) ne serait pas plutôt .("Signet" & a ) ?

Lire et assimiler http://silkyroad.developpez.com/VBA/LesVariables/

[Theze]

Bonjour,

Ceci :

Code :

1
2
 
bs = WordDoc.Bookmarks("Signet" & i).Start

ne devrait pas plutôt s'écrire comme ça ?

Code :

1
2
 
bs = WordDoc.Bookmarks("Signet" & a).Start

Il te faut, à mon avis, définir la portée et le type de tes variables.

Hervé.

[Michel91120]

Bonjour,
Merci pour votre réponse rapide.
Effectivement il y avait un problème dans les variables du SUB EcritureSignet.
Après correction et mise en place de déclaration des variables et objets en globales, le programme fonctionne comme je le souhaitais.

Merci encore de votre aide.

A+