Vba : "bloc end if sans if".... sauf que si
refcemad
Messages postés
39
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- End if sans bloc if
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
