'**************************************************************************************************************************
' Manipulation des Api avec ((ExecuteExcel4Macro))
' patricktoulon
' fonctionne en 32 comme en 64 bits
' syntaxe de codage:
' CALL (nom_dll, nom_fonction, chaîne_type, func_arguments1, ..., func_argumentsN)
'1° nom_dll - le nom de la DLL, qui contient la fonction souhaitée. Ce nom doit contenir le chemin d'accès complet si non enregistrée
' si la DLL ne se trouve pas dans votre dossier Windows, Système ou dans le dossier spécifié dans la variable d'environnement PATH.
'2° nom_fonction - nom de la fonction.
'3° type_string - chaîne de texte qui identifie le type de données de la valeur de retour et les types de données de tous les paramètres. Le premier caractère type_string définit la valeur de retour.
'4° func_arguments1, ..., func_argumentsN - paramètres de fonction. Leurs types doivent respecter type_string. Il peut être transmis jusqu'à 27 paramètres.
'Types de données pour type_string: argument(chaîne_type)
'B - nombre à virgule flottante de 8 octets (IEEE), transféré par valeur, type C double.
'C - Chaîne terminée par zéro (null) (longueur max. = 255 caractères), transférée par référence, type C char *
'F - Chaîne terminée par zéro (null) (longueur max. = 255 caractères), transférée par référence (modifier sur place) , Type C char *
'J - entier signé de 4 octets de large, transféré par valeur, type C long int
'P - structure de données OPER d'Excel, transféré par référence, type C OPER *
'R - structure de données XLOPER d'Excel, transféré par référence, type C XLOPER *
c'est pourtant ma marque de fabrique
?????????? quel attribut??
Oui, restant fidèle à ceci, j'assume et je pose la questionre
sérieux vous posez encore la question!!!???
Private Sub FormatDocToFile(ByVal Doc As MSXML2.DOMDocument, _
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 stmFormatted As ADODB.Stream
Dim wtrFormatted As MSXML2.MXXMLWriter
Set stmFormatted = New ADODB.Stream
With stmFormatted
.Open
.Type = 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'*********************************************Ajout et insertion d'une balise TAB************************************************
'tab
Private Sub btAddtab_Click()
If docXML Is Nothing Then MsgBox "créer dabords un new Custom ou loader un project": Exit Sub
Dim ids, nbtab&, lab$, Btab, ctrl
nbtab = docXML.getelementsbytagname("tab").Length
ids = "tab" & nbtab
lab = "onglet" & nbtab
Set Btab = docXML.createelement("tab"): Btab.setattribute "visible", "true": Btab.setattribute "id", ids: Btab.setattribute "label", "onglet" & nbtab
BtaBs.appendchild (Btab)
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then ctrl = ""
Next
actifelement = ids
visual
End Sub
Private Sub btInserttab_Click()
Dim ids, nbtab, lab$, Btab, B
If docXML Is Nothing Then MsgBox "il n'y a pas de projet chargé": Exit Sub
nbtab = docXML.getelementsbytagname("tab").Length
ids = "tab" & nbtab
lab = "onglet" & nbtab
Set Btab = docXML.createelement("tab"): Btab.setattribute "visible", "true": Btab.setattribute "id", ids: Btab.setattribute "label", lab
Set B = GetXElementsById(docXML, actifelement.Text)
If B Is Nothing Then MsgBox " veuillez sélectionner un element dans le visuel pour insérer": Exit Sub
B.ParentNode.InsertBefore Btab, B
If Btab.ParentNode.tagname <> "tabs" Then Btab.ParentNode.RemoveChild (Btab): MsgBox "on ne peut placer un onglet ici!!": Exit Sub
actifelement = ids
visual
End Sub
