Problème avec variable objet non définie

**Mr l'Ashanti** · 01/08/2024, 18h08

Bonjour à vous
[Un problème non solutionné est une question mal posée]

je reviens encore sur une ancienne discussion qui malheureusement n'a pas eu de solution parce que j'avais mal posé la question.

Lorsque pour convertir mon fichier word en pdf puis l’imprimer, je rencontre souvent une erreur qui me dit : La référence d'objet n'est pas définie à une instance d'un objet et le numéro de l'erreur se pointe à la ligne que j'ai marqué en rouge sur l'image. Mais lorsque je redémarre l’ordinateur, le problème ne se produit plus et je convertis puis imprime le fichier.
S’il vous plaît aidez-moi car je ne veux pas redémarrer l'ordinateur à chaque fois que le problème survient.
code

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Private Sub Bt_Valider_Click(sender As Object, e As EventArgs) Handles Bt_Valider.Click
 
    'copie du fichier
    Nom = Me.Nom1.Text
    If n = 0 Or Me.Nom1.Text = "" Then MsgBox("Veuillez sélectionner l'enseignant en question", vbExclamation) : Exit Sub
    If MsgBox("Voulez-vous enregistrer la demande de " & Me.Nom1.Text & " " & Me.Prenoms1.Text & " ?", vbQuestion + vbYesNo) <> vbYes Then Exit Sub
    SourceFichier = DestFichiers & "\Fichiers GestRH\Fichiers\Docs\Poste.docx" 'copie de l'attestation de presence de poste au poste
    DestinationFichier = DestFichiers & "\Fichiers GestRH\Fichiers\Attestation\AttestationDe" & Nom & ".docx"
 
    If My.Computer.FileSystem.FileExists(SourceFichier) Then My.Computer.FileSystem.CopyFile(SourceFichier, DestinationFichier, True)
    'Recherche et remplacement des valeurs
 
    L_Message.Text = "Extraction des données en cours..."
    Try
        Dim Docw As Object = New Word.Application
        Docw = CreateObject("Word.Application")
        Dim WordDoc As Object = New Word.Document
        WordDoc = CreateObject("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..."
        With WordDoc.Content.Find 'nom iepp
            .ClearFormatting()
            .Text = "nomiepp"
            .Replacement.ClearFormatting()
            .Replacement.Text = NomIEPP
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Nom de IEPP modifié avec succès..."
        With WordDoc.Content.Find 'nom iepp
            .ClearFormatting()
            .Text = "fonctioniepp"
            .Replacement.ClearFormatting()
            .Replacement.Text = FctionIEPP
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ fonction de l'iepp modifié avec succès..."
        With WordDoc.Content.Find 'matricule iepp
            .ClearFormatting()
            .Text = "matriculeiepp"
            .Replacement.ClearFormatting()
            .Replacement.Text = MatriculeIEPP
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Matricule IEPP modifié avec succès..."
        ''information sur l'enseignant
        With WordDoc.Content.Find 'nom enseignant
            .ClearFormatting()
            .Text = "nom1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Nom1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Nom enseignant modifié avec succès..."
        With WordDoc.Content.Find 'prenoms enseignant
            .ClearFormatting()
            .Text = "prenoms1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Prenoms1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Prénoms enseignant modifié avec succès..."
        With WordDoc.Content.Find 'matricule enseignant
            .ClearFormatting()
            .Text = "matricule1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Matricule1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Matricule Enseignant modifié avec succès..."
        With WordDoc.Content.Find 'emploi enseignant
            .ClearFormatting()
            .Text = "emploi1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Emploi1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Emploi modifié avec succès..."
        With WordDoc.Content.Find 'emploi enseignant
            .ClearFormatting()
            .Text = "fonction1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Fonction1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Fonction modifié avec succès..."
        With WordDoc.Content.Find 'emploi enseignant
            .ClearFormatting()
            .Text = "civilite1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.Civilite1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Civilité modifié avec succès..."
        With WordDoc.Content.Find 'ecole enseignant
            .ClearFormatting()
            .Text = "ecole1"
            .Replacement.ClearFormatting()
            If Me.Op_Admin.Checked = True Then .Replacement.Text = "IEPP MANKONO"
            If Me.Op_Craie.Checked = True Then .Replacement.Text = Me.Ecole1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Service modifié avec succès..."
        With WordDoc.Content.Find 'date entrée en iepp enseignant
            .ClearFormatting()
            .Text = "dateiepp1"
            .Replacement.ClearFormatting()
            .Replacement.Text = Me.DateIEPP1.Text
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        'les date du document
        With WordDoc.Content.Find 'Année du document
            .ClearFormatting()
            .Text = "annee1"
            .Replacement.ClearFormatting()
            Dim DDate As String = Strings.Format(Now, "yyyy")
            .Replacement.Text = DDate
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        With WordDoc.Content.Find 'Année scolaire
            .ClearFormatting()
            .Text = "annee2"
            .Replacement.ClearFormatting()
            .Replacement.Text = AnnScolaire
            .Execute(Replace:=Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Word.WdFindWrap.wdFindContinue)
        End With
        L_Message.Text = "Champ Date modifié avec succès..."
        L_Message.Text = "Finalisation du processus pour la conversion du fichier en PDF... "
        'Conversion en PDF
        Complémentaire.ConvertionPDF(Docw, DestinationFichier)
        'Call ImprimerPDF(DestinationFichier, 2)
 
        L_Message.Text = ""
        n = 0
        Call Me.ViderChamp()
    Catch ex As Exception
        Dim rien = ex.Message()
    MsgBox("Veuillez redémarrer votre appareil. Une erreur non gérée a été repertoriée", vbExclamation)
    End Try
End Sub

Nom : vbnet1.jpg
Affichages : 210
Taille : 134,6 Ko

j'utilise VS 2022
Merci

Problème avec variable objet non définie [Débutant]

VB.NET

Mode arborescent

Discussions similaires

Partager

Partager