importation de données via excel

[loock nicolas]

J'ai un problème d'importation de données via Excel, la macro éffectuée marche en manuel, mais pas en lancement automatique (bouton ou ouverture de projet)

voici le code:

Private Sub CommandButton1_Click()
Sheets("Clients").Select
Range("A3").Select
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=FocusEvo1", _
Destination:=Range("A3"))
.CommandText = Array( _
"SELECT FFTIERS.CTTIS, FFTIERS.CTIES, FFTIERS.RSC1S, FFTIERS.ADRBS" & Chr(13) & "" & Chr(10) & "FROM DBA.FFTIERS FFTIERS" & Chr(13) & "" & Chr(10) & "WHERE (FFTIERS.CTTIS='C')" & Chr(13) & "" & Chr(10) & "ORDER BY FFTIERS.CTIES" _
)
.Name = "Lancer la requête à partir de FocusEvo1_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub

Le logiciel plante avec le message "projet ou bibliothèque introuvable", en pointant sur le premier "CH13"

 

[Zon]

Salut,

Mets vbcrlf à la place; Dis nous si cela fonctionne toujourrs pas quelle bibliothéque tuas de cochées dans Outils Réferences sous VBE.

A+++