Bloquer un bouton macro

Bonjour,
Je souhaiterai bloquer l'utilisation d'un bouton (lançant une macro) sur une feuille nommée,"........." . En effet ce bouton me provoque une impression pdf , or je ne le souhaite pas sur ma feuille "type" car en fait je veux pouvoir le faire sur d'autres feuilles.
Je souhaite créer une condition du style si "activesheet" est le nom "......." alors msgbox " pas possible ici" et je sors de ma macro sinon je continu ma macro (l'impression qui marche deja).

En vous remerciant par avance de vos éclaircissement

Bonjour,
De quel type de bouton parles-tu ?
Un bouton dans un UserForm ?
Un bouton sur une feuille contrôle formulaire ou ActiveX ?
Tu évoques aussi un msgbox or celui-ci n'est pas un bouton
Un bouton ActiveX déclenche une procédure événementielle de la feuille hôte, le bouton formulaire peut appeler la procédure d'un module.
Il serait important d'être plus explicite.

Oui désolé c'est un bouton userform qui me lance ma macro d'impression pdf.
Je veux juste empecher l'impression sous une fenêtre bien particulière . >Voici la macro je veux jsute avant ajouter l'interdiction du style si la fenetre active est celle nommée "feuille 1" alors on sort de la macro sinon on poursuit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub impress_pdf()     With ActiveSheet On Error Resume Next .Name = .Range("L3") ' If Err.Number <> 0 Then MsgBox ("Nom invalide") ' Exit Sub 's End If End With Dim i As Long Application.ScreenUpdating = False On Error Resume Next 'MkDir "c:\mesdocuments" For i = 1 To 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\.....\......\" & Sheets(i).Name & ".pdf" Next i Sheets(1).Select Application.ScreenUpdating = True MsgBox ("La facture " & Sheet.Name & " PDF viennent d'être créée et est disponnible dans le répertoire C:\mesdocuments\.....") End Sub

---

en tout cas merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub impress_pdf()   With ActiveSheet If .Name <> "Feuil1" Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\.....\......\" & .Name & ".pdf" MsgBox "La facture " & .Name & " PDF viennent d'être créée et est disponnible dans le répertoire C:\mesdocuments\....." End If End With End Sub

---

Merci beaucoup cette réponse m'a mis sur la voie :ccool:

j'ai donc ajouté à mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub impress_pdf()     With ActiveSheet On Error Resume Next If .Name = ("modele") Then MsgBox ("impossible ici") Exit Sub End If   .Name = .Range("L3") If Err.Number <> 0 Then MsgBox ("Nom invalide")

---

C'était si simple !!! suis pas un expert je modifie les codes

encore merci