Discussion :

[Mr l'Ashanti]

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 :

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

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

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

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

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

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

With DocW.Selection.Find

qui est pointée.

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

Code :

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

 With WordDoc.Content.Find

qui est pointée.

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

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

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

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

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

1
2
Dim DocW as Object
DocW= CreateObject("Word.Application")

Ici, tu as omis le type derrière As.

Code :

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

Dim DocW as New Word.Application

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

Code :

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

Dim DocW as Object = New Word.Application

ou encore (pas de as)

Code :

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

Dim DocW = New Word.Application