autre question :
Peut on en VBA sous word récupérer une connexion Internet Explorer déjà lancée ?
a+
Sylderon a écrit a écrit :
Il suffit de créer un nouveau répertoire dans le répertoire des modèles de Word et de créer au moins un modèle (si le répertoire est vide il n'apparait pas comme onglet).
Pour trouver le répertoire des modèles, Outils/Options/dossiers par défaut
A+
Sylderon
Il suffit de créer un nouveau répertoire dans le répertoire des modèles de Word et de créer au moins un modèle (si le répertoire est vide il n'apparait pas comme onglet).
Pour trouver le répertoire des modèles, Outils/Options/dossiers par défaut
A+
cmathieu
Merci pour les reponses apportées.
navarro
J'ai un peu chercher et je crois que c'est pas possible de rajouter un onglet
Styx0
La procédure ci dessous créé une nlle barre d'outil
et insère dedans 4 combos et bouton command (d'autre type de controle peuvent etre insérer)
Et enfin elle affecte une procédure à l'évenement OnAction de chaque élément
Code :
Public Sub CreationToolBar()
Set objTlb = CommandBars.Add("BarreRIG", msoBarTop, False)
Set cboEDT = objTlb.Controls.Add(msoControlDropdown)
cboEDT.Visible = True
Set cboETP = objTlb.Controls.Add(msoControlDropdown)
cboETP.Visible = True
cboETP.Width = 120
Set cmdInsETP = objTlb.Controls.Add(msoControlButton)
cmdInsETP.Visible = True
cmdInsETP.Style = msoButtonCaption
cmdInsETP.Caption = "{~"
cmdInsETP.TooltipText = "Insérer l'Etape"
Set cboOPR = objTlb.Controls.Add(msoControlDropdown)
cboOPR.Visible = True
cboOPR.Width = 140
Set cmdInsOPR = objTlb.Controls.Add(msoControlButton)
cmdInsOPR.Visible = True
cmdInsOPR.Style = msoButtonCaption
cmdInsOPR.Caption = "{¤"
cmdInsOPR.TooltipText = "Insérer l'Opération"
Set cboULT = objTlb.Controls.Add(msoControlDropdown)
cboULT.Visible = True
cboULT.Width = 140
Call Init_CBO ' remplit les combos à partir d'une base de donnée SQl Server , procédure non présente dans l'exemple
cboEDT.OnAction = "cboEDT_Change"
cboETP.OnAction = "cboETP_Change"
cboOPR.OnAction = "cboOPR_Change"
cboULT.OnAction = "cboULT_Change"
cmdInsETP.OnAction = "cmdInsETP_Click"
cmdInsOPR.OnAction = "cmdInsOPR_Click"
objTlb.Visible = True
End Sub
cmathieu
Oui, ça m'intéresseraitr beaucoup de voir ton code pour la barre d'outils.
Merci
Styx0 a écrit a écrit :
Lorsque je travaillais un peu sur le VBA de WORD, je n'ai pas réussie à modifier les menus de WORD, g du rajouter une barre de menu pour ajouter les fonctions utilisateurs
mais bon j'y ai pas passé bcp de temps ..si tu veux le code pour la barre d'outil demande
cmathieu
Je dois rajouter dans la boite de dialogue "Nouveau" (celle qui permet de sélectionner les modèles à utiliser), un onglet personnalisé dans lequel apparaîtrait mes propres modèles.
Je dois réellement passer, dans la mesure du possible par un nouvel onglet et non simplement ajouter mes nouveaux modèles dans un onglet déjà existant.
navarro a écrit a écrit :
Peut tu etre un peu plus precis?
Styx0
Lorsque je travaillais un peu sur le VBA de WORD, je n'ai pas réussie à modifier les menus de WORD, g du rajouter une barre de menu pour ajouter les fonctions utilisateurs
mais bon j'y ai pas passé bcp de temps ..si tu veux le code pour la barre d'outil demande
navarro
Peut tu etre un peu plus precis?
cmathieu
Peut on rajouter un onglet dans la boite de dialogue "nouveau" de word et si oui, comment?
