filigrane

[andré]

Salut à tous,

Me revoilà avec une solution qui permet de mettre un filigrane sur (ou plutôt sous) une feuille Excel de façon à ce qu'il apparaisse à l'impression, de sorte aussi qu'on ne puisse en faire une photocopie en omettant de mentionner le nom de l'auteur (très intéressant pour des remises d'offre).

Mais le travail n'est pas fini, il faudrait pouvoir automatiser cette mise en place et adapter automatiquement le filigrane à la taille de la feuille, même lorsqu'on ajoute des lignes ou que le format d'un texte est modifié.

Je suis sur que plusieurs d'entre vous ont déjà des idées.

Je ne manque pas de remercier Quaisako qui m'a mis sur la voie (du bonheur).

André.

 

[STéphane]

bonjour


attention on peut facilement supprimer cela.

en guise de filigrane, on peut indiquer un arrière plan par le menu format


l'image qu'on fait apparaître via Format/Feuille/Arrière-plan n'est que pour le plaisir des yeux du travailleur de force face à son écran : elle n'est pas imprimable => FAUX, solution postée par Denny Campbell le 99-03-04 sur le forum de Microsoft.public.excel.programming

Sub ImpFiligrane()

'La Zone d'impression DOIT être préalablement définie

Dim ZoneImpr As Range
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

 

[andré]

Salut STéphane,

Cet objet n'est pas introduit via Format/Feuille/Arrière-plan, mais bien via Word Art : il s'imprime donc très bien en arrière-plan.
Fait l'essai, en couleur si tu laisses la couleur ocre, sinon modifie le texte en noir ou gris.
Pour ce qui de la protection, le but n'est pas de transmettre la feuille Excel mais un tirage : donc pas moyen de photocopier sans que l'auteur ne soit connu.
Pour ce qui est de la protection, il y a moyen de dévérouiller toutes les cellules, puis de protéger la feuille, l'objet Word Art étant dès lors protégé.

Au stade actuel de ma recherche, mon problème est de lier la dimension de l'objet Word Art à la dimension de la page, quelque soient les modifications que l'on apporte à cette page, puis de copier automatiqument cet objet sur toutes les pages d'une même feuille.

Je ne désespère pas (encore).

André.

 

[w36xb2w]

Re : Re: filigrane

Salut STéphane,

Cet objet n'est pas introduit via Format/Feuille/Arrière-plan, mais bien via Word Art : il s'imprime donc très bien en arrière-plan.
Fait l'essai, en couleur si tu laisses la couleur ocre, sinon modifie le texte en noir ou gris.
Pour ce qui de la protection, le but n'est pas de transmettre la feuille Excel mais un tirage : donc pas moyen de photocopier sans que l'auteur ne soit connu.
Pour ce qui est de la protection, il y a moyen de déverrouiller toutes les cellules, puis de protéger la feuille, l'objet Word Art étant dès lors protégé.

Au stade actuel de ma recherche, mon problème est de lier la dimension de l'objet Word Art à la dimension de la page, quelque soient les modifications que l'on apporte à cette page, puis de copier automatiquement cet objet sur toutes les pages d'une même feuille.

Je ne désespère pas (encore).

André.

Bonjour
Le même fichier sans macro avec image en fond ( insérée dans haut de page)
Download Copie de filigrane1 (2).xls from Sendspace.com - send big files the easy way

 

[BOISGONTIER]

Re : filigrane

Bonjour,

Arrière-plan tableau

JB