Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres en ce beau dimanche un petit aperçu de mon ribbon creator vba

patricktoulon

XLDnaute Barbatruc
bonjour a tous
juste un petit apercu de mon ribbon creator VBA version beta 1.0

la version avec litview ;la version sans listview et 2/3 projet commencé pour exemple
allez c'est parti les beta testeur
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
a oui mais je suis bien ennuyé on peut pas réécrire dessus il le projet est ouvert

pour les détails de ta version de customui tu va dans propriété de l'exe et l'onglet "details"

je te demande car j'en ai trouvé 4 version différentes
 

patricktoulon

XLDnaute Barbatruc
@Roblochon
c'est bon implanté mais en latebinding(pas de ref à coché
testé ca fonctionne
j'ai mes caractères accentués
VB:
Sub FormatDocToFile(ByVal Doc, ByVal FileName As String)
'Reformats the DOMDocument "Doc" into an ADODB.Stream
'and writes it to the specified file.
'
'Note the UTF-8 output never gets a BOM.  If we want one we
'have to write it here explicitly after opening the Stream.

'Dim rdrdom As MSXML2.SAXXMLReader
    Dim rdrdom As Object
    Set rdrdom = CreateObject("MSXML2.SAXXMLReader.6.0")

    'Dim wtrFormatted As MSXML2.MXXMLWriter
    'Set stmFormatted = New ADODB.Stream

    Dim stmFormatted As Object
    Set stmFormatted = CreateObject("ADODB.Stream")

    With stmFormatted
        .Open
        .Type = 1    'adTypeBinary
        Set wtrFormatted = New MSXML2.MXXMLWriter
        With wtrFormatted
            .omitXMLDeclaration = False
            .standalone = True
            .byteOrderMark = False    'If not set (even to False) then
            '.encoding is ignored.
            .Encoding = "utf-8"    'Even if .byteOrderMark = True
            'UTF-8 never gets a BOM.
            .indent = True
            .output = stmFormatted
            Set rdrdom = New MSXML2.SAXXMLReader
            With rdrdom
                Set .contentHandler = wtrFormatted
                Set .dtdHandler = wtrFormatted
                Set .errorHandler = wtrFormatted
                .putProperty "http://xml.org/sax/properties/lexical-handler", wtrFormatted
                .putProperty "http://xml.org/sax/properties/declaration-handler", wtrFormatted
                .Parse Doc
            End With
        End With
        .SaveToFile FileName
        .Close
    End With
End Sub
 

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Pour les ids modifiables, un simple test xPath suffit :

Dans la fonction je me préoccupe du langage de sélection car par défaut c'est 'XSLPattern' pour que vous puissiez tester cette fonction sans perturber le reste, le langage de sélection étant rétablit en fin de fonction

VB:
Private Function IdExiste(id As String) As Boolean
    Dim oldSelectionLangage As String
    Dim oNode As Object
    '
    oldSelectionLangage = docXML.GetProperty("SelectionLanguage")
    docXML.SetProperty "SelectionLanguage", "XPath"
    
    ' Sélectionnera le premier élément dont l'id est égale au paramètre id
    Set oNode = docXML.SelectNodes("//*[@id='" & id & "'][1]")
    
    IdExiste = oNode.Length > 0
    
    docXML.SetProperty "SelectionLanguage", oldSelectionLangage
End Function

Cordialement
 

Staple1600

XLDnaute Barbatruc
Re

=>Patrick
[titillement du dimanche aprés-midi]
Ca fonctionne tout aussi bien avec cet ajout
(et ca reste raccord avec ce qu'on peut lire en début de module)

Enrichi (BBcode):
Sub FormatDocToFile(ByVal Doc, ByVal FileName As String)
'procédure fournie par Roblochon un dimanche de mars
[...]
End Sub
[/titillement du dimanche après-midi]
 

patricktoulon

XLDnaute Barbatruc
re
j'ai déjà une fonction getElementsbyid ?????
tu ne l'a pas vu ?
au mieux pour contenter tout le monde je remet le textbox enable c'est pas la peine de tout re transformer
surtout que le xpath moi j'aim'po
 

patricktoulon

XLDnaute Barbatruc
je remet les deux a jours dans le post 1 toute a l'heure
je suis obligé de travailler avec open for output puis close et la fonction avec adobdstream a la fin car quand le fichier projet est loadé on peut pas réécrire par dessus le msgbox est clair sur ce point
bref j'ai mes accents
je l'avais déjà vu la fonction de roblochon j'en utilise une partie d'ailleurs dans ma fonction d'indentation mais bon pour les accents obligé de sauver le xml avec adobdstream
d'ailleurs je l'utilise uniquement pour le final unzip
je reviens dans 10 minutes je met les deux au propre
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
j'ajoute 2 boutons furtifs (ucase et propercase ) pour le label ils apparaissent au survol du textbox pour label et ils disparaissent au survol d'ailleurs
les mises a jours seront dispo dans la ressource quand elle sera validée
 

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
voila un project abouti
il sera décliné sous 3 versions
  1. avec listview pour le dialog imageMso
  2. sans listview pour le dialog Mso(methode usf responsif(ma marque de fabrique)
  3. avec listview et treeview celle ci utilise les deux( la plus rapide en terme de rafraichiisement d'apercu de l'arborescence)
visuel avec listview


visuel sans listview


et enfin le visuel de la version treeview listview



les 3 versions seront dispos dans la ressource que je publierais d'ici vendredi au plus tard
le temps de faire toute les manips pour chercher les éventuels bogs ou anticiper tout mauvaise manip éventuelle d'un utilisateur que je n'aurais pas imaginé
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…