Bonjour,
j'ai l'erreur 400 sur cette macro suivante :
Sub Maj()
Call LitIni
ActiveSheet.QueryTables(1).Connection = ActiveSheet.Range("définitionConnection").Value
With ActiveSheet.Range("definitionSql")
ActiveSheet.QueryTables(1).CommandText = Array( _
.Offset(1, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(2, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(3, 0).Value, _
.Offset(4, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(5, 0).Value)
End With
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False
End Sub
a ce niveau
" ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False"
j'ai l'erreur 400 sur cette macro suivante :
Sub Maj()
Call LitIni
ActiveSheet.QueryTables(1).Connection = ActiveSheet.Range("définitionConnection").Value
With ActiveSheet.Range("definitionSql")
ActiveSheet.QueryTables(1).CommandText = Array( _
.Offset(1, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(2, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(3, 0).Value, _
.Offset(4, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(5, 0).Value)
End With
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False
End Sub
a ce niveau
" ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False"