Option Explicit
' chaînes de connexion aux serveurs BDOTC de PROD et HOMOL
Public Const CONST_BDOTC_PROD = "Provider=MSDAORA. 1;Password=crmuser;User ID=crmuser;Data Source=OPARRSKX01.WORLD"
Public Const CONST_BDOTC_HOMOL = "Provider=MSDAORA. 1;Password=crmuser;User ID=crmuser;Data Source=OPARRSKH01.WORLD"
Public Sub RDM_ASIE()
Dim objConn As Connection
Dim objRS As Recordset
Dim strSQL As String
Dim strFichier As String
Dim strDest() As String
Dim dteDebut As Date
Dim dteFin As Date
Dim intFile As Integer
Dim lngIndex As Long
Dim lngNbFields As Long
Dim lngTotal As Long
On Error GoTo Err_
strFichier = "C:\Homeware\HistoTokyo.txt"
' definition de la chaine de connexion
Application.StatusBar = "Connection à la base..."
Set objConn = New Connection
' le reste du code...
End Sub