j'ai l'erreur Incompaibilite du type
sur cette macro.Ca veut dire quoi?
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
Merci
sur cette macro.Ca veut dire quoi?
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
Merci