Source de données

[pat44]

Bonjour,

Je dois piloter depuis une application Oracle Forms via ole2 du word pour faire de la fusion.

Mon gros (mais très gros !) souci c'est l'ouverture d'un fichier word avec une source de données liée. On a la droit à un beau message "Voulez vous exécuter la requete ....".

Je DOIS me passer de ce message. Le seul moyen que j'ai est donc de stocker mes fichiers word dans la base de données sans le lien avec la source de données. Comme les fichiers sont stockées, et que je suis en Froms 6i, je n'ai pas la main sur Word lors de l'ouverture des fichiers. Impossible de jouer sur un displayalert (ca a été le gros bide).

J'ai donc après lecture de la doc VB, tenter de jouer sur le paramètre LinkToSource de la méthode OpenDataSource. Mais rien n'y fait, quelque soit la source.

Les macros de test:

Code :

1
2
3
4
5
6
7
8
9
10
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Documents and Settings\pfor\Mes documents\Mes sources de données\lea (Par défaut).odc" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=False, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=MSDAORA.1;Password=pit182j;User ID=saga;Data Source=lea", _
        SQLStatement:="SELECT * FROM ""ACD_CONTRAT""", SQLStatement1:="", SubType _
        :=wdMergeSubTypeOther

Code :

1
2
3
4
5
6
7
8
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "L:\TMA_LOCO\LOCO\PFO\GENWRK\22552_data.txt", ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:="", SQLStatement:="", SQLStatement1:="", SubType:= _
        wdMergeSubTypeOther

Si quelqu'un a les connaissances nécéssaires pour me sauver la vie ;-) !

Merci

[pat44]

A propos:

j'ai bien trouvé çà: http://support.microsoft.com/?scid=kb;fr;825765, mais si il y avait une solution plus propre (programmation) au lieu de toucher la base de registre

[Heureux-oli]

As-tu essayé avec du ADO.
Maintenant, il est peut-être possible avec Access et du DAO, mais je dois essayer.
J'ai pas oracle mais je vais tenter avec MySQL.

[pat44]

Envoyé par Heureux-oli

As-tu essayé avec du ADO.
Maintenant, il est peut-être possible avec Access et du DAO, mais je dois essayer.
J'ai pas oracle mais je vais tenter avec MySQL.

A priori non, ne voyant pas ce qu'est ADO. (désolé, mais je suis un pur Oraclien)

[Heureux-oli]

Je reviens, DAO ne fonctionne pas dans ce cas, j'ai pas réussi.