Bonjour à tous et à toutes, forumiens et forumiennes,
Une des mes deux macros effectue un téléchargement toutes les 30 secondes
La seconde télécharge seulement lorsqu’elle est activée
Je voudrais désactiver le téléchargement de la première macro pendant l’exécution de la seconde macro (sinon le graphique utilisant les données de la première macro devient instable)
J’ai essayé de retarder le temps de téléchargement en inscrivant 60000 en Sheets('Feuil1').Cells(1, 10), mais c’est une solution insatisfaisante.
J’ai également essayé de neutraliser la première macro en utilisant
intraday.Enabled = False (nomMacroàNeutraliser. Enabled = False)
ça ne marche pas
quelqu’un aurai une idée, une piste, pour neutraliser cette première macro ???
(il y a peut-être un système de désactivation d’évènements ???)
merci d’avance
albert
&&&&&&&&&&
première macro :
&&&&&&&&&&
Sub intraday()
Sheets('Feuil1').Activate
Columns('A:F').Select
Selection.ClearContents
Range('A1').Select
periode = Sheets('Feuil1').Cells(1, 10) 'Temporisation en secondes
Temps = Now
Increment = periode / (CLng(24 * 60) * 60) ' supprimer le dernier 60 pour une tempo en minutes
While Now < Temps + Increment
DoEvents
Wend
With ActiveSheet.QueryTables.Add(Connection:='URL;, Destination:=[A65536].End(xlUp)(2))
.WebFormatting = xlWebFormattingNone
.WebTables = '8'
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub
&&&&&&&&&&&&&&&&&
seconde macro :
&&&&&&&&&&&&&&&&&
Sub HISTORIQUE()
Sheets('Feuil2').Activate
Columns('A:F').Select
Selection.Clear
n = Cells(1, 10) 'aujourd'hui
m = n - 365
Range('A1').Select
With ActiveSheet.QueryTables.Add(Connection:= _
'URL; & m & '&dateTo=' & n & '&typeDownload=2' _
, Destination:=[A65536].End(xlUp)(2))
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub
[file name=telechargetest_20050620165940.zip size=37320]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/telechargetest_20050620165940.zip[/file]
Une des mes deux macros effectue un téléchargement toutes les 30 secondes
La seconde télécharge seulement lorsqu’elle est activée
Je voudrais désactiver le téléchargement de la première macro pendant l’exécution de la seconde macro (sinon le graphique utilisant les données de la première macro devient instable)
J’ai essayé de retarder le temps de téléchargement en inscrivant 60000 en Sheets('Feuil1').Cells(1, 10), mais c’est une solution insatisfaisante.
J’ai également essayé de neutraliser la première macro en utilisant
intraday.Enabled = False (nomMacroàNeutraliser. Enabled = False)
ça ne marche pas
quelqu’un aurai une idée, une piste, pour neutraliser cette première macro ???
(il y a peut-être un système de désactivation d’évènements ???)
merci d’avance
albert
&&&&&&&&&&
première macro :
&&&&&&&&&&
Sub intraday()
Sheets('Feuil1').Activate
Columns('A:F').Select
Selection.ClearContents
Range('A1').Select
periode = Sheets('Feuil1').Cells(1, 10) 'Temporisation en secondes
Temps = Now
Increment = periode / (CLng(24 * 60) * 60) ' supprimer le dernier 60 pour une tempo en minutes
While Now < Temps + Increment
DoEvents
Wend
With ActiveSheet.QueryTables.Add(Connection:='URL;, Destination:=[A65536].End(xlUp)(2))
.WebFormatting = xlWebFormattingNone
.WebTables = '8'
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub
&&&&&&&&&&&&&&&&&
seconde macro :
&&&&&&&&&&&&&&&&&
Sub HISTORIQUE()
Sheets('Feuil2').Activate
Columns('A:F').Select
Selection.Clear
n = Cells(1, 10) 'aujourd'hui
m = n - 365
Range('A1').Select
With ActiveSheet.QueryTables.Add(Connection:= _
'URL; & m & '&dateTo=' & n & '&typeDownload=2' _
, Destination:=[A65536].End(xlUp)(2))
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub
[file name=telechargetest_20050620165940.zip size=37320]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/telechargetest_20050620165940.zip[/file]