Discussion :

[FCL31]

Bonjour à tous

Encore moi.

J'ai un document Word appeler "Fax.dot" avec un UserForm que j'ouvre depuis Access avec le code suivant :

Code :

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

1
2
3
4
chemin = "D:\Company Shared Folders\Secure BD"
Set wApp = New Word.Application
wApp.Visible = True
wApp.Documents.Add Template:=chemin & "\Fax.dot", NewTemplate:=False, DocumentType:=0

Quand le document s'ouvre ou que je double clique directement sur le fichier "Fax.dot", j'ai le "Document1.doc" qui s'ouvre (Normal).

Le problème est que lorsque je veux exécuter ma macro (Alt+F8) qui ouvre le UserForm, J'ai pas de macro. .

Quand je vais dans l'editeur Visual Basic (Alt+F11), j'ai bien mon UserForm et ma macro qui sont là.

De plus, dans mon document "Fax.dot", j'ai ajouter une barre d'outils avec un bouton qui lance ma macro mais cette barre d'outils n’apparaît plus non plus dans "Document1.doc".

C'est normal ou pas ?
Comment puis-je résoudre le problème ??

Ps : J'ai changer "Fax.dot" par "Fax.doc" (on sais jamais), mais rien ne change.

Merci pour votre aide.

[Heureux-oli]

Salut,

Ton code se trouve bien dans ton document Fax.dot et pas dans le normal.dot ?

[FCL31]

Oui

[Heureux-oli]

Salut,

Essaie de mettre dans ton document

Code :

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

1
2
3
Sub Document_New()
MsgBox "Document crée !"
End Sub

ce code est lancé lorsqu'un nouveau document basé sur un modèle est crée.

[FCL31]

J'ai dejà

Code :

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

1
2
3
Sub Document_New()
Selection.GoTo What:=wdGoToBookmark, Name:="Bloc"
End Sub

Je viens d'ajouter

Code :

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

MsgBox "Document crée !"

Le message s'affiche mais toujours le même problème

Pour mois même si il y a des manips à faire, je peut lancer ma macro mais le problème c'est les autres utilisateur

[Heureux-oli]

Salut,

Le code n'est pas dans le document, mais dans le modèle, c'est dans les Références qu'on les trouve.

[FCL31]

Le code n'est pas dans le document, mais dans le modèle, c'est dans les Références qu'on les trouve.

Désolé mais je comprend pas se que tu veu dire là !

[FCL31]

J'ai réussi à "contourner" le problème avec le code suivant :

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
Public Sub CreationBO()
Dim BaBar As CommandBar, Btn1, Btn2, Btn3
 
  On Error Resume Next
    Application.CommandBars("MaBarre").Delete
  On Error GoTo 0
 
  Set BaBar = Application.CommandBars.Add("MaBarre", Position:=msoBarTop, MenuBar:=False, temporary:=True)
  BaBar.Protection = msoBarNoChangeVisible
 
  With BaBar
    Set Btn1 = .Controls.Add(msoControlButton)
    With Btn1
        .Style = msoButtonIconAndCaption
        .Caption = "Enregistrer/Imprimer"
        .FaceId = 271
        .OnAction = "MonPubli"
    End With
    .Visible = True
  End With
End Sub

et

Code :

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

1
2
3
4
Public Sub DetruireBO()
  On Error Resume Next
  Application.CommandBars("MaBarre").Delete
End Sub

dans un module

et

Code :

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

1
2
3
Private Sub Document_Close()
DetruireBO
End Sub

et

Code :

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

1
2
3
4
Private Sub Document_New()
Selection.GoTo What:=wdGoToBookmark, Name:="Bloc"
CreationBO
End Sub

dans ThisDocument

Je laisse temporairement le sujet ouvert le temps d'avoir vos avis.

Merci


.