C'est bon j'ai trouvé. Il fallait juste ne pas faire de fautes a filigrane avec un seul n.
HéricK
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
HéricK
Bon décidement quand on veut aller trop vite ... Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela ne s'imprime pas ... Quelqu'un connait il un truc pour l'imprimer quand même ?
Merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Bon décidement quand on veut aller trop vite ...
Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela
ne s'imprime pas ...
Quelqu'un connait il un truc pour l'imprimer quand même ?
Merci
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Bon décidement quand on veut aller trop vite ... Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela ne s'imprime pas ... Quelqu'un connait il un truc pour l'imprimer quand même ?
Merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
rgi
bonjour
essaie ceci
Bonsoir
Comme ceci
Sub Filigrane() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _ 60#, msoFalse, msoFalse, 200, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.6 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -40 .ShapeRange.IncrementLeft -160 .ShapeRange.IncrementTop 100 End With End Sub
Salutations
Gilbert
"HéricK" a écrit dans le message de news:
Bonjour a tous,
Je n'arrive pas a trouver comment mettre en place un filigranne. Je dois imprimer plusieurs pages affichant en fond "Provisoire".
Merci HéricK
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
bonjour
essaie ceci
Bonsoir
Comme ceci
Sub Filigrane()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel",
"ARIAL", _
60#, msoFalse, msoFalse, 200, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.6
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -40
.ShapeRange.IncrementLeft -160
.ShapeRange.IncrementTop 100
End With
End Sub
Salutations
Gilbert
"HéricK" <eric.inutile.deporte@free.fr> a écrit dans le message de news:
mn.0aee7d5745d330b3.0@free.fr...
Bonjour a tous,
Je n'arrive pas a trouver comment mettre en place un filigranne. Je dois
imprimer plusieurs pages affichant en fond "Provisoire".
Merci
HéricK
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Sub Filigrane() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _ 60#, msoFalse, msoFalse, 200, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.6 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -40 .ShapeRange.IncrementLeft -160 .ShapeRange.IncrementTop 100 End With End Sub
Salutations
Gilbert
"HéricK" a écrit dans le message de news:
Bonjour a tous,
Je n'arrive pas a trouver comment mettre en place un filigranne. Je dois imprimer plusieurs pages affichant en fond "Provisoire".
Merci HéricK
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Trirème
Bonjour Hérick
Bien sûr ta question suppose que tu n'as pas cette fonctionnalité sur ton imprimante (ni sur celles de tes éventuels correspondants) comme c'est le cas pour certaines d'entre elles ?
Pour un nombre limité de pages j'insère à un endroit judicieux un dessin WordArt, sans remplissage (police), sans ombre, sans cadre, que je mets en arrière plan par rapport à d'autres objets déjà présents sur la feuille.
Je crois qu'on peut mettre des images en pied de page dans les dernières versions d'Excel.
Cordialement
Trirème
Bon décidement quand on veut aller trop vite ... Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela ne s'imprime pas ... Quelqu'un connait il un truc pour l'imprimer quand même ?
Merci
Bonjour Hérick
Bien sûr ta question suppose que tu n'as pas cette fonctionnalité sur
ton imprimante (ni sur celles de tes éventuels correspondants) comme
c'est le cas pour certaines d'entre elles ?
Pour un nombre limité de pages j'insère à un endroit judicieux un dessin
WordArt, sans remplissage (police), sans ombre, sans cadre, que je mets
en arrière plan par rapport à d'autres objets déjà présents sur la feuille.
Je crois qu'on peut mettre des images en pied de page dans les dernières
versions d'Excel.
Cordialement
Trirème
Bon décidement quand on veut aller trop vite ...
Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela ne
s'imprime pas ...
Quelqu'un connait il un truc pour l'imprimer quand même ?
Bien sûr ta question suppose que tu n'as pas cette fonctionnalité sur ton imprimante (ni sur celles de tes éventuels correspondants) comme c'est le cas pour certaines d'entre elles ?
Pour un nombre limité de pages j'insère à un endroit judicieux un dessin WordArt, sans remplissage (police), sans ombre, sans cadre, que je mets en arrière plan par rapport à d'autres objets déjà présents sur la feuille.
Je crois qu'on peut mettre des images en pied de page dans les dernières versions d'Excel.
Cordialement
Trirème
Bon décidement quand on veut aller trop vite ... Mon filligrane s'affiche bien, mais comme il est dit dans l'aide cela ne s'imprime pas ... Quelqu'un connait il un truc pour l'imprimer quand même ?