Avec le code que RGI t'as donné c'Est exactement ton problème qui est solutionné
En plus, si tu crée un bouton et y affecte la macro, tu pourra réutiliser dans n'importe quel document n'importe quand juste en cliquant sur le bouton
"Danielle" a écrit dans le message de news:
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je
veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention "Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ailleurs ??
Merci de votre aide Danielle
Trirème
Bonsoir Danielle As tu vérifié que ton imprimante ne prévoie pas cette option ? Les E...N (pour ne pas faire de pub :-) connaissent très souvent cette fonctionnalité. De plus, contrairement à la macro de RGI, tu auras la mention sur toutes les pages. Dans le case contraire, et passé l'aversion que peut provoquer le VBA, cette macro reste l'alternative.
Cordialement Trirème
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention "Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ailleurs ??
Merci de votre aide Danielle
Bonsoir Danielle
As tu vérifié que ton imprimante ne prévoie pas cette option ?
Les E...N (pour ne pas faire de pub :-) connaissent très souvent cette
fonctionnalité.
De plus, contrairement à la macro de RGI, tu auras la mention sur toutes
les pages.
Dans le case contraire, et passé l'aversion que peut provoquer le VBA,
cette macro reste l'alternative.
Cordialement
Trirème
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je
veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention
"Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ailleurs ??
Bonsoir Danielle As tu vérifié que ton imprimante ne prévoie pas cette option ? Les E...N (pour ne pas faire de pub :-) connaissent très souvent cette fonctionnalité. De plus, contrairement à la macro de RGI, tu auras la mention sur toutes les pages. Dans le case contraire, et passé l'aversion que peut provoquer le VBA, cette macro reste l'alternative.
Cordialement Trirème
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention "Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ailleurs ??
Merci de votre aide Danielle
JB
Dans la BO Dessin, insérer un objet WordArt puis clic droit/Format de l'objet Word Art Onglet Couleurs et traits.
JB
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention "Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ail leurs ??
Merci de votre aide Danielle
Dans la BO Dessin, insérer un objet WordArt puis clic droit/Format de
l'objet Word Art
Onglet Couleurs et traits.
JB
C'est bien gentil, mais auriez-vous quelque chose d'un peu plus simple.. Je
veux seulement ajouter cette mention comme un genre d'arrière-plan.
Merci !
Bonsoir
Cela peut-il faire ?
dans un module
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
RGI
Bonjour,
J'aimerais savoir quelle est la meilleur façon de mettre la mention
"Confidentiel" sur un document officiel fait avec Excel.
Y-a-t'il une façon de mettre cette mention en arrière plan ou ail leurs ??
