Ajouter un filigrane à Excel et code WBA correspondant, Excel VBA

Ajouter un filigrane à Excel et code WBA correspondant, Excel VBA

Ajouter un filigrane (ou une image en arrière-plan) à une feuille Excel n’est pas une fonction directement disponible via l’interface utilisateur, mais il est possible de le faire en utilisant une image et un peu de code VBA (Visual Basic for Applications). Voici les étapes pour ajouter un filigrane à une feuille Excel à l’aide de VBA :

Étape 1 : Préparer l’image du filigrane

1. Assurez-vous que l’image que vous souhaitez utiliser en tant que filigrane est prête et accessible sur votre ordinateur.

Étape 2 : Ajouter le code VBA

1. Ouvrez votre fichier Excel.
2. Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
3. Dans l’éditeur VBA, cliquez sur Insertion > Module pour insérer un nouveau module.
4. Copiez et collez le code suivant dans le module :

Sub AjouterFiligrane()
Dim ws As Worksheet
Dim img As Picture
Dim cheminImage As String
' Spécifiez le chemin complet de votre image (exemple : C:\Users\NomUtilisateur\Documents\filigrane.png)
cheminImage = "C:\Chemin\Vers\Votre\Image.png"
' Sélectionner la feuille active
Set ws = ActiveSheet
' Ajouter l'image comme filigrane (en arrière-plan)
Set img = ws.Pictures.Insert(cheminImage)
' Modifier les propriétés de l'image pour qu'elle soit en arrière-plan
With img
.ShapeRange.LockAspectRatio = msoFalse
.Width = ws.PageSetup.PageWidth
.Height = ws.PageSetup.PageHeight
.Top = 0
.Left = 0
.ZOrder msoSendToBack ' Envoyer l'image à l'arrière-plan
.TransparencyColor = RGB(255, 255, 255) ' Optionnel : rendre l'arrière-plan transparent si l'image en a
End With
End Sub

Étape 3 : Exécuter le code

1. Modifiez le chemin de l’image dans le code (cheminImage) pour qu’il corresponde à l’emplacement réel de votre image.
2. Fermez l’éditeur VBA en appuyant sur Alt + Q.
3. Pour exécuter le code, appuyez sur Alt + F8, sélectionnez AjouterFiligrane et cliquez sur Exécuter.
Explication du code :
• Ce code insère l’image spécifiée en arrière-plan de la feuille active et ajuste sa taille pour qu’elle couvre toute la feuille.
• La méthode ZOrder permet d’envoyer l’image derrière le contenu de la feuille pour qu’elle fonctionne comme un filigrane.
• L’option TransparencyColor est utilisée pour rendre l’arrière-plan de l’image transparent si nécessaire.

Étape 4 : Sauvegarder votre fichier

• Une fois l’image ajoutée en tant que filigrane, sauvegardez votre fichier Excel.

Remarque :
Ce filigrane n’est visible que sur l’affichage de la feuille dans Excel et ne sera pas imprimé à moins de modifier la configuration d’impression (comme dans les en-têtes et pieds de page). Si vous souhaitez que le filigrane apparaisse également lors de l’impression, vous pouvez l’ajouter comme image dans les paramètres de l’en-tête ou du pied de page.