Je dois diffuser un document excel. ce document étant provisoire, je
souhaiterais que sur chaque page apparaissent en fond "provisoire".
je ne trouve pas l'option pour le faire. merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonjour Il faut mettre un filigrane http://dj.joss.free.fr/faq.htm#impfiligrane Daniel
FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Benoit1024" a écrit dans le message de news:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.
Bonjour
Il faut mettre un filigrane
http://dj.joss.free.fr/faq.htm#impfiligrane
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Benoit1024" <Benoit1024@discussions.microsoft.com> a écrit dans le message
de news: A72D4673-F651-4429-AB76-4CCAF63B76D0@microsoft.com...
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je
souhaiterais que sur chaque page apparaissent en fond "provisoire".
je ne trouve pas l'option pour le faire. merci de votre aide.
Bonjour Il faut mettre un filigrane http://dj.joss.free.fr/faq.htm#impfiligrane Daniel
FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Benoit1024" a écrit dans le message de news:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.
JB
Bonjour,
-Créer un texte avec Word art -Le transformer en image d'arrière-plan -Format/Feuille arrière plan
Sub ExportChampGif() [B4:E16].CopyPicture ActiveSheet.Paste Destination:=Range("A1") 'crée un shape Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:="Confidentiel", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
On 19 sep, 09:02, Benoit1024 wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.
Bonjour,
-Créer un texte avec Word art
-Le transformer en image d'arrière-plan
-Format/Feuille arrière plan
Sub ExportChampGif()
[B4:E16].CopyPicture
ActiveSheet.Paste Destination:=Range("A1") 'crée un shape
Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:="Confidentiel",
FilterName:="gif"
.Shapes(ActiveSheet.Shapes.Count).Delete
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End Sub
On 19 sep, 09:02, Benoit1024 <Benoit1...@discussions.microsoft.com>
wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je
souhaiterais que sur chaque page apparaissent en fond "provisoire".
je ne trouve pas l'option pour le faire. merci de votre aide.
Sub ExportChampGif() [B4:E16].CopyPicture ActiveSheet.Paste Destination:=Range("A1") 'crée un shape Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:="Confidentiel", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
On 19 sep, 09:02, Benoit1024 wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.
Benoit1024
merci de vos réponses. dommage qu'il faille passer par des macros, j'aurais aimé que cela soit plus simple.
Bonjour,
-Créer un texte avec Word art -Le transformer en image d'arrière-plan -Format/Feuille arrière plan
Sub ExportChampGif() [B4:E16].CopyPicture ActiveSheet.Paste Destination:=Range("A1") 'crée un shape Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:="Confidentiel", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
On 19 sep, 09:02, Benoit1024 wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.
merci de vos réponses.
dommage qu'il faille passer par des macros, j'aurais aimé que cela soit plus
simple.
Bonjour,
-Créer un texte avec Word art
-Le transformer en image d'arrière-plan
-Format/Feuille arrière plan
Sub ExportChampGif()
[B4:E16].CopyPicture
ActiveSheet.Paste Destination:=Range("A1") 'crée un shape
Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:="Confidentiel",
FilterName:="gif"
.Shapes(ActiveSheet.Shapes.Count).Delete
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End Sub
On 19 sep, 09:02, Benoit1024 <Benoit1...@discussions.microsoft.com>
wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je
souhaiterais que sur chaque page apparaissent en fond "provisoire".
je ne trouve pas l'option pour le faire. merci de votre aide.
Sub ExportChampGif() [B4:E16].CopyPicture ActiveSheet.Paste Destination:=Range("A1") 'crée un shape Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:="Confidentiel", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
On 19 sep, 09:02, Benoit1024 wrote:
bonjour,
Je dois diffuser un document excel. ce document étant provisoire, je souhaiterais que sur chaque page apparaissent en fond "provisoire". je ne trouve pas l'option pour le faire. merci de votre aide.