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

Bylka

XLDnaute Nouveau
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.
 
Solution
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) :
VB:
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+

job75

XLDnaute Barbatruc
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) :
VB:
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
10
Affichages
392
Réponses
6
Affichages
436
Haut Bas