Vba : "bloc end if sans if".... sauf que si

Fermé

refcemad Messages postés 39 Date d'inscription mercredi 12 janvier 2011 Statut Membre Dernière intervention 10 mai 2018 - 23 oct. 2015 à 19:57
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 - 23 oct. 2015 à 20:43

Bonjour,

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
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
23 oct. 2015 à 20:43

Bonjour

Il te manque un End Select avant le End If

Cdlmnt

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel