Macro fonctionne une fois
eljojo_e
Messages postés
1255
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
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
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
A voir également:
- Macro fonctionne une fois
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Signe fois clavier iphone ✓ - Forum Word
- Téléphone sonne 1 fois puis messagerie - Forum Mobile
1 réponse
Bonjour,
Si vous avez une erreur "server......", cela doit repondre a la question
Bonne suite
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
Pour tester si ma macro (plus minimale) fonctionnait, j'avais mis un stop.