| 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
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 "
End If
End Sub
|
|
| auteur : SilkyRoad | Vba |
Sub Donnees_ChampWord ()
Dim WordApp As Word. Application
Dim WordDoc As Word. Document
Set WordApp = New Word. Application
Set WordDoc = WordApp. Documents . Open (" C:\monFichier.doc " )
WordApp. Visible = False
WordDoc. Fields (1 ). Result . Text = Range (" A1 " )
MsgBox WordDoc. Fields (1 ). Result . Text
WordDoc. Close True
WordApp. Quit
End Sub
|
|
| 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 |
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
Set wordDoc = wordApp. Documents . Open (" C:\monDocument.doc " )
monParametreVB = " azerty "
wordDoc. NomMacro monParametreVB
End Sub
|
Vba |
Option Explicit
Sub NomMacro (maVariableWord As String )
ThisDocument. Range . Text = maVariableWord
End Sub
|
|
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.
|