Bonjour chers développeurs,

SVP j'ai un problème qui me gène beaucoup et je ne sais pas comment le résoudre

Bon , j'ai voulu ajouter une condition avant l'enregistrement et l'impression de deux feuilles en Excel :

Si la case B5 est vide alors afficher un msg box
else
imprimer et enregistrer.

Le code fonctionne bien sans condition

mais apparemment j'ai mal placé la condition if parcequ'on m'affiche un message en disant : Bloc If sans End if


voilà le code :
Code vba : 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
 
Option Explicit
 
Sub Imprimer_5SProd()
 
    Dim Ar(1) As String
    Dim sDate As String
    If Sheets("5SProd").Range("B5").Value = "" Then
    MsgBox ("La cellule de la zone à auditer est vide!")
    Else
    Application.ScreenUpdating = False
    Sheets("GraphiqueIlot").Visible = True
 
 
 
    sDate = Format(Now, "dd mm yyyy") 'Format(Now, "dd mmmm yyyy")
    Ar(0) = "5SProd"
    Ar(1) = "GraphiqueIlot"
 
     Sheets(Array(Ar(0), Ar(1))).Select
 
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:= _
            "Z:\Amélioration continue\Chantiers\" & "\" & Sheets("5SProd").Range("B5") & "_" & sDate & ".pdf", _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=True
 
 
    Sheets("GraphiqueIlot").Visible = False
   End If
End Sub


Merci