Save et Refresh de fichiers
Bonjour à tous,
J'ai un script en dehors d'excel qui ouvre, modifie et sauve le fichier Excel.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Dim objXLApp, objXLWb, objXLWs
Set objXLApp = CreateObject("Excel.Application")
Set objXLWb = objXLApp.Workbooks.Open(fEquipeX)
Set objXLWs = objXLWb.Sheets(1)
' code de modification des cells du fichier ---------
objXLWb.Save
objXLWb.Close (False)
Set objXLWs = Nothing
Set objXLWb = Nothing
objXLApp.Quit
Set objXLApp = Nothing |
Cela fonctionne très bien, mais j'aimerai que mon fichier soit aussi ouvert dans Excel, les modifs apportées par le script (en dehors) fait le travail et sauve le fichier. Dans ce cas, j'ai un message comme quoi mon fichier est déjà ouvert et si je veux sauver les modifs... Je souhaiterai qu'il n'y ait pas de prompt et que Excel rafraichisse le fichier déjà chargé avec les modif du script...
J'espère être assez clair dans ma demande.
Merci
Patrick
