Macro fonctionne une fois

Question

Bonjour, 

Private Sub CmdGenerateur_Click()

a = Me.ModeleG.Value

   DoCmd.Close
 
Dim wdapp As Word.Application

'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True

      'ouvrir le document
      .Documents.Open "Y:\x\x\x-x\xet x\" & a
      .Activate
      
End With

Word.Application.Run MacroName:="Urba"

'fermer et libérer les objets
Set wdapp = Nothing

End Sub

ce code lance la macro dans word une 1ère fois mais dès que je la relance word s'ouvre mais la macro de word marche pas.

Merci de m'aider,

Cordialement

Configuration: Garcon

f894009 · Answer

Bonjour,

Si vous avez une erreur "server......", cela doit repondre a la question

a = Me.ModeleG.Value

   DoCmd.Close

    Dim wdapp As Word.Application

    'Démarrer Word
    Set wdapp = CreateObject("Word.application")
    With wdapp
       .Visible = True

      'ouvrir le document
      .Documents.Open ""Y:\x\x\x-x\xet x\" & a
      .Activate
      .Run MacroName:="Urba"
    End With


    'fermer et libérer les objets
    Set wdapp = Nothing


Bonne suite

Macro fonctionne une fois

1 réponse

Discussions similaires

Newsletters