enregistrement doc sans macro

**Heureux-oli** · 01/04/2008, 20h13

Il te demande de sauvegarder ton modèle ??

Lors de l'ouverture, tu as bien un nouveau document, quelles sont les modifs que tu fais dans ton modèle ?

tu peux toujours essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Documents("MonModèle.dotm").Saved = True

**battit64** · 01/04/2008, 20h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Document_Close()
Documents("REP.dotm").Saved = True
 
End Sub

je fais ça et ça me met un message d'erreur.
Je comprends pas pourquoi il me demande d'ecraser le .dotm alors que je ne fais pas de changement sauf dans le document1 qui se crée
est ce parceque je crée une barre dans le modele?

**battit64** · 01/04/2008, 20h19

voila ce que je fais dans le thisdocument de mon modele dotm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Option Explicit
Public vbouton_valid, vBarrePages, vbouton_changer
 
'************************
'* Création de la barre *
'************************
Sub CréerBarre()
 
SupprBarre
 
 
'* Création de la barre
Set vBarrePages = CommandBars.Add(Name:="Affichettes", Temporary:=True)
Set vbouton_valid = vBarrePages.Controls.Add(msoControlButton)
Set vbouton_changer = vBarrePages.Controls.Add(msoControlButton)
With vbouton_valid
.Style = msoButtonCaption
.Caption = "Valider Affiche (Ctrl+Alt+V)"
.OnAction = "valider"
.Visible = True
End With
 
With vbouton_changer
.Style = msoButtonCaption
.Caption = "Changer Edition (Ctrl+Alt+C)"
.OnAction = "changer"
.Visible = True
End With
 
vBarrePages.Visible = True
 
End Sub
'***************************
'* Suppression de la barre *
'***************************
Sub SupprBarre()
On Error Resume Next
CommandBars("Pages").Delete
End Sub
 
 
Sub init_doc()
Dim police As String
Dim taille As String
 
police = "Arial"
taille = "100"
Selection.Font.Name = police
Selection.Font.Bold = True
Selection.Font.Size = taille
Selection.Font.Color = wdColorBlack
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
 
 
 
Sub Valider()
UserForm1.Show
End Sub
 
 
Sub changer()
UserForm2.Show
End Sub
 
Private Sub Document_Close()
Documents("REP.dotm").Saved = True
 
End Sub
 
Private Sub Document_New()
'
CréerBarre
Application.DisplayAlerts = False
'initialisation des parametres au démarrage
init_doc
UserForm2.Show
End Sub

**battit64** · 01/04/2008, 20h21

oli je crois que c'est toi le modérateur pourras tu supprimer le nom de mon entreprise dans le code......oups

**Heureux-oli** · 01/04/2008, 20h24

Envoyé par battit64

oli je crois que c'est toi le modérateur pourras tu supprimer le nom de mon entreprise dans le code......oups

Je l'ai mis en gras !!

Tu peux modifier ou supprimer tes messages comme bon te semble !
Heureusement lol

**Heureux-oli** · 01/04/2008, 20h26

Pour répondre à ta question, c'est bien à cause de la création, de la barre d'outils.

Normalement, tu n'est plus obligé de la créer, le fait de l'intégrer au modèle suffit.
Elle sera visible pour tous les documents issus du modèle, mais pas pour les autres documents.

**battit64** · 01/04/2008, 20h29

C'est ce que je veux pouvoir l'integrer juste pour les doc issue de mon modele.Comment fais t'on alors pour la charger dans mon modele et eviter qu'il me demande un enregistré sous de mon dotm

**Heureux-oli** · 01/04/2008, 20h43

Ton modèle est un dotm, je pense.

Tu peux faire un vrai travail de pro pour ajouter un véritable onglet à ton modèle.

**Heureux-oli** · 01/04/2008, 20h49

Créer un fichier xml pour personnaliser le ruban.

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="Mon Onglet">
        <group id="SampleGroup" label="Mon groupe">
          <button id="Button1" label="Mon premier bouton" size="large" onAction="ThisDocument.LeNomDuneMacro" />
        </group >
      </tab>
    </tabs>
  </ribbon>
</customUI>

Ce fichier doit être sauvegardé avec le nom suivant : CustomUI.xml

**Heureux-oli** · 01/04/2008, 21h06

Ensuite
Modifier l'extension du fichier dotm par zip, tout extraire dans un répertoire vide de ton disque dur.

Le fichier CustomUI.xml doit se trouver dans un répertoire CustomUI que tu va créer

Tu modifies le .Rel pour qu'il soit comme ceci

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
	<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
	<Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
	<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="word/document.xml"/>
	<Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml" Id="customUIRelID"/>
</Relationships>

Tu selectionnes tout le contenu de ton répertoire et tu fais un fichier Zip avec le tout.
Tu change l'extension de ton zip en dotm et ut obtiens ceci

**battit64** · 01/04/2008, 21h26

merci bcq..je vais essayer

**battit64** · 01/04/2008, 21h59

j'ai essayé sur mon fichier et ça marche pas pourtant j'ai copié t'on .rels et essayé avec ton CustomUI.xml et le modele ne s'ouvre pas....ci joint mon modele si tu arrive

**battit64** · 01/04/2008, 22h03

http://battit64.free.fr/REP2.rar

**Heureux-oli** · 01/04/2008, 22h29

J'ai pu obtenir l'onglet, mais je rencontre d'autres problèmes, et il se fait tard, je mets quand même ce que j'ai obtenu.

**battit64** · 01/04/2008, 22h59

j'ai reussi finalement meme a crée deux boutons, par contre une autre question j'ai essayé de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="Affiches_PP">
        <group id="SampleGroup" label="Configuration">
          <button id="Button1" label="Valider Affiche" size="large" onAction="ThisDocument.Valider()" />
	  <button id="Button2" label="Changer Edition" size="large" onAction="ThisDocument.changer()" />
        </group >
      </tab>
    </tabs>
  </ribbon>
</customUI>

leux deux boutons me mette un message d'erreur la macro est introuvable ou a été désactivé à cause de vos parametre de securité des macros pourtant tou est ok
mes macros dans mon thisdocument sont:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub Valider()
UserForm1.Show
End Sub
 
 
Sub changer()
UserForm2.Show
End Sub

par contre tu as raison je n'ai plus le probleme du enregistré ma macro quand je quitte

**battit64** · 01/04/2008, 23h21

j'ai trouvé en fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="Affiches_PP">
        <group id="SampleGroup" label="Configuration">
          <button id="Button1" label="Valider Affiche" size="large" onAction="ThisDocument.Valider" />
	  <button id="Button2" label="Changer Edition" size="large" onAction="ThisDocument.changer" />
        </group >
      </tab>
    </tabs>
  </ribbon>
</customUI>

et dans le thisdocument du modele

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Valider(ByVal control As IRibbonControl)
UserForm1.Show
End Sub
 
 
Sub changer(ByVal control As IRibbonControl)
UserForm2.Show
End Sub

**battit64** · 01/04/2008, 23h22

j'ai une autre question heureux oli mais moi je vais me coucher si je veux mettre des racourci clavier sur ces boutons
merci encore

**battit64** · 02/04/2008, 08h05

je vais cracker, ma barre est ok mais maintenant apres l'appel d'une fonction qui insere mon filligramme dansle nouveau document crée il me redemande d'enregistrer le modele.....si tu peux regarder
http://battit64.free.fr/REP.rar
en fait c'est lorsque je fais appel a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton_REP_Click()
If Not IsDate(CB_date_edition) Then
        MsgBox "La date n'est pas valide"
        CB_date_edition = ""
        Exit Sub
        Else
        If MsgBox("Création d'une affiche REP pour l'edition du " & CB_date_edition.value, vbOKCancel) = vbOK Then
       ThisDocument.Label3 = CB_date_edition.value
       ThisDocument.Label2 = "REP"
        Module1.modifier_filigramme (ThisDocument.Label2)
 
 
        Unload Me
 
 
        Else
        Exit Sub
        End If
    End If

**battit64** · 02/04/2008, 08h14

c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ThisDocument.Label3 = CB_date_edition.value
       ThisDocument.Label2 = "REP"

qui me fout le bordel

**battit64** · 02/04/2008, 08h54

c'est mieux j'ai remplacé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ActiveDocument.Label3 = CB_date_edition.value
       ActiveDocument.Label2 = "REP"

mais maintenant il me demande d'enregistrer le document1 lorsqu'on quitte malgrés le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Document_Close()
ThisDocument.Saved = True
 
End Sub

mais j'ai essayé aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Document_Close()
ActiveDocument.Saved = True
 
End Sub

enregistrement doc sans macro

VBA Word

Discussions similaires

Partager

Partager