Vba : "bloc end if sans if".... sauf que si
refcemad
Messages postés
43
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je ne comprends pas ce qui cloche là-dedans :
Ca me dit que j'ai un bloc End if sans bloc if.
Merci de vos explications.
Je ne comprends pas ce qui cloche là-dedans :
Sub endifsansif()
If [D45] = "Erreur" Then
Select Case MsgBox("Erreur", vbYesNo, "Imprimer et éditer ?")
Case vbYes
Chemin = "C:\Users\BlaBlaBla\"
Fichier = "CC_yes_" & [C16]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier & ".pdf"
Case vbNo
Chemin = "C:\Users\BlaBlaBla\"
Fichier = "CC_no_" & [C16]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier & ".pdf"
End If
End Sub
Ca me dit que j'ai un bloc End if sans bloc if.
Merci de vos explications.
