Probleme de compilation If - End If

Invité · 02/08/2016, 12h59

Bonjour,

J'ai un soucis avec ce bloc.

Le programme me signale que mon bloc n'est pas arrêté par un End If.

Message d'erreur :

Erreur de compilation :

Bloc If sans End If

Pourriez vous m'aider s'il vous plait, car cela ne me saute pas aux yeux.

Merci.

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
Sub Courrier_Word()
 
Dim mapp As Word.Application
Dim Mdoc As Word.Document
Dim Mchemindoc As String
Dim MRelance As String
 
 
'ChDrive "G"'
Mchemindoc = "\\amcristal.local\am\RedirectedFolders\f.nallet\Bureau\Docs\Publipostage\Macro Source\Model Lettre Publi\"
ChDir Mchemindoc
 
Set mapp = New Word.Application
 
If mZAE = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Pré-Relance.docx"
If mZE = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance.docx"
If mZE2 = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance2.docx"
Else
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice MED.docx"
 
End If
 
Set Mdoc = mapp.ActiveDocument
 
mapp.Visible = True 'Excel screen updating sans desactiver les msgbx utilisable que pdt pilotage
mapp.Options.ReplaceSelection = False 'Mode refrappe par defaut d'ou False pour desactiver
mapp.Selection.HomeKey unit:=wdStory 'positionnement haut doc
 
If mZAE = True Then
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Nomcli_AE"
            If MNomCli <> "0" Then mapp.Selection.TypeText Text:=MNomCli
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr1_AE"
            If MAdr1 <> "0" Then mapp.Selection.TypeText Text:=MAdr1
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr2_AE"
            If MAdr2 <> "0" Then mapp.Selection.TypeText Text:=MAdr2
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="CPCity_AE"
            If MCPCity <> "0" Then mapp.Selection.TypeText Text:=MCPCity
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Country_AE"
            If MCountry <> "0" Then mapp.Selection.TypeText Text:=MCountry
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Echeance_AE"
            If MdateEch <> "0" Then mapp.Selection.TypeText Text:=MdateEch
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Collector_AE"
            If MCollector <> "0" Then mapp.Selection.TypeText Text:=MCollector
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Tel_AE"
            If MTel <> "0" Then mapp.Selection.TypeText Text:=MTel
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Fax_AE"
            If MFax <> "0" Then mapp.Selection.TypeText Text:=MFax
 
If mZE = True Then
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Nomcli_E"
            If MNomCli <> "0" Then mapp.Selection.TypeText Text:=MNomCli
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr1_E"
            If MAdr1 <> "0" Then mapp.Selection.TypeText Text:=MAdr1
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr2_E"
            If MAdr2 <> "0" Then mapp.Selection.TypeText Text:=MAdr2
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="CPCity_E"
            If MCPCity <> "0" Then mapp.Selection.TypeText Text:=MCPCity
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Country_E"
            If MCountry <> "0" Then mapp.Selection.TypeText Text:=MCountry
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Collector_E"
            If MCollector <> "0" Then mapp.Selection.TypeText Text:=MCollector
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Tel_E"
            If MTel <> "0" Then mapp.Selection.TypeText Text:=MTel
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Fax_E"
            If MFax <> "0" Then mapp.Selection.TypeText Text:=MFax
 
If mZE2 = True Then
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Nomcli_E"
            If MNomCli <> "0" Then mapp.Selection.TypeText Text:=MNomCli
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr1_E"
            If MAdr1 <> "0" Then mapp.Selection.TypeText Text:=MAdr1
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr2_E"
            If MAdr2 <> "0" Then mapp.Selection.TypeText Text:=MAdr2
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="CPCity_E"
            If MCPCity <> "0" Then mapp.Selection.TypeText Text:=MCPCity
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Country_E"
            If MCountry <> "0" Then mapp.Selection.TypeText Text:=MCountry
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Collector_E"
            If MCollector <> "0" Then mapp.Selection.TypeText Text:=MCollector
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Tel_E"
            If MTel <> "0" Then mapp.Selection.TypeText Text:=MTel
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Fax_E"
            If MFax <> "0" Then mapp.Selection.TypeText Text:=MFax
 
Else
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Nomcli_E"
            If MNomCli <> "0" Then mapp.Selection.TypeText Text:=MNomCli
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr1_E"
            If MAdr1 <> "0" Then mapp.Selection.TypeText Text:=MAdr1
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr2_E"
            If MAdr2 <> "0" Then mapp.Selection.TypeText Text:=MAdr2
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="CPCity_E"
            If MCPCity <> "0" Then mapp.Selection.TypeText Text:=MCPCity
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Country_E"
            If MCountry <> "0" Then mapp.Selection.TypeText Text:=MCountry
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Collector_E"
            If MCollector <> "0" Then mapp.Selection.TypeText Text:=MCollector
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Tel_E"
            If MTel <> "0" Then mapp.Selection.TypeText Text:=MTel
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Fax_E"
            If MFax <> "0" Then mapp.Selection.TypeText Text:=MFax
 
End If
 
'si pas de variable rattaché = mapp.selection.typetext text:="blablabal"
 
    Mdoc.PrintOut
 
Mdoc.Close SaveChanges:=wdDoNotSaveChanges
 
'dans le cas de sauvegarde reseau Mdoc.saveas filename:= "G:\...
'Mdoc.Close
 
 
mapp.Quit 'necessité de fermé tous les docs avant de quitter.
 
'decharger la memoire
Set Mdoc = Nothing
Set mapp = Nothing
 
End Sub

**RyuAutodidacte** · 02/08/2016, 13h22

Bonjour,
Après le 1er If, les 2 suivants ne sont pas If mais ElseIf

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
Sub Courrier_Word()
 
Dim mapp As Word.Application
Dim Mdoc As Word.Document
Dim Mchemindoc As String
Dim MRelance As String
 
 
'ChDrive "G"'
Mchemindoc = "\\amcristal.local\am\RedirectedFolders\f.nallet\Bureau\Docs\Publipostage\Macro Source\Model Lettre Publi\"
ChDir Mchemindoc
 
Set mapp = New Word.Application
 
If mZAE = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Pré-Relance.docx"
ElseIf mZE = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance.docx"
ElseIf mZE2 = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance2.docx"
Else
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice MED.docx"
 
End If
 
…

il faut revoir ta gestion des If

Code :

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

1
2
3
4
5
6
7
If la_Condition then
   code
ElseIf la_Condition then
   code
Else
   Code
End if

Sur une ligne (déconseillé):

Code :

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

If la_Condition then code Else If la_Condition then code Else code

regardes bien les différences
voilà à toi de vérifier sur l'ensemble de ton code

Invité · 02/08/2016, 13h43

Bonjour,
je suis pas sur d'avoir tous compris,de plus j'ai pas tout regardé, mais il ne me semble pas utile d'utiliser de Elseif!

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
If mZAE = True Then mapp.Documents.Open Filename:=Mchemindoc & "Matrice Pré-Relance.docx"
If mZE = True Then mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance.docx"
If mZE2 = True Then
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice Relance2.docx"
Else
        mapp.Documents.Open Filename:=Mchemindoc & "Matrice MED.docx"
 
End If
 
Set Mdoc = mapp.ActiveDocument
 
mapp.Visible = True 'Excel screen updating sans desactiver les msgbx utilisable que pdt pilotage
mapp.Options.ReplaceSelection = False 'Mode refrappe par defaut d'ou False pour desactiver
mapp.Selection.HomeKey unit:=wdStory 'positionnement haut doc
 
If mZAE = True Then
        mapp.Selection.Goto what:=wdGoToBookmark, Name:="Nomcli_AE"
            If MNomCli <> "0" Then mapp.Selection.TypeText Text:=MNomCli: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr1_AE"
            If MAdr1 <> "0" Then mapp.Selection.TypeText Text:=MAdr1: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Adr2_AE"
            If MAdr2 <> "0" Then mapp.Selection.TypeText Text:=MAdr2: mapp.Selection.Goto what:=wdGoToBookmark, Name:="CPCity_AE"
            If MCPCity <> "0" Then mapp.Selection.TypeText Text:=MCPCity: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Country_AE"
            If MCountry <> "0" Then mapp.Selection.TypeText Text:=MCountry: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Echeance_AE"
            If MdateEch <> "0" Then mapp.Selection.TypeText Text:=MdateEch: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Collector_AE"
            If MCollector <> "0" Then mapp.Selection.TypeText Text:=MCollector: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Tel_AE"
            If MTel <> "0" Then mapp.Selection.TypeText Text:=MTel: mapp.Selection.Goto what:=wdGoToBookmark, Name:="Fax_AE"
            If MFax <> "0" Then mapp.Selection.TypeText Text:=MFax
End If

Invité · 02/08/2016, 14h02

Merci a vous pour vos réponses.

Il fallait bien remplacer les deux If par ElseIf.

Bonne journée.

Probleme de compilation If - End If

Macros et VBA Excel

Discussions similaires

Partager

Partager