De Oracle à Excel

C:\oracle\product\10.2.0\client_1\NETWORK\ADMIN\tnsnames.ora

# tnsnames.ora Network Configuration File: C:\oracle\product\10.2.0\client_3\NETWORK\ADMIN\tnsnames.ora
# Generated by Oracle configuration tools.
[COLOR=red][B]NomDeLaConnexionDeTonServeur[/B][/COLOR] =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = [B][COLOR=#ff0000]NomDeTonServeur[/COLOR][/B])(PORT = 1521))
    )
    (CONNECT_DATA =
      (SID = [B][COLOR=#ff0000]IdentifiantDeTonServeur[/COLOR][/B])
      (SERVER = DEDICATED)
    )
  )

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=[COLOR=red][B]IdentifiantBDD[/B][/COLOR];UID=[B][COLOR=#ff0000]MotDePasseBDD[/COLOR][/B];;DBQ=[B][COLOR=#ff0000]NomDeLaConnexionDeTonServeur[/COLOR][/B] ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessfu" _
        ), Array("l;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;")), _
        Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT [B][COLOR=#ff0000]NomDesChampsQueTuSouhaites[/COLOR][/B]" _
        , ".OCUPA" & Chr(13) & "" & Chr(10) & "FROM [B][COLOR=#ff0000]NomDeTaTable[/COLOR][/B]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_Lancer_la_requête_à_partir_de_[B][COLOR=#ff0000]Connexion[/COLOR][/B]"
        .Refresh BackgroundQuery:=False
    End With