Thisworkbook.Sheet1 n'est pas un chemin d'objet valide, essayez plutôt :
SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
Ou simplement
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
Et assurez-vous que la feuille s'appelle bien "Sheet1"
Aussi, vous devez changer
rs.Open strSQL, conn, adOpenStatic
à ceci :
rs.Open SqlString, conn, adOpenStatic
Et vous devriez probablement utiliser
Dim SqlString as String
au début de la routine
