La référence d'objet n'est pas définie à une instance d'un objet

Version imprimable

Bonjour Forum
Le titre de cette nouvelle discussion a été déjà évoqué dans plusieurs forums mais je n'ai pas trouvé une liaison en rapport avec mon problème.
Le premier code ci-dessous fonctionnait correctement et ça fonctionne toujours dans la première application déployée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  L_Message.Text = "Extraction des données en cours..."
        Dim DocW As New Word.Application
        DocW = CreateObject("Word.Application")
        DocW.Documents.Open(DestinationFichier)
        L_Message.Text = "Début de traitement des données en cours..."
 
        'information sur l'iepp
        With DocW.Selection.Find 'civilité iepp
            .ClearFormatting()
            .Text = "civiliteiepp"
            .Replacement.ClearFormatting()
            .Replacement.Text = Strings.StrConv(CivilitéIEPP, VbStrConv.ProperCase)
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Civilité modifié avec succès..."

,
Un matin j'ai décidé de nettoyer le code, et c'est là que je reçois le message de la référence...

J'ai décidé donc de modifier la ligne en instanciant un objet sur la classe Word.Document (Code Ci-dessous)
ça marchait également et j'ai pu imprimer quelques feuilles. Aujourd'hui, je décide de continuer le nettoyage et ERREUR, le même message de référence:cry::cry:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        L_Message.Text = "Extraction des données en cours..."
        Dim DocW As New Word.Application
        Dim WordDoc As New Word.Document
        WordDoc = DocW.Documents.Open(DestinationFichier)
        L_Message.Text = "Début de traitement des données en cours..."
 
        'information sur l'iepp
        With WordDoc.Content.Find 'civilité iepp
            .ClearFormatting()
            .Text = "civiliteiepp"
            .Replacement.ClearFormatting()
            .Replacement.Text = Strings.StrConv(CivilitéIEPP, VbStrConv.ProperCase)
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Civilité modifié avec succès..."

D'après mes recherches, lorsqu'un objet est déclaré et vide, cela génère le message. Mais, dans mon cas, je doute que mes objets soient Nothing.

Merci de m'aider

19/04/2024, 18h47
umfred

qu'est-ce que tu as fait comme nettoyage ?
si tu as le même message sur un autre passage de code, alors il faut appliquer la même solution. Si c'est sur le même, vérifie que tu n'as pas annulé le 1er nettoyage (en remettant le code d'origine par exemple)
19/04/2024, 20h19
Mr l'Ashanti

Le premier code est un extrait du projet sur lequel je travaille. Et c'est ce code qui est dans la première application. Mais ça ne s'exécute plus.
Le message pointe la ligne du code suivant:
le premier code, c'est la ligne

Code:

With DocW.Selection.Find

qui est pointée.

Dans le deuxième code, c'est la ligne

Code:

With WordDoc.Content.Find

qui est pointée.
20/04/2024, 12h53
Mr l'Ashanti
Bonjour et grand merci à tous.
Dans mes recherches sur les objets, j'ai appris les deux méthodes liées à un objet : la liaison anticipée et la liaison tardive.
Dans mon cas, la liaison anticipée générait une erreur comme mentionné dans le titre avec l'activation de la bibliothèque Word.
J'ai donc choisi de passer par la liaison tardive en déclarant la variable comme Object
Code:

1 2 Dim DocW as Object DocW= CreateObject("Word.Application")
et non en l'instanciant Dim DocW as New Word.Application.

Le problème est donc résolu.
Mais j'aimerais qu'on m'explique le pourquoi de cette erreur parce que l'instanciation de ma variable est tout à fait correct dans le premier code ainsi que le second.
Même en VBA, quand j'ai utilisé la classe Word.Application, la même erreur est survenue après plusieurs tests de l'application. Il a fallu que je passe par la liaison tardive pour que ça marche.

Merci
22/04/2024, 09h31
popo
Et bien justement, l'instanciation de ta variable est syntaxiquement incorrect.

Ici, tout fonctionne car tu déclares bien le type derrière As.
Code:

1 2 Dim DocW as Object DocW= CreateObject("Word.Application")
Ici, tu as omis le type derrière As.

Code:

Dim DocW as New Word.Application

La bonne syntaxe pour l'instanciation de ta variable (il y a un type derrière as:

Code:

Dim DocW as Object = New Word.Application

ou encore (pas de as)

Code:

Dim DocW = New Word.Application