1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub CommandButton1_Click()
USER = "utilisateur"
MDP = "motdepasse"
DRV_ODBC = "Microsoft ODBC for Oracle"
INSTANCE = "adressebasededonnée"
PL_SQL = "SELECT DISTINCT NUM_ORDRE_TRANSP FROM colis WHERE TRANSPORTEUR='montransporteur' and dat_creation=trunc(sysdate)"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={" & DRV_ODBC & "};UID=" & USER & ";PWD=" & MDP & ";SERVER=" & INSTANCE & ";", Destination:=ActiveCell)
.Sql = PL_SQL
.HasAutoFormat = False
.Refresh BackgroundQuery:=False
End With
End Sub |