VBA/Macro qui ne s’exécute pas

-
Bonjour, Whismeril
Je vous remercie pour les nombreux documents de références et riches qui me sont proposés. Je les ai bien consultés. Mais mon problème demeure toujours.

Pour être plus précis : Le modèle de document WORD que j’ai réalisé contient à la fois des contrôles de contenus (Ex Zone de liste déroulante, sélecteur de date, Etc.) Et un bouton basé sur une Macro pour une action d’insertion de pièces jointes (sous-document) dans le document-Maître. En local sur mon poste de travail tout fonctionne à merveille, le Bouton de commande insère bien le sous-document. Le document est ensuite importé dans un Entrepôt ALFRESCO (Gestionnaire de contenu de document) installé sur un Serveur et rendu disponible aux utilisateurs finaux à des fins de traitement. Lorsque le même document est téléchargé de l’Entrepôt ALFRESCO pour mon poste de travail, tous les autres contrôles de contenus s’exécutent bien, seul le Bouton de commande dudit document est inactif la Macro ne s’exécute pas. Et c’est à ce niveau seulement que se situe le problème.

D'avance merci pour la disponibilité!

Ci-dessous le code du Bouton de commande d’insertion de pièce jointe (Marche bien):

Private Sub BTN_INSERT_PJ_Click()
Dim FichierJoints As String
Dim Str As String
Dim nomSousDoc As String
    ActiveWindow.ActivePane.View.Type = wdOutlineView
    If ActiveWindow.View = wdMasterView Then
        ActiveWindow.View = wdOutlineView
    Else
        ActiveWindow.View = wdMasterView
    End If
    With Application.FileDialog(msoFileDialogFilePicker)
        .ButtonName = "Joindre les Pièces Sélectionnées"
        .AllowMultiSelect = True
        If .Show = True Then
            For Compteur = 1 To .SelectedItems.Count
            PieceJointes = .SelectedItems(Compteur)
            Str = PieceJointes
            nomSousDoc = Mid(Str, InStrRev(Str, "\") + 1)
   ActiveDocument.Unprotect Password:="lolo"
            Selection.Range.Subdocuments.AddFromFile Name:=nomSousDoc, _
            ConfirmConversions:=False, ReadOnly:=False _
            , PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:=""
            Selection.Editors.Add wdEditorEveryone
            ActiveDocument.Protect Password:="lolo", NoReset:=False, Type:= _
            wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
            Next
        End If
    End With
End Sub
Afficher la suite