Bonjour,
 
J’ai un souci d’enregistrement sous VBA Word.
La programmation ci-dessous comporte 2 zones, la 1ere est un enregistrement sous PDF, la 2e un enregistrement consécutif par le canal DDE. Cette dernière zone fonctionne parfaitement, c’est la 1ere qui ne me donne pas satisfaction en PDF.
A partir du modèle existant, je souhaiterai que chaque document créé par un utilisateur récupère le nom du document actif (et non pas le nom du modèle « toto ») et que le nom de l’utilisateur soit généraliste pour que ça puisse fonctionner sur tout le réseau. Si ce n’est pas possible, faut-il envisager une boîte de dialogue pour l’enregistrement ? Dans ce cas, comment dois-je la formuler ?
 
Merci pour votre aide
 
Public Sub MAIN()
 
        ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Documents and Settings\utilisateur\Bureau\toto.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
 
Dim Canal
    Dim Commande$
    Commande$ = "Do code method FLETWORD/commande_de_word_0305 ('" + WordBasic.[FileName$]() + "')"
     
    Canal = WordBasic.DDEInitiate("Omnis", "LOGICIEL" )
    WordBasic.DDEExecute Canal, Commande$
    WordBasic.DDETerminate Canal
 
End Sub