Liste de .mpp d'une database Oracle

Bonjour Carole,
Voir ci-dessous le début d'une procédure VBA qui énumère les projets dans
une base de données SQL Server....
Espérant avoir aidé,

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris


Dim cn As Object
Dim rst As Object
Dim rst_Task As Object
Dim Cmd As Object

Const DSN = "LocalServer" '"NomDSN" = "xxx"
Const STR_USER_IDENT = "Administrateur" '"NomIdentificationDSN" "xxx"
Const STR_PASSWORD_IDENT = "" '"PassWord" = "xxx"
'
Sub Lecture()
Dim sQuery As String
Dim sPathFile As String, i As Integer

' Ouverture de connection à SQL Server par l'intermédiaire d'un DSN
système
Set cn = CreateObject("ADODB.Connection")
cn.Mode = adModeRead 'adModeReadWrite (Lecture seule!)
cn.ConnectionString = "DSN=" & DSN & ";UID=" & STR_USER_IDENT & " ;PWD="
& STR_PASSWORD_IDENT & ";"
cn.Open

'1ere Requête :
' Récupération des enregistrements de la table des projets de la base de
données pointé par le DSN
sQuery = "SELECT * FROM MSP_PROJECTS"
Set rst = CreateObject("ADODB.Recordset")
Set rst = cn.Execute(sQuery, , adCmdText)

sPathFile = "c:InfoProj.txt"
Open sPathFile For Output As #1
Print #1, ""

With rst
While Not .EOF
i = i + 1
Print #1, "********************"
Print #1, "Nom du projet : " & ![PROJ_NAME]
Print #1, "Nom de l'auteur : " & ![PROJ_PROP_AUTHOR]
Print #1, "Nom de la compagnie : " & ![PROJ_PROP_COMPANY]
Print #1, "Date début du projet : " & ![PROJ_INFO_START_DATE]
Print #1, "Date d'état du projet : " & ![PROJ_INFO_STATUS_DATE]
Print #1, "Date fin du projet : " & ![PROJ_INFO_FINISH_DATE]
Print #1, "Nom du Manager : " & ![PROJ_PROP_MANAGER]
..../...

"Carole" <lama.carole@wanadoo.fr> a écrit dans le message de
news:095801c4e2bc$f4b024d0$a601280a@phx.gbl...
Bonjour,

Je veux récupérer en VBA la liste des projets contenus
dans une base Project Central.
Enfait, je veux un browse des fichiers d'une DSN.


Merci