none
Copy module fichier Word depuis Access RRS feed

  • Question

  • Bonjour,

    je galère depuis plusieurs jours sur le problème suivant:

    Le besoin est ainsi et je ne peux pas changer la situation.

    Après un clic sur un bouton d'un formulaire Access, je veux copier un module d'un document Word dans un autre document Word.

    Graphiquement pour accomplir ceci il faut:

    => Sous Word 2003: Outils > Modèle et Add-Ins > bouton 'Organiser' > Onglet Macro
    => Sous Word 2010: File > Options > Add-Ins > ListBox 'Template' > bouton 'Organiser' > Onglet Macro

    Le code généré est alors
    With ActiveDocument
            .UpdateStylesOnOpen = False
            .AttachedTemplate = "Normal"
            .XMLSchemaReferences.AutomaticValidation = True
            .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
    End With
    
    Application.OrganizerCopy Source:= _
        "C:\Users\yann\Desktop\model problem\from generated macro\Doc1.docm", _
        Destination:= _
        "C:\Users\yann\Desktop\model problem\from generated macro\Doc2.dotm", _
        Name:="module1", Object:=wdOrganizerObjectProjectItems
    organizerCopy n'étant pas une classe reconnu dans Acess je crée donc une instance Word ce qui me donne le code suivant:
    Private Sub Command0_Click()
        Set wdApp = CreateObject("Word.Application")
        
        wdApp.OrganizerCopy Source:= _
        "C:\Users\yann\Desktop\model problem\from generated macro\Doc1.docm", _
        Destination:= _
        "C:\Users\yann\Desktop\model problem\from generated macro\Doc2.dotm", _
        Name:="module1", Object:=wdOrganizerObjectProjectItems
            
        Set wdApp = Nothing
    End Sub

    Seulement voilà j'obtiens l'erreur suivante:

    Run-time error '5608':
    is not a style name.

    => Alors oui j'ai bien un module 'Module1' dans mon fichier Doc1.docm.
    => J'ai testé graphiquement, il n'y a pas besoin que la source ou le fichier de destination Word soit ouvert.
    => Le code fonctionne si je reste dans l'environnement Word.

    Merci à toutes personnes qui m'aidera.
    mercredi 29 août 2012 20:11

Réponses

  • J'ai jamais réussi. J'ai finalement opté pour l'ouverture d'un fichier Word avec une fonction autoOpen() qui exécute ce que je voulais faire.
    • Marqué comme réponse Sayannara lundi 10 septembre 2012 15:03
    lundi 10 septembre 2012 15:03