CreatorRibbonX ImageMso 10.0 Ten Reforged 10.2

[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