Problème wordRésolu

Question

Bonjour, la macro est faites sous access.

En fait, je teste si un fichier est ouvert, s'il est ouvert, j'aimerais l'afficher en premier plan, puis quitter word et non simplement fermer le fichier. Le problème est que je n'arrive pas à l'afficher au premier plan et je n'arrive pas à quitter word, mais simplement fermer le fichier.

            Chemin = .FoundFiles(i)
            If FichierEstOuvert(Chemin) Then
               Set DocWord = GetObject(Chemin)
               DocWord.Activate
               'La afficher en premier plan
               .
               .
               .
               DocWord.Close True
               'Quitter word
               Set DocWord = Nothing
             End if

Merci de votre aide

jrivet · Accepted Answer

Salut,
Normalement quand tu ouvre un Fichier Word tu as un Objet de type Word.Application qui s'ouvre aussi, C'est lui qu'il faut fermer si tu veux quitter Word.

Tu Peux Essayer DocWord.Parent.Quit

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

J'ai fait une recherche de 10s sur google. Je dis pas que ca repond.

http://www.forumsig.org/showthread.php?t=6131

'ouverture du document word modèle et enregistrement sous le nom du dossier
'Démarrer Word
Dim wdapp As Object
Const CHEMIN_IMAGE As String = "\Cartes_utilisateurs"
Const CHEMIN_DOCUMENT As String = "\DOCUMENT_PUBLIPOSTES\FICHES_CLF_PUBLIPOSTEES\Fiche_CLF_DOSSIER_"
Const WdGoToBookmark = -1
Const WdStory = 6
Dim curseur As Object
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open CurrentProject.Path & "\...\MISE_EN_VALEUR\FicheMEV2.doc"
With wdapp.ActiveDocument
    .Bookmarks("Signet_nom").Range.Text = Signet_nom_1
    .Bookmarks("signet_dossier").Range.Text = signet_dossier_2
    .Bookmarks("signet_type_titre").Range.Text = signet_type_3
    .Bookmarks("signet_occup").Range.Text = signet_occup_4
    .Bookmarks("signet_demande").Range.Text = signet_demande_5

[............................]
    
If FSO.FileExists(CurrentProject.Path & CHEMIN_IMAGE & DOSSIER_ID & ".jpg") = True Then
      image = CurrentProject.Path & CHEMIN_IMAGE & DOSSIER_ID & ".jpg"
      signet_image_15 = "signet_image"
      Set curseur = wdapp.Selection
      curseur.homekey WdStory
      curseur.GoTo what:=WdGoToBookmark, Name:=signet_image_15
      curseur.InlineShapes.AddPicture image, False, True
Else
       signet_image_15 = "PLAN DE SITUATION NON DISPONIBLE, EXECUTEZ LA COMMANDE MAPINFO"
       wdapp.ActiveDocument.Bookmarks("signet_image").Range.Text = signet_image_15
End If
    ' je sauvegarde le fichier sous un autre nom
        wdapp.ActiveDocument.SaveAs CurrentProject.Path & CHEMIN_DOCUMENT & DOSSIER_ID & ".doc"

    ' je ferme le fichier
    wdapp.ActiveDocument.Close
    ' je ferme l'application
  End With
  wdapp.Visible = True
  wdapp.Documents.Open CurrentProject.Path & CHEMIN_DOCUMENT & DOSSIER_ID & ".doc"
  
  Set wdapp = Nothing
  Set curseur = Nothing
End Sub

aaliyan · Answer

Justement non, ça ne marchait pas, j'avais dèjà essayé, car ce n'est pas qui ouvrait le fichier, il été déjà ouvert, je n'avais donc que le document word et non l'application.
La méthode de Drikce marche.

jrivet · Answer

Salut,
Mais ca fait deux fois cette semaine qu on me confond avec on se ressemble pas pourtant :
Lui
[auteurdetail.aspx?ID= 786090 ]

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:   

Moi 

[auteurdetail.aspx?ID =89254 ]

@+: Ju£i?n
Pensez: Réponse acceptée

aaliyan · Answer

Excuse moi, Julien avait raison.

Problème word

5 réponses

Votre réponse

Discussions similaires