Bonjour,
Je reviens sur le code que Jean Claude m'a indiqué pour déclaré une source de
données à l'ouverture d'un fichier si celle-ci n'est pas encore connue.
J'ai paramétré NomSource et indiqué l'URL de la source mais j'ai un probléme à
ce niveau avec un message d'erreur d'indiquant Symbole imprévu: /.
Voilà laligne de l'url source par le réseau
oSource.URL = sdbc:calc:file:///001poste2/partage
document/TRAFIC/Banale_2005/TDB/NUM1.sxc 'URLSOurce
Une info importante, j'aurais dû commencer par là:
Je suis sous OpenOffice 1.1 et windows XP PRO
Merci d'avance
[...]
1) Oui, dans le 1er onglet
2) Sur tous les PC, la source de données doit être définie (à la main ou par
macro, mais c'est une autre histoire... pas du tout compliquée, mais plus
longue à expliquer ), le nom de la source de données doit être
absolument identique (orthographe et casse identiques). Si ce n'est pas le
cas, pour que ton classeur fonctionne il va falloir adpater la formule du
classeur sur chaque PC pour la mettre en rapport avec le nom exact de la
source de données sur ce PC (ce qui revient au même, mais en plus compliqué
et moins cohérent ;-
3) Je n'ai pas bien saisi l'utilisation de l'onglet Liens, mais tu n'en as
à priori pas besoin
Je joint quand même ci dessous un exemple de code qui crée - si besoin - une
source de données avec pour nom le contenu de la variable globale NomSource
(Ex : MaSource), et le classeur situé - sur un réseau - à l'endroit
URLSource (Ex : sdbc:calc:file:///J:/AEH/JCD/Sauvegardes/Toto.sxw). Cette
fonction peut être appelé à l'ouverture du classeur et ainsi créer
automatiquement la source si elle n'est pas présente.
Jean-Claude
[...]
Tu parles de reparametrer l'URL de la source de donnée, je suppose que c'est
dans le premier onglet du gestionnaire. J'ai donc depuis un autre poste
était cherché la source de données mais pour que cela soit pris en compte,
il faut que je la déclare comme nouvelle source de données sur le poste ou
je suis avec le même nom que sur le poste d'origine pour que le requête soit
comprise.
Où alors faut-il également faire un lien dans le dernier onglet du
gestionnaire de source de données
[...]
Function Creation_Source_De_Donnees() As Boolean
dim oContext as object
dim oSource as object
dim Reponse as string
On Error Goto ErrorHandler
oContext = createUnoService(com.sun.star.sdb.DatabaseContext)
'Test si la source de données existe
Reponse = oContext.hasByName(NomSource)
If Reponse = False Then
'Création de la source de données
oSource = oContext.createInstance
oContext.registerObject(NomSource, oSource)
oSource.URL = URLSOurce
End If
Creation_Source_De_Donnees = True
Goto Exit_Here
Exit_False:
Exit Function
Exit_Here:
Exit Function
ErrorHandler:
MsgBox Creation_Source_De_Donnees Erreur Err : Error$
(Ligne N° Erl ), sbCritical + sbOkOnly, Titre_Appli
On Error Goto 0
Goto Exit_False
End Function
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
