XL 2010 prob avec un scrip

sebbbbb

XLDnaute Impliqué
bonjour

le script ci-dessous me pose prob. je me doute bien que le prob correspond a la designation de l'onglet. Aussi ma question est : peut on désigner plusieurs noms de d'onglets avec la formule : "if activesheet.name ="

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = ("D1 AIRBUS, D1 E&S") Then
If Sheets("SSI").Range("A16").Value = "" Then
Cancel = True
MsgBox "ATTENTION " & vbLf & vbLf & _
"Impression autorisée seulement après confirmation que les points suivants ont été traités (cellule cochée dans L'ONGLET SSI) :" & vbLf & vbLf & _
"- Cocher Cellule A13 = déclaration Marpol déposée sur S-Wing" & vbLf & vbLf & _
"Pour la bonne transmission du dossier entre agent, la cellule ne doit être cochée que si le doc à bien été traité / transmis"

End If
End If
end sub

le script fonctionne bien si je mets seulement un nom d'onglet

merci
seb
 

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec