[Oracle et VBA Excel] Requête sur table

Bonjour,

je serais également intéressée par ces deux points.

As tu eu une réponse quant à tes demandes?

Merci.

slt, je pense que jé besoin de té informations et té connaissances sur le transfert des données d'une base de données oracle sur Excel, cé gentil de me répondre, ;.)

Bonjour Cbelliss

je cherche une solution que tu as évoqué dans le post "[Oracle et VBA Excel] Requête sur table
"

je souhaiterai mettre à jour les champs d'une table de la base de données en fonction de cellule d'une feuille excel.
Peux tu me faire parvenir ton fichier excel ou m'expliquer la marche à suivre.

Merci pour ton aie

Salut cbelliss,

Je voulais savoir si tu pouvais m'aider car j'ai besoin d'en apprendre plus sur les liens qui existent entre oracle et excel on me demande d'attaquer une base oracle à partir de feuilles excel.

Merci

a+

Bonjour Monsieur,

J'ai besoin de vos fichiers si vous pouvez me les commnuiquer ca serait très sympas.
Merci d'avance.

Bonjour,
J'ai fais quelques tests de connexions à des bases de donées oracle et MSSQL.
Je peux vous faire passer un fichier excel avec des exmples qui permettent :
De lister et initialiser une feuille excel avec le nom des champs d'une table.
De mettre à jour les champs d'une table de la base de données en fonction de cellule d'une feuille excel.
De récupérer les données d'une table de la base de données dans une feuille excel.

Si vous êtes interressé, faites moi un courriel, étant nouveau sur ce site, je ne sais pas comment lier des fichier excel dans une réponse.

Bonjour cbelliss,

Je suis en pleine recherche d'automatisation de tableaux de bord avec des requètes SQL alimentées par des cellules d'Excel. Je pense que le fichier auquel vous faîtes allusion pourrais m'aider.
Pouvez vous me l'envoyer s'il vous plaît.

Je vous remercie d'avance.

Cordialement,
mcali

je suis oci très merci de publier ce fichier

Bonjour,
Très simple: je le fais régulièrement. Il faut déjà charger le pilote ODBC d'Oracle (et pas celui de Mirosoft), puis d'instancier la liaison avec Oracle (i.e.: lancer l'ODBC Data Source Administrator et ajouter une source externe en spécifiant "Data Source Name" (ce que vous voulez et qui identifiera votre source de données), éventuellement la "Description" (un commenatire explicatif), et les plus importants le "TNS Service Name" (le nom de la connexion d'accès à la base Oracle = le TNS Name au sens Oracle), et bien sur le "User ID", c'est-à-dire le nom d'utilisateur Oracle pour la connexion.
Le mot de passe peut être laissé à vide ou rempli : dans le premier cas il sera demandé à chaque connexion, dans le second tout sera automatique mais in sera stocké en clair dans un fichier!
Enfin dans le dernier onglet pourra être rentré la requête Oracle testée (ce qui peut permettre des requêtes qu'Oracle sait gérer mais qu'Excel ne peut pas générer! - et on s'en moque car dans tous les cas Excel est capable d'importer ces données dans sa feuille : c'est ce qui compte!).

Nota:
1 - ne pas oublier *** au niveau système Windows *** (Sytem Properties --> Advanced --> Environment variables --> System Variables) de rajouter la variable ORACLE_HOME et dans le PATH le chemin d'accès à Oracle ( {ORACLE_HOME}\bin - à claquer "en dur")
2 - relancer Excel avant d'importer les données !
3 - pour ne pas trop ralentir Excel, pour le formattage automatique des données, un conseil d'ami : décochez l'option "resize column" car ainsi j'ai pu faire passer la durée d'un import de 25 minutes à 2 !!!

Enjoy!

C'est très clair comme réponse.
Merci à toi Pascal

Avec plaisir.

et hop :

Sub functionname()

'init variable

Dim onglet As String
Dim colonne As String
Dim ncolonne As Integer
Dim Requete As String

Requete = ""

'===========================================================
'CONNEXION A LA BASE
'===========================================================

'Connexion à la base
ORACLE_CONNECTION = "USER/PASSWORD"
ORACLE_INSTANCE = "INSTANCENAME"

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.dbOpenDatabase(ORACLE_INSTANCE, ORACLE_CONNECTION, 0&)

onglet = "FEUIL1"
colonne = "A:A"
ncolonne = 1
' QUERY CONSTRUCTION
Requete = _
"select * from TABLENAME " & _
"order by CHAMPS desc"
'sauvegarde des valeurs de la feuille
'todo
'effacement de la feuille
With Worksheets(onglet)
.Cells.Clear
End With
If OraSession.LastServerErr = 0 Then
' EXEC REQUÊTE ET VALORISATION DES CHAMPS
'MsgBox Requete

Set OraDynaset = OraDatabase.dbcreatedynaset(Requete, 0&)
i = 2
'MsgBox OraDynaset.FIELDS.Count
While Not OraDynaset.EOF
For j = 0 To OraDynaset.Fields.Count - 1
Sheets(onglet).Cells(i, j + 1) = OraDynaset.Fields(j).Value
Next
OraDynaset.MoveNext
i = i + 1
Wend
End If


End Sub
'=========================================================

par contre ce code ne remonte pas l'entête (nom des champs de la table)