Appel d'une macro Word depuis Excel ??!
cs_benitoben
Messages postés
5
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
10 février 2003
-
31 janv. 2003 à 11:18
cs_benitoben Messages postés 5 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 10 février 2003 - 2 févr. 2003 à 12:50
cs_benitoben Messages postés 5 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 10 février 2003 - 2 févr. 2003 à 12:50
A voir également:
- Macro word excel
- Word macro vba - Meilleures réponses
- Macro excel to word - Meilleures réponses
- Php word ✓ - Forum PHP
- Arctan excel ✓ - Forum Visual Basic 6
- Désactiver macro excel ✓ - Forum VB.NET
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Copier macro excel - Forum VBA Office (Excel, Word ...)
2 réponses
pelw
Messages postés
148
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
14 février 2005
6
31 janv. 2003 à 23:30
31 janv. 2003 à 23:30
Oui, c'est possible. Voici un exemple de code qui exécute la macro "MaMacro" située dans le document Word "C:\MonDocument.doc" :
Tout d'abord, depuis l'éditeur VBA d'Excel, il faut sélectionner "Microsoft Word X.0 Object Library" dans Outils/Références...
Sub Main()
Dim oWdApp As Word.Application
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
.Documents.Open ("C:\MonDocument.doc")
'Exécuter la macro
.Run ("MaMacro")
End With
'Quitter Word
oWdApp.Quit
'Libérer les ressources
Set oWdApp = Nothing
End Sub
@+
pelw
Tout d'abord, depuis l'éditeur VBA d'Excel, il faut sélectionner "Microsoft Word X.0 Object Library" dans Outils/Références...
Sub Main()
Dim oWdApp As Word.Application
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
.Documents.Open ("C:\MonDocument.doc")
'Exécuter la macro
.Run ("MaMacro")
End With
'Quitter Word
oWdApp.Quit
'Libérer les ressources
Set oWdApp = Nothing
End Sub
@+
pelw
cs_benitoben
Messages postés
5
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
10 février 2003
2 févr. 2003 à 12:50
2 févr. 2003 à 12:50
MERCI mille fois !!!!!!!