mise à jour

fourezizou

XLDnaute Occasionnel
bonjour le forum
Y at-il un outil ou un macro de mettre à jour le fichier Excel tous les jours sans l'ouvrir à un certain moment, par exemple, tous les jours à 12 heures du soir mise à jour le classeur Excel
 

joss56

XLDnaute Accro
Re : mise à jour

Bonjour,

Avec le planificateur de tâches de Windows et un fichier vbs, cela doit être possible.
 

fourezizou

XLDnaute Occasionnel
Re : mise à jour

RE
merci pour la repence mais je ne sais pas comment cela se fait ;Si possible plus de précisions
 

joss56

XLDnaute Accro
Re : mise à jour

Il faut créer un fichier vbs avec le bloc-notes par exemple. Y saisir ce qui suit (à adapter bien sûr):
Dim XLApp

Set XLApp = CreateObject("Excel.Application")
With XLApp
.workbooks.Open "C:\Classeur1.xlsm"
.Run "Module1.MacroTest"
.activeworkbook.save
.Quit
End With
Set XLApp = Nothing

Ce script ouvre le fichier Excel qui se trouve sur C: et se nommant classeur1.xlsm. Il faudra adapter ça à tes besoins.
Ensuite, il lance la procédure appelée MacroTest stockée dans le module 1 de ton application et referme Excel. Tu enregistres ce fichier avec l'extension .vbs et tu crées une tâche planifiée pour ce fichier vbs.

A+
 

fourezizou

XLDnaute Occasionnel
Re : mise à jour

Bonjour joss56 ;le forum
Merci pour les réponses
Je essai avec cette code
Dim Xl
set xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents=false
'Chemin et nom du fichier à ouvrir
set Wk = Xl.workbooks.open("C:\Users\administrateur\Desktop\CHQ GRNT.xlsm")

'J'ai supposé que la macro a exécuté s'appelait "Macro1" et qu'elle était
'située dans un MODULE STANDARD.
Xl.Run "Macro1"
Xl.enableevents=true

wk.save
wk.close

xl.quit

Et le code de macro1 =
Sub Macro1()
' Macro1 Macro
ActiveWorkbook.RefreshAll
End Sub

Mais la actualisation n’est pas terminé est afficher cette msg “ cette action va annuler une commande d’actualisation des données voulez-vous continuer?
 

joss56

XLDnaute Accro
Re : mise à jour

Bonjour,

Sans fichier, difficile de se prononcer...Enlève Xl.enableevents=false
et teste. Reviens nous dire si cela fonctionne.
 

fourezizou

XLDnaute Occasionnel
Re : mise à jour

Re
Le même msg afficher !!!! je pence le code wk.save et wk.close ca exécuté avent que l’actualisation terminer a ce que possible faire une code pour après l’actualisation ce terminer vers wk.save ;wk.close ;xl.quit
 

fourezizou

XLDnaute Occasionnel
Re : mise à jour

RE
le fichier excel est lie avec data base access pour actualiser les table et le requete de cette base de donne
 

fourezizou

XLDnaute Occasionnel
Re : mise à jour

RE
Quand je mets le code sans wk.save et wk.close et xl.quit ca marche bien l’actualisation mais le fichier Excel reste ouvert et sans enregistrer
Code :
Dim Xl
set xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents=false
'Chemin et nom du fichier à ouvrir
set Wk = Xl.workbooks.open("E:\actualisation.xlsm")

'J'ai supposé que la macro a exécuté s'appelait "MaMacro" et qu'elle était
'située dans un MODULE STANDARD.
Xl.Run "Macro1"
Xl.enableevents=true
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas