Fermeture de word après le lancement de commandbars

Question

Bonjour
J'ai un petit souci pour fermer word que je lance depuis vb.
Pour convertir en pdf j'utilise la commandbar de word.
Du coup word appara&#238;t (pas grave) mais par contre quand j'essaye de fermer word j'ai un message d'erreur (=-1).
Ca dit vous dit quelque chose ?

   ' Word
  Set oWord = CreateObject("Word.Application")
  Set oWordDoc = oWord.Documents.Open(sNomFichierWord, , True)
  oWordDoc.commandbars.Item(143).Controls(1).execute
' Attente de trois minutes max avantcr&#233;ation du fichier
  Minute1 = Minute(Now)
  Do Until (oFileSys.FileExists(sFichierTempPDF)) Or (Minute(Now) > (Minute1 + 3))
  Loop
'Fermeture de Word
        oWordDoc.Close SaveChanges:=False
        oWord.Quit
        Set oWord = Nothing

cs_eldim · Answer

Bonjour,
Comment fais-tu pour transformer un fichier en PDF via word ? &#231;a m'int&#233;resse

Pour ton probl&#232;me, y a une solution simple

Cr&#233;e une class Word dans ton programme
Et place ta variable oWord et tes proc&#233;dure &#224; l'int&#233;rieur

Lorsque ta class va se termin&#233; dans ton programme 
Ta variable oWord n'existera plus et donc ton process word non plus

Fermeture de word après le lancement de commandbars

1 réponse

Discussions similaires