L
loock nicolas
Guest
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"
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"