Discussion :

[jeromeRR]

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

[Philippe Tulliez]

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.

[jeromeRR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jeromeRR]

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

j'ai donc ajouté à mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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