Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment vérifier si un document Word est déjà ouvert ?
auteur : SilkyRoad
La procédure vérifie que le fichier Word 'monFichier.doc' est ouvert.

Vba

Sub ControleSiDocumentWordOuvert()
    Dim Appli As Word.Application
    Dim WordDoc As Word.Document
    
    'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
    On Error Resume Next
    Set Appli = GetObject(, "Word.Application")
    Set WordDoc = Appli.Documents("C:\Documents and Settings\dossier\monFichier.doc")
    On Error GoTo 0
    
    If WordDoc Is Nothing Then
        MsgBox "Le document est fermé"
        Else
        MsgBox "Le document est ouvert"
        'WordDoc.Close 'fermeture application Word
    End If
End Sub

Comment écrire et lire dans un champ Word ?
auteur : SilkyRoad
Vba

Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    
    'ouvre session word
    Set WordApp = New Word.Application
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("C:\monFichier.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = False
    
    
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
    WordDoc.Fields(1).Result.Text = Range("A1")
    
    'Si le champ est dans un entête, utilisez:
    'WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text

    'Récupère le contenu du champ
    MsgBox WordDoc.Fields(1).Result.Text
    
    'Ferme le document word en sauvegardant les modifications
    WordDoc.Close True
    'ferme la session Word
    WordApp.Quit
End Sub

Comment passer un paramètre d'Excel dans une Variable Word ?
auteurs : Ouskelnor, SilkyRoad
Cet exemple ouvre un document depuis Excel et déclenche la macro "NomMacro" contenue dans ce fichier Word.
La procédure Word "NomMacro" doit impérativement être placée dans le module objet ThisworkBook pour que la variable Excel "monParametreVB" soit passée à l'argument "maVariableWord".

Vba

'------------------------
'Procédure Excel:
'nécessite d'activer la référence "Microsoft Word xx.x Object Library"
'
Private Sub CommandButton1_Click()
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Dim monParametreVB As String
    
    Set wordApp = New Word.Application
    wordApp.Visible = True
    'ouverture du document Word
    Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc")
    
    monParametreVB = "azerty"
    'déclenchement de la macro Word
    'Remarque : la macro Word doit etre placée au niveau de ThisDocument
    wordDoc.NomMacro monParametreVB
End Sub
'------------------------
Vba

'------------------------
'L'exemple de procédure Word à placer au niveau du module objet "ThisDocument".

Option Explicit

Sub NomMacro(maVariableWord As String)
    ThisDocument.Range.Text = maVariableWord
End Sub
'------------------------

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2008  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com