Merci pour l'info, voilà ce que me donne maintenant le code en entier mias le
probléme c'est que j'ai le message "source de données inconnue" J'ai remplacé NomSource par le nom de ma source de données avec les guillements
mais rien n'y fait, toujours pas de reconnaissance si la source de données n'est
pas déclaré dans le poste hôte.

@+ Arnaud

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("MaSource") If Reponse = False Then 'Création de la source de données oSource = oContext.createInstance oContext.registerObject("MaSource", oSource) oSource.URL = "sdbc:calc:file:///096banalep2/partage
unité/TRAFIC/Banale_2005/TDB/NUM1.sxc" '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