Compil kely asa raha ho mety. Tsy manana vb anandramana an'azy za
;-)))
Dans VB
Exécuter le menu Projet/Références...
Dans la fenêtre qui apparaît, vérifiez que vous avez une référence sur
' Microsoft Word X.y Object Library
' Cochez la case si elle ne l'est pas
Public Sub Word_Création_Lien_OLE()
On Error Resume Next ' Retarde la récupération d'erreur.
' La fonction Getobject appelée sans le premier argument
' renvoie une référence à une occurrence de l'application Word.
' Si l'application n'est pas en exécution,
' une erreur se produit et on utilise l'erreur.
' Noter la virgule utilisée en tant que premier espace réservé d'argument.
Set Word_Application = GetObject(, "Word.Application")
If Err.number <> 0 Then
Set Word_Application = CreateObject("Word.Application")
End If
Err.Clear ' Efface l'objet Err au cas où une erreur s'est produite.
End Sub
Public Function Word_Nombre_documents_ouverts() As Byte
Word_Création_Lien_OLE
Word_Nombre_documents_ouverts = Word_Application.Documents.Count
End Function
Public Sub Word_Quitter()
' Si cette copie de Microsoft Word n'était pas déjà en exécution
' lorsque vous l'avez utilisée,
' elle est fermée à l'aide de la méthode Quit de la propriété Application
' puis le lien est rompu
' sinon l'application et le lien sont conservés.
' Notez que si vous tentez de quitter Microsoft Word,
' la barre de titre Microsoft Word clignote et
' Microsoft Word affiche un message vous demandant si
' vous souhaitez enregistrer les fichiers chargés.
Dim Doc
Word_Création_Lien_OLE
If Word_Nombre_documents_ouverts = 0 Then
For Each Doc In Word_Application.Documents
Doc.Save
Doc.Close 'savechanges:=wdDoNotSaveChanges (si tu veux pas enregistrer enlèves le Doc.Save et mets ça)
Next Doc
Word_Application.Quit
End If
End Sub
Antsoina ilay Word_Quitter
;-))
Activation microsoft office
