Discussion :

[K1ngsTi]

Bonjour à toutes et tous,

J'ai récemment débuté l'apprentissage de VBA WORD afin de pouvoir m'aider dans mon travail.

Je bloque actuellement sur la partie enregistrement du fichier WORD que j'ai édité via un formulaire (celui-ci s'ouvre au moment ou j'ouvre le document WORD)

Dans l'idéal, je souhaite qu'une fois le bouton créer de mon formulaire activé via un click de la souris, une fenêtre s'ouvre avec :

-Un choix d'emplacement d'enregistrement du fichier
-Le Nom du document à entrer avec le nom du document actuel pré renseigné (exemple le document que j'ouvre ce nome Documentation_Protocole_T // je souhaite que ce nom apparaisse déjà dans l'emplacement du nom de mon nouveau document, comme cela je n'ai qu'à ajouter la date du jour à la fin du nom)
-Avoir la possibilité d'enregistrer mon document édité en PDF et WORD par la même occasion (Pour le coup je ne sais pas si c'est possible d’enregistrer un document sur 2 formats différents en même temps)


Un grand merci pour vos retours et votre aide

Je reste à votre disposition pour + de précision.

CDT

[hyperion13]

Salut
Pour 1, 2 et 3

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
Sub enregistreSous()
Dim dateJour As String
Dim strPdfFileName As String
 
dateJour = Format(Date, "yyyymmdd")
 
Debug.Print strFilePath
 
With Dialogs(wdDialogFileSaveAs)
    .Name = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".") - 1) & "_" & dateJour
    .Format = Word.WdSaveFormat.wdFormatXMLDocumentMacroEnabled
    .Show
End With
 
strPdfFileName = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".") - 1)
ActiveDocument.ExportAsFixedFormat _
                OutputFileName:=strPdfFileName, _
                ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False
End Sub

[K1ngsTi]

Salut
Pour 1, 2 et 3

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
Sub enregistreSous()
Dim dateJour As String
Dim strPdfFileName As String
 
dateJour = Format(Date, "yyyymmdd")
 
Debug.Print strFilePath
 
With Dialogs(wdDialogFileSaveAs)
    .Name = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".") - 1) & "_" & dateJour
    .Format = Word.WdSaveFormat.wdFormatXMLDocumentMacroEnabled
    .Show
End With
 
strPdfFileName = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".") - 1)
ActiveDocument.ExportAsFixedFormat _
                OutputFileName:=strPdfFileName, _
                ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False
End Sub

Bonsoir Hyperion13,

Un ENORME merci à toi, le code fonctionne parfaitement et en + l’enregistrement se fait bien avec 2 formats en même temps !

J'ai un question si tu as le temps d'y répondre, est il possible de faire en sorte que le document source (Le doc Word que j'ouvre et qui fait pop automatiquement le formulaire de saisie) n'enregistre pas les changements une fois l'étape d'enregistrement passée ?
Car après avoir rentré les infos dans le formulaire puis avoir cliqué sur le bouton créer (pour finaliser la saisie), je décide ou je souhaite enregistrer le doc mais le document source lui garde en mémoire les modifications que je viens de faire.

Merci. Je continu de chercher de mon coté.