Sub Add_AddIn() 'version Mac (peut être PC aussi pouvez vous confirmer SVP)
Dim addInPath As String
addInPath = "MonChemin/TEST.xlam"
AddIns.Add addInPath
AddIns("TEST").Installed = True '
End Sub
a ben ça dépends si tu le sent mieux en dezipant pourquoi pasC'est ok maintenant ...
PS : Si j'ai bien compris le fichier zip faut jamais le dézipper mais aller à l'intérieur ??
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="tab-0" label="mes moutons et mon ane ">
<group id="group-0" label="les voici">
<button id="button_0" onAction="mouton_1_click" label="mouton 1" image="Image0" size="large"/>
<separator id="sep_1"/>
<button id="button_1" onAction="mouton_2_click" label="mouton 2" image="Image1" size="large"/>
<separator id="sep_2"/>
<button id="button_2" onAction="mouton_3_click" label="mouton 3" image="Image2" size="large"/>
<separator id="sep_3"/>
<button id="button_3" onAction="bourico_click" label="bourico" image="Image3" size="large"/>
</group>
<group id="group_2" label="la ils sont en menu ">
<menu id="menu_0" label="menuX_0">
<button id="button_4" label="mouton 1" onAction="mouton_1_click" image="Image4"/>
<button id="button_5" label="mouton 2" onAction="mouton_2_click" image="Image5"/>
<button id="button_6" label="mouton 3" onAction="mouton_3_click" image="Image6"/>
<button id="button_7" label="mon ane " onAction="mon_ane_click" image="Image7"/>
</menu>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
re
bon ben j ai perdu ryu
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI>
<ribbon startFromScratch="false">
<tabs>
<tab visible="true" label="onglet0">
<group id="group_1" >
<button id="button_0" imageMso="MacroPlay"/>
<button onAction="button_1_Click" imageMso="WatchWindow"/>
<button id="button_2" onAction="button_2_Click" />
<button onAction="button_3_Click" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
Et voilàBonjour ryu
bon ben ça semble correct
donc on peut considérer que pour faire un ribbon ( mano mano) avec des icons office excel tu sais où vont les fichiers xml
tu l'a bien compris les attributs de base des boutons sont
on verra pour les autres attributs plus tard
- id : (qui doivent être absolument unique!!)un doublon et c'est fini le ruban ne fonctionne pas
- label: (facultatif !!!c'est le texte du bouton)
- imageMso: (icon)
- onaction : (nom de la macro affectée en callback)
- size: (large ou small (le small est facultatif puisque considéré par defaut ))
voici un xml ajoute les attributs manquants y compris pour la balise customUI et fait moi un fichiers avec les deux customUI et macro callback
VB:<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI> <ribbon startFromScratch="false"> <tabs> <tab visible="true" label="onglet0"> <group id="group_1" > <button id="button_0" imageMso="MacroPlay"/> <button onAction="button_1_Click" imageMso="WatchWindow"/> <button id="button_2" onAction="button_2_Click" /> <button onAction="button_3_Click" /> </group> </tab> </tabs> </ribbon> </customUI>
ensuite on va passer aux autre controls et groupe de controls
bon exercice
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="tab-0" label="onglet0">
<group id="group-0" label="box vertical">
<box id="boxV_0" boxStyle="vertical">
<button id="button_0" label="blablabla" onAction="blablabla_click" imageMso="Lock"/>
<button id="button_1" label="blablablablabla" onAction="blablablablabla_click" imageMso="SheetDelete"/>
<button id="button_2" label="blabla" onAction="blabla_click" imageMso="HeaderFooterFilePathInsert"/>
</box>
<separator id="sep_1"/>
<separator id="sep_2"/>
<box id="boxV_1" boxStyle="vertical">
<button id="button_3" onAction="button_3_Click" imageMso="ActiveXRadioButton"/>
<button id="button_4" onAction="button_4_Click" imageMso="RecolorColorPicker"/>
<button id="button_5" onAction="button_5_Click" imageMso="WindowRestore"/>
</box>
</group>
<group id="group-1" label="box horizontal sans texte">
<box id="boxH_2" boxStyle="horizontal">
<button id="button_6" onAction="button_6_Click" imageMso="SendCopySendToMailRecipient"/>
<button id="button_7" onAction="button_7_Click" imageMso="XmlExpansionPacksExcel"/>
<button id="button_8" onAction="button_8_Click" imageMso="UpgradeWorkbook"/>
<button id="button_9" onAction="button_9_Click" imageMso="MacroRecord"/>
</box>
</group>
<group id="group_3" label="box horizontal avec texte">
<box id="boxH_3" boxStyle="horizontal">
<button id="button_10" label="boutonX_10" onAction="boutonX_10_click" imageMso="FileCheckOutDiscard"/>
<button id="button_11" label="boutonX_11" onAction="boutonX_11_click" imageMso="TableConvertToRange"/>
<button id="button_12" label="boutonX_12" onAction="boutonX_12_click" imageMso="GetExternalDataFromAccess"/>
<button id="button_13" label="boutonX_13" onAction="boutonX_13_click" imageMso="GetExternalDataFromWeb"/>
</box>
</group>
</tab>
</tabs>
</ribbon>
</customUI>