Ruban personnalisé ! custom ui editor ou UserForm

[Gabriel.leroux82]

Bonjour,

J'aimerais créer un nouvel onglet avec de nouveaux groupes pour permettre d'afficher mes commandes (sous forme de macros), le problème est que cet onglet apparait seulement sur ma session à moi, le document est accessible par plusieurs personnes qui ne n'ont pas cet nouvel onglet,

Est-ce c'est la limite et le but ou y'a t'il un autre moyen à faire pour que le nouveau ruban soit affiché pour tous les utilisateurs ? (c'est un seul fichier qui n'est pas en mode partage car cela crée des conflits avec les macros mais il est accessible par plusieurs personnes)

Merci d'avance
Gab

 

[jeanmi]

je te montre dans la dernière version comment faire

Bonjour @patricktoulon , bonjour à tous,

Ok, j'avais pas compris. Effectivement il y a dans le fichier un exemple de création barre faisant appel aux fichiers .ICO.
Le pb, lorsque je lance cette procédure j'ai un message " erreur d'execution 1004"
impossible de lire la propriété Insert de la classe Pictures.

cordialement

 

[patricktoulon]

Bonjour
ok quelle version d'office a tu ?
comment chez toi insert tu les image dans une feuille?

 

[patricktoulon]

ok dans le dernier fichier change la fonction getimage pour celle ci

Function getimage(fichier)
' With ActiveSheet.Pictures.Insert(fichier)
'.Copy
'.Delete
'End With
    With ActiveSheet.Shapes.AddPicture(fichier, True, True, 100, 100, 70, 70)
        .Copy
        .Delete
    End With
End Function

 

[jeanmi]

Bonjour
ok quelle version d'office a tu ?
comment chez toi insert tu les image dans une feuille?

office 2010.
par copier/coller ou glisser, mais j'ai peut-être pas compris le sens de ta question ?

 

[jeanmi]

ok dans le dernier fichier change la fonction getimage pour celle ci

Function getimage(fichier)
' With ActiveSheet.Pictures.Insert(fichier)
'.Copy
'.Delete
'End With
    With ActiveSheet.Shapes.AddPicture(fichier, True, True, 100, 100, 70, 70)
        .Copy
        .Delete
    End With
End Function

re,
ça marche nickel, avec la modif.
J'ai aussi essayé par erreur de lancement l'ancien fichier et ça fonctionne aussi !!!

Donc si j'ai bien compris, il faut mettre dans le même répertoire que le fichier excel, les .ico ?
donc si j'utilise le programme sur un autre PC, il n'y aura pas le ico ou ça ne fonctionnera pas ?

merci pour les réponses

cordialement

 

[patricktoulon]

re
a ben oui il faut que les fichiers images "ico" ou autres soit accessible
maintenant si ça te gene on peut coller les images dans (une feuille cachée par exempl)e et faire la même chose sans que l'on ai besoins de loader les images sur disque dur
tu veux un exemple ?

 

[jeanmi]

re
a ben oui il faut que les fichiers images "ico" ou autres soit accessible
maintenant si ça te gene on peut coller les images dans (une feuille cachée par exempl)e et faire la même chose sans que l'on ai besoins de loader les images sur disque dur
tu veux un exemple ?

re,

pas besoin d'exemple ,
merci beaucoup.

c'était juste pour mon plaisir, donc si sur mon pc je les vois ces beaux ico, je suit heureux, pour l'autre PC c'est pas grave du moment que les commendbar fonctionnent.

A plus pour de nouvelles aventures, et vraiment merci pour l'aide.

Cordialement

 

[patricktoulon]

re
dommage je te préparais un exemplaire avec
soit des icons perso
soit des icons buildt
soit des icons fabriqués avec des shapes (formes automatiques)(celle que je préfere puisque toute versions d'excel les a les shapes )

ravi d'avoir pu aider

 

[jeanmi]

re
dommage je te préparais un exemplaire avec
soit des icons perso
soit des icons buildt
soit des icons fabriqués avec des shapes (formes automatiques)(celle que je préfere puisque toute versions d'excel les a les shapes )

ravi d'avoir pu aider

re,

je voix que tu as plaisir à donner aux autres, cela est une grande qualité.
Ce sera avec plaisir de regarder et surement utiliserais tes conseilles.
j'attends donc tes exemplaires.
merci
cordialement

 

[patricktoulon]

re

tout se situe ici dans la macro
entre les ligne de trait( voir les commentaires)
met ce fichier dans le dossier ou se trouve tes icons
là j'ai laissé l'exemple avec des shapes

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
        '                   Avec une image perso!!!
        'getimage ThisWorkbook.Path & "\1.ico"' pour des images perso
        
        '           OU UN SHAPES (FORME AUTOMATIQUE)
        geticoshapes 19, vbRed    ' avec des shapes (formes automatiques)!!!
        bout.PasteFace
        
        '               ou un icon existant par son ID
        'bout.FaceId = 487    'le numero de l'icone que tu veux ici
        '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

 

[jeanmi]

Bonjour @patricktoulon , bonjour à tous,

je croix que je vais bien m'amuser avec toutes ces explications.
Là je vais demander de l'aide sur le forum sur une fonction d'import d'image / Word à partir d'Excel.
Merci A+
Cordialement