Rapport de message :*
 

Re: changement d'un logo selon la langue choisie dans mon fichier

Titre du sujet : Re: changement d'un logo selon la langue choisie dans mon fichier
par myDearFriend! le 04/10/2012 00:12:01

Bonsoir chanta,

En pièce jointe, peut-être une façon simple de répondre à ton besoin.

J'ai appliqué le moyen le plus facile à mettre en oeuvre :
  1. Stocker sur le disque dur 2 images (une pour le français, l'autre pour l'anglais) dans le même répertoire que ton classeur (décompresser le contenu du Zip en pièce jointe dans un même répertoire).
  2. Créer un module de code Standard (ex: Module 1) et copier ce simple code VBA dedans :
Option Explicit

Sub ChangeLogo()
Dim N As Byte
    N = Sheets("Begin here").Range("Langue").Value
    Sheets("VEAL").PageSetup.LeftHeaderPicture.Filename = ThisWorkbook.Path & "" & IIf(N = 1, "francais.jpg", "anglais.jpg")
End Sub
  1. Affecter cette macro aux OptionButtons "Français" et "English" de ta feuille "Begin here".

L'activation de ces OptionButtons entraine le changement de logo correspondant dans l'entête de ta feuille "VEAL".

En espérant que ça puisse t'aider...

Cordialement,