CreatorRibbonX ImageMso V 11 Reloaded

[patricktoulon]

bonsoir a tous désolé pour le retard mais j"ai pas eu le temps de tout recompiler la10.3 aura un peu de retard ,je suis sur un autre gros projet
d'ici quelques jours j'envoie la10.3

 

[janakka]

Bonjour j'ai un message d'erreur quand je veux créer un modèle fichier XL. Avez vous deja eu ce message ?

 

[patricktoulon]

Bonjour
cette erreur vient tout simplement de win 11 et 365 qui a durci l'UAC
je suis en train de palier au problème
selon le travail que vous avez a faire vous pouvez aller dans l'historique et choisir une version plus ancienne la 8 par exemple
il y a moins d'options mais elle est frendly avec win11

 

[janakka]

Bonjour
cette erreur vient tout simplement de win 11 et 365 qui a durci l'UAC
je suis en train de palier au problème
selon le travail que vous avez a faire vous pouvez aller dans l'historique et choisir une version plus ancienne la 8 par exemple
il y a moins d'options mais elle est frendly avec win11

Merci ca fonctionne tres bien avec la version 8. Je ne veux pas abuser je voudrai un bouton qui ouvre ou un onglet (ou feuille) determiné.

J'essaye de découvrir votre application. Je suis un parfait novice

 

[patricktoulon]

click 2 fois sur le petit bouton avec le dessin de la souris tu devrais avoir Balance_N_1_Click

enregistre le projet
et creé un fichier xl
ensuite tu va dans vba du fichier sample.xlsm dans le dossier du projet
et dans le module callback , dans l'event Balance_N_1_Click ,tu active n'importe quelle feuille
du genre sheets("trucbidule").activate
Terminé
j'ai quand même fait d'innombrables video toute accessible dans la chaine de youtube CreatorRibbonX
il serait opportun de regarder au moins les bases ouvrir un projet ajouter un premier bouton etcc.. les vidéos sont faites pour les débutants au début

 

[janakka]

click 2 fois sur le petit bouton avec le dessin de la souris tu devrais avoir Balance_N_1_ClickRegarde la pièce jointe 1229134

enregistre le projet
et creé un fichier xl
ensuite tu va dans vba du fichier sample.xlsm dans le dossier du projet
et dans le module callback , dans l'event Balance_N_1_Click ,tu active n'importe quelle feuille
du genre sheets("trucbidule").activate
Terminé
j'ai quand même fait d'innombrables video toute accessible dans la chaine de youtube CreatorRibbonX
il serait opportun de regarder au moins les bases ouvrir un projet ajouter un premier bouton etcc.. les vidéos sont faites pour les débutants au début

Merci Patrick. C'est ce que je comptait faire. Je vairs étudier attentivement toutes tes videos

 

[nullosse]

Bonjour j'ai un message d'erreur quand je veux créer un modèle fichier XL. Avez vous deja eu ce message ?

Regarde la pièce jointe 1229126

Salut,
moi aussi j'ai le même message en excel 2021 , Windows 11 . Cela me rappelle le post #522 : je donne une explication en #524. Patricktoulon vérifie que dans ton code tu n'as pas ce type de code.
Nullosse

 

[patricktoulon]

Bonjour à tout les deux
re je suis en train de retravailler avec l'uac mais j'ai découvert le pot aux roses
je pense que ca mérite une discussion dans le forum

 

[nullosse]

Excuses-moi patricktoulon, j'ai dû déplombé ton code VBA pour voir d'où venez le message d'erreur et cela confirme ce que je disait dans le post #524 :

VBComp.CodeModule.CountOfLines vaut 0 au moment de l'erreur.
Pour la protection du code VBA une solution à explorer si le classeur à protéger n'est jamais réécrit : La signature numérique. Si quelqu'un change quelque chose dans le classeur, normalement il va y avoir des difficultés à l'ouvrir.

 

[patricktoulon]

merci @nullosse
finalement je vais faire le teste simplement sur countofflines car la le tests considère qu'il y a des lignes directement
mais ce n'est pas le truc le plus ennuyant
je garde en tête ce truc a corrigé
j’aurais préféré ton message en MP quand même 🤣
je corrige ça tout a l'heure

 

[patricktoulon]

correction:

VBComp.Name = nm
             With VBComp.CodeModule
                x = .CountOfLines
               If x = 0 Then optEx = "Option Explicit" & vbCrLf
               .InsertLines x + 1, optEx & prfX & CodXCallback 'Replace(CodXCallback, vbLf & vbLf & vbLf, "")
            End With

 

[patricktoulon]

patricktoulon a mis à jour CreatorRibbonX ImageMso 10.0 Ten Reforged avec une nouvelle entrée de mise à jour:

CreatorRibbonX ImageMso

Bonjour à tous
la voici enfin la mise a jour version 11
les problèmes d'accès aux dossiers fichiers avec winn 11/365 ont été corrigés
ajout de la gestion de la balise "commands"
ajout de la possibilité de loader un xml customUI valide
l'inport et export officeUI se fait par une boite de dialogue pour ceux qui ont le fichier Excel.officeui ailleurs que l'emplacement classique notamment pour certaines versions office Entreprise

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

je vous souhaite une...

Lire le reste de cette entrée de mise à jour...

 

[patricktoulon]

Bonjour a tous
La version 12 prévue pour la mie mai ,vous réservera des surprises encore
Toujours plus loin et plus profond dans le rebuild du customUI
Le CreatorRibbonX ajoute a son Arc le rebuild des menu Contextuels qui ne sont plus accessibles via Commandbars depuis 2013
il ajoute a son Arc aussi les controls sans Callback
le correctif enlarge pour les balises "control" enfin accessible(converti aussi automatiquement lors de l'import OfficeUI)
et accessible par son input en création
et bien d'autres surprises

Le tout toujours sans coder une seule ligne de code xml ou vba
et ce sera la dernier version en blue concept car je n'ai plus de place LOL

les version qui suivront (à partir de la 13) auront un interface qui prend tout l'ecran
avec des menus dépliants
car j'ai encore beaucoup de choses a mettre
ces versions proposeront aussi des exemples tout près de base xml de ruban
interface en cours de conception
Bref du boulot en perspective

 

[DéDé62]

Bonjour a tous
La version 12 prévue pour la mie mai ,vous réservera des surprises encore
Toujours plus loin et plus profond dans le rebuild du customUI
Le CreatorRibbonX ajoute a son Arc le rebuild des menu Contextuels qui ne sont plus accessibles via Commandbars depuis 2013
il ajoute a son Arc aussi les controls sans Callback
le correctif enlarge pour les balises "control" enfin accessible(converti aussi automatiquement lors de l'import OfficeUI)
et accessible par son input en création
et bien d'autres surprises

Le tout toujours sans coder une seule ligne de code xml ou vba
et ce sera la dernier version en blue concept car je n'ai plus de place LOL

les version qui suivront (à partir de la 13) auront un interface qui prend tout l'ecran
avec des menus dépliants
car j'ai encore beaucoup de choses a mettre
ces versions proposeront aussi des exemples tout près de base xml de ruban
interface en cours de conception
Bref du boulot en perspective

Bonjour Patrick,
j'y verrai bien le rajout d'un bouton "Fermer les visuels Ruban" car il m'arrive fréquemment d'oublier de fermer mes différents essais de visuel et la simple fermeture du CreatorRibbonX ne le propose pas car ils sont des instances secondaires d'Excel.

 

[patricktoulon]

bonjour @DéDé62

'collection fonction WMI patricktoulon
'fermer seulement les instances d'exel  crées par vba
Sub FermerAutresInstancesExcel()
    Dim objWMI As Object, col As Object, obj As Object, pidMain As Long, cmdL
    Set objWMI = GetObject("winmgmts:")
    Set col = objWMI.ExecQuery("Select * From Win32_Process Where Name='EXCEL.EXE'")
    For Each obj In col
        cmdL = LCase(obj.commandline)
       If InStr(1, cmdL, "automation", vbTextCompare) > 0 Or InStr(1, cmdL, "-embedding", vbTextCompare) > 0 Then
            obj.Terminate
        End If
    Next obj
End Sub

je l'ajouterais dans la V12 appelée dans le QueryClose du userform