Discussion :

[roilion2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

[Heureux-oli]

Salut,

Pour récupérer le nom du document actif, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Name

Et le chemin complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.FullName

[roilion2]

Bonjour,

Merci Heureux-oli

J'ai exploité ton aide et ça donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'Déclaration des variables
Dim strMyName As String
Dim strMyUser As String
Dim strMyExport As String
Dim strMyResult() As String
Dim inti As Integer
'Affectation des données aux variables
strMyChar = ActiveDocument.Name
'Utilisation de la fonction
strMyResult = Split(strMyChar, ".")
'Boucle pour l'affichage du contenu de la table
For inti = 0 To 1
Debug.Print inti & " - " & strMyResult(inti)
Next inti
 
strMyUser = Environ("UserName")
strMyExport = "C:\Documents and Settings\" + strMyUser + "\Bureau\" + strMyResult(0) + ".pdf"
 
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        strMyExport, 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

Ce n'est peut-être pas très académique mais ça fonctionne et c'est l'essentiel

Merci

[Heureux-oli]

Salut,

Ton split sur le FileName est une bonne idée, en général j'utilise un Left en faisant un test sur l'extension suivnat que j'ai un doc, un docx ou un docm et autre si j'ai d'autres extensions.

Pour le reste, si ça fonctionne, c'est le principal.