XL 2010 Nouveau logo dans une Usf (RESOLU)

[misteryann]

Bonjour à toutes et tous.

Grace au forum, mon fichier de travail est presque abouti et plusieurs collègues sont intéressés .
Pour le coup j'aimerais leur faire un petit cadeau en leur permettant de personnaliser le logo des USF.

Le principe: lors de la première prise en main, renseignement du Data (ça, c'est bon) et choisir un nouveau logo qui s'affichera dans les USF (pas toutes car je souhaite qu'ils se rappellent d'où cela vient...).
La pièce jointe comprends un classeur exemple et une image (une de celle qui pourrait être choisi).

Merci à toutes et tous.
Cordialement

 

[Lone-wolf]

Bonjour misteryann

Ton fichier en retour. Toutes mes excuses, n'ayant pas fait attention tout de suite, j'ai enlevé ton image; mais je l'ai remplacé par une autre. Alors, une fois chargé l'image avec le 1er formulaire, le 2ème s'affiche, ensuite il faut cliquer sur le formulaire pour afficher le suivant. J'éspère que ça conviendra.

 

[Lone-wolf]

Re

Une autre version si tu veux.

 

[misteryann]

merci Lone wolf.

Mais le soucis, c'est que le logo n'est pas sauvegardé à la fermeture du fichier

 

[Lone-wolf]

Re

Désolé, jai pas pensé à ajouter ceci dans le premier formulaire.

Private Sub UserForm_Initialize()
Dim rep As String

Modifie le chemin et le nom
rep = "D:\Dossiers Excel\Formulaires\Menu Restaurant\romanoff.jpg"
Me.Image1.Picture = LoadPicture(rep)
End Sub

 

[misteryann]

Merci Lone wolf.
Problème non résolu.
Je rappelle le sujet: à la première prise en main, le nouvel utilisateur choisi un nouveau logo.
Ce logo sera sauvegardé et sera affiché dans certaines usf.

 

[Lone-wolf]

Bonjour mysteryann , le Forum

Ce n'est pas possible. Le seul moyen qu'elle reste sur l'usf, c'est de l'inserer par les propriétés.

 

[misteryann]

Merci Lone-Wolf.
Je vais donc me servir de tes post précédents pour charger le logo à chaque ouverture.
Bon week-end et bonne fête de Pâques.
Cordialement

 

[Lone-wolf]

Bonne fêtes de Paques à toi aussi.

 

[mapomme]

Bonjour à tous,

Un essai avec une feuille masquée "AutreLogo". Via le code elle est masquée par xlSheetHidden (dans le code de ThisWorkook) mais on pourrait la masquer par xlSheetVeryHidden pour que les utilisateurs ne puissent pas la visualiser. Le nouvau logo est sauvegardé dans cette feuille auxiliaire. On peut donc déplacer le fichier .xlsm ou déplacer/supprimer le fichier logo, le nouveau logo persistera.

La cellule F1 de la feuille masquée contient vrai ou faux suivant qu'on affiche ou non Userform1.
Remettre la cellule à VRAI permet de réafficher Userform1 à la prochaine ouverture du fichier.

edit : affecter à la propriété PictureSizeMode de chaque image la valeur fmPictureSizeModeZoom pour ne pas déformer les logos (voir fichier v1a).

 

[misteryann]

Bonjour MaPomme.

L'essayer, c'est l'adopter
J'ai transposé tout cela dans mon fichier de travail et cela marche parfaitement.

Un grand Merci.
Excel lente journée

 

[Lone-wolf]

Bonjour à tous

@ mapomme: il y a juste un petit souci. Comme tu empêche l'ouverture de Usf 1, les utilisateurs n'ont plus la possibilité de changé leur logo. Mieux vaut ajouter ceci dans les Usf 2 et 4

Private Sub UserForm_Terminate()
Sheets("AutreLogo").Range("F1") = True
End Sub

 

[mapomme]

Bonjour Lone-wolf ,

(...) @ mapomme: il y a juste un petit souci. Comme tu empêche l'ouverture de Usf 1, les utilisateurs n'ont plus la possibilité de changé leur logo. Mieux vaut ajouter ceci dans les Usf 2 et 4

Private Sub UserForm_Terminate()
Sheets("AutreLogo").Range("F1") = True
End Sub

Je cite misteryann:

Le principe: lors de la première prise en main, renseignement du Data (ça, c'est bon) et choisir un nouveau logo qui s'affichera dans les USF (pas toutes car je souhaite qu'ils se rappellent d'où cela vient...).

C'est à quoi j'ai répondu...

Si l'utilisateur veut par la suite changer de logo, il devra faire appel à l'auteur.

En fait, c'est tout simple:

• se mettre en mode éditeur VBA
• afficher le Userform1
• appuyer sur la touche de fonction F5 qui lancera le Userform1 sans tenir compte de la valeur Sheets("AutreLogo").Range("F1")

 

[Lone-wolf]

Re

Oui, 'ai comris la demande; mais c'était au cas où l'un des utilisateurs aurais voulu changer son logo.

 

[PMO2]

Bonjour à tous,
Avec retard, une approche utilisant Designer.Controls des VBComponents qui permet de rendre les nouvelles images persistantes après que le classeur ait été sauvegardé.