XL 2016 Fermeture EXCEL à partir d'une Macro faite sur WORD

[Bylka]

Bonsoir à tous, et merci d'avance pour votre aide.

Tout est dans le titre, je voudrais savoir si il est possible de créer une macro sur WORD, et de pouvoir faire en sorte qu'elle ferme un fichier EXCEL déjà ouvert.

Merci et bonne soirée.

 

[job75]

Bonjour Bylka, bienvenue sur XLD,

Ici nous sommes sur le forum Excel il aurait fallu utiliser le forum "Autres applications" mais ce n'est pas grave.

Placez dans le VBA du fichier Word (Alt+F11) :

Sub Fermer_Fichier_Excel()
Dim fichier$, xlApp As Object
fichier = "TOTO.xlsx" 'nom à adapter
Set xlApp = GetObject(, "Excel.Application")
With xlApp.Workbooks(fichier)
    .Saved = True
    If xlApp.Workbooks.Count = 1 Then xlApp.Quit Else .Close
End With
End Sub

Ouvrez le fichier Excel TOTO.xlsx et exécutez la macro.

Pour conserver la macro le fichier Word doit être enregistré avec l'extension .docm

A+

 

[Bylka]

Bonjour job75 et merci pour ta réponse.

( Désolé pour l'emplacement, je pensais que c'était en rapport avec EXCEL.)

En tout cas, merci pour ta réponse, ça fonctionne nickel !!! au top.

Par contre, une autre question :

Ta macro fonctionne au top pour une macro, mais j'ai essayé de l'intégrer dans une macro déjà existante, mais ça ne marche pas, il ne se passe rien.

Faut il mettre un terme supplémentaire quand on l'ajoute à une macro existante ?

Merci encore

 

[job75]

Bonjour Bylka, le forum,

Ta macro fonctionne au top pour une macro, mais j'ai essayé de l'intégrer dans une macro déjà existante, mais ça ne marche pas, il ne se passe rien.

Si vous ne le savez pas pourquoi en saurais-je plus que vous ?

A+