Ajouter nom de feuille

Bonjour,

J'aimerais pouvoir nommer la feuille ajoutée dans ce code. Ma tentative renvoie une erreur d'incompatibilité de type . Avez-vous une idée ?

Set rs = New ADODB.Recordset
conn.CommandTimeout = 0
Set rs.ActiveConnection = conn
Call rs.Open(sSQL, conn, adOpenForwardOnly, adLockReadOnly)
Set newsht = ActiveWorkbook.Sheets.Add.Name = "myNewSHeet"
Set qt = newsht.QueryTables.Add(Connection:=rs, Destination:=Range("A1"))
qt.Refresh

Merci d'avance

Bonjour,

Normalement , avec tout simplement

With NewSht.QueryTables.Add(Connection:=rs, Destination:=Range("A1"))
  .Refresh
End With

Ou

NewSht.QueryTables.Add(Connection:=rs, Destination:=Range("A1"))

A+

Merci de ta réponse, j'ai toujours l'erreur incompatibilité de type.

Re,

J'ai modifié ma réponse

Re,

L'erreur incompatibilité de type venait d'une variable mal déclaré mais maintenant j'ai l'erreur objet requis toujours sur cette même ligne. En sachant que si je ne lui donne pas de nom il n'y a pas d'erreur.

Set newsht = ActiveWorkbook.Sheets.Add.Name = "myNewSHeet"

Re,

Set newsht = ActiveWorkbook.Sheets.Add
NewSht.Name = "myNewSHeet"

A+