pb d'actualisation

Bonjour Julius,

Pourquoi as-tu appelé cette procédure ... une fonction ?

essaie ceci :

Le délai de 5 secondes est une valeur prise au hasard, il se peut que la procédure ait besoin de plus de temps !

'---------------------------
Sub MiseaJour()
ActiveWorkbook.RefreshAll
DoEvents
'Délai de 5 secondes
Application.Wait Now + TimeValue("0:00:05")
DoEvents
End Sub
'---------------------------


Salutations!




"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:%23kj8ZpFrEHA.1712@tk2msftngp13.phx.gbl...
Bonjour

j'ai un probleme avec une macro excel

Le but de ma macro est d'actualiser une feuille de données qui contient des
formules de calculs et des graphiques (via les liaisons odbc) puis de
l'enregistrer dans un repertoire sous un format mht
Ma macro fonctionne bien en mode pas a pas par contre des que je la lance
normalement j'ai le message : "cette action va annuler une commande
d'actualisation des données . Voulez vous continuer ?

J'ai tenté d'augmenter le temps (5minutes !!) le pb reste identique
Si qu'un a déja rencontré ce pb (ou mieux sa solution !!!)
Merci d'avance



Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

Sub Actualise_et_Sauvegarde()
Destination = "D:ProductionPRODUCTIONGPAOArchives"
Fichierdestination = Format(Date, "yyyy-mm-dd") & "Ffichier" & ".xls"

MiseaJour

Fichierdestination = Format(Date, "yyyy-mm-dd") & "monfichier" &
".mht"
myn = Fichierdestination
ActiveWorkbook.SaveAs Filename:Þstination & myn,
FileFormat:=xlWebArchive
ActiveWorkbook.Close False
End Sub

Public Function MiseaJour()
ActiveWorkbook.RefreshAll
DoEvents
Sleep (20000)
DoEvents
End Function