Discussion :

[patrickvier]

Bonjour à tous,
J'ai un script en dehors d'excel qui ouvre, modifie et sauve le fichier Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[verredewhisky]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
'code
Application.DisplayAlerts = False
 
    ' code de modification des cells du fichier ---------
objXLWb.Save
Application.DisplayAlerts = True
'code

Vote pour moi si t'aimes ce message