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
Partager