VB excel blocage de ma requête en mode veille

Recherche :

Dernière réponse
Sujet : VB excel blocage de ma requête en mode veille
mayarn	mon pc est en veille ma macro se lance chaque nuit à 4h du matin en mode automatique elle se lance bien mais dès lors que je lance une requête elle se bloque sur .Refresh BackgroundQuery:=False Application.DisplayAlerts = False Worksheets("information" ).Cells(35, 2).Value = Worksheets("information" ).Cells(35, 2).Value + 1 ActiveWorkbook.Worksheets.Add ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) fichierdisplay = "Tableau" & ActiveSheet.Name With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=xxxx;", Destination:=Range("$A$1" )).QueryTable .CommandText = fichieraouv .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With j'ouvre ma session et clique sur continuer, et tout se déroule normalement que puis je faire pour que ça continue seul ? merci

Dernière réponse

Sujet : VB excel blocage de ma requête en mode veille

mayarn

mon pc est en veille
ma macro se lance chaque nuit à 4h du matin en mode automatique
elle se lance bien mais dès lors que je lance une requête elle se bloque sur .Refresh BackgroundQuery:=False

Application.DisplayAlerts = False
Worksheets("information" ).Cells(35, 2).Value = Worksheets("information" ).Cells(35, 2).Value + 1
ActiveWorkbook.Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
fichierdisplay = "Tableau" & ActiveSheet.Name
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=xxxx;", Destination:=Range("$A$1" )).QueryTable
.CommandText = fichieraouv
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

j'ouvre ma session et clique sur continuer, et tout se déroule normalement

que puis je faire pour que ça continue seul ?

merci