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 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 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
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
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

VBA : Range avec références variables..

VBA erreur 1004

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

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

Discussions similaires

Newsletters