imprimer avec filigrame "DUPLICATA"

[janick]

Bonjour,

Je souhaiterais connaitre les codes pour [imprimer la feuille active avec une boite question avec ou sans filigrame "DUPLICATA"]
merci de votre aide

 

[Excel-lent]

Re : imprimer avec filigrame "DUPLICATA"

Bonjour Janick,

Si tu copie cette macro dans "module", elle fera ce que tu viens de demander

Sub Duplicata()
' Excel-lent le 25/09/07

Dim Réponse As Integer

Réponse = MsgBox("Il faut mettre le filigrame 'DUPLICATA' ?", vbYesNo)

If Réponse = 6 Then
       ActiveSheet.Shapes.AddLabel(msoTextOrientation[B][COLOR="Blue"]Horizontal[/COLOR][/B], 92.25, 327#, 0# _
           , 0#).Select
       Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue
       Selection.Characters.Text = "D U P L I C A T A"
       Selection.ShapeRange.ZOrder msoSendToBack
       With Selection.Characters(Start:=1, Length:=17).Font
           .FontStyle = "Gras"
           .Size = 36
           .ColorIndex = 15
       End With
   End If
Range("A1").Select
End Sub

Il ne te reste plus qu'à l'affecter à un raccourci clavier, ou à un(des) bouton(s), ou à ...

Si tu le souhaites, tu peux remplacer : Horizontal par Vertical

Bonne continuation