VBA : mauvaise utilisation de New

[Kobaya]

Bonsoir le Forum,

le code ci-dessous (extraction de données d'une base Oracle dans unfichier texte, zippage de ce fichier, puis envoi par mail avec Lotus Notes) fonctionnait très bien, jusqu'à ce que j'en fasse une copie dans un nouveau fichier.
je précise que les références suivantes sont cochées :

• Visual Basic For Applications
• Microsoft Excel 10.0 Object Library
• OLE Automation
• Microsoft Office 10.0 Object Library
• Microsoft DAO 3.51 Object Library
• Lotus Domino Objects
• Microsoft ActiveX Data Objects 2.7 Library

Auriez-vous une idée du pourquoi de ce message d'erreur : "Invalid use of New keyword" sur la ligne "Set objConn = New Connection"?

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

Merci d'avance à ceux qui pourront m'aider

 

[MichelXld]

Re : VBA : mauvaise utilisation de New

bonjour

la syntaxe semble correcte
quelle version de windows utilises tu ?

sans garantie, tu pourrais essayer

    Dim objConn     As Connection
    '
    '
    '
    Set objConn = CreateObject("ADODB.Connection")

bon apres midi
MichelXld

 

[Kobaya]

Re : VBA : mauvaise utilisation de New

j'utilise Windows XP et Excel XP.