fermer excel et word

[petchy]

bonjour à tous

j'ai un classeur excel et word qui sont ouvert,est il possible à l'aide d'un bouton placer sur excel fermer ses 2 classeur .
merci
@ plus
petchy

 

[Arnaud]

Salut ,
ton document Word, tu l'a créer a l'aide d'une macro ??
car si ce n'est pas le cas, après moi je ne saurai comment faire autrement que de passer par des fonctions SDK ce qui "alourdi" un peu le code...

 

[petchy]

bonjour Arnaud

non,j'ouvre le dovument Word "manuellemnt".
merci
petchy

 

[michel]

bonsoir Petchy , bonsoir Arnaud

la macro ci dessous permet de fermer toutes les sessions Word ouvertes

Sub ControleSiWordOuvert()
'testé avec XP et excel2002
'nécéssite d'activer la reference Microsoft Word 10.0 0bject Library
Dim Appli As Word.Application
Dim RetVal As String

Set Appli = GetObject(, "Word.Application")
If Not Appli Is Nothing Then Appli.Quit ' ferme session Word
'Application.Quit 'ferme Excel
End Sub


bonne soiree
MichelXld

 

[petchy]

bonsoir Michel

merci pour ta réponse,mais ou trouvé la reference Microsoft Word 10.0 0bject Library.
merci
petchy

 

[michel]

rebonsoir Petchy

dans l'editeur de macros
menus Outils
References
coches la ligne "Microsoft Word 10.0 0bject Library"
cliques sur OK pour valider


bonne soiree
MichelXld

 

[petchy]

Re

merci Michel,ça fonctionne super bien

@ plus
petchy

 

[Arnaud]

re,
Et bien comme quoi on en apprend tt les jours
je pensai que pour que cette méthode fonctionne, il fallais que l'appli word ai été lancer a partir du code vba mais comme quoi......