Bonjour à tous,
Voici mon problème.
J'ai créé une macro Word 2016 qui a pour but d'enregistrer un document en format PDF ayant pour nom le contenu d'un champ de formulaire avec d'autres caractéristiques. Le fichier PDF doit ensuite être enregistré dans un dossier que nous nommerons pour l'occasion "TOTO" présent sur le bureau.
Si le dossier n'existe pas, il faut le créer. C'est déjà un premier problème pour moi.
Viens ensuite le nommage du fichier. Voici la forme souhaitée : "ASP - yymmdd - text_champ_formulaire.pdf".
Le problème étant que le contenu du champ de formulaire nommé ORGANISME n'est pas pris en compte. Cela donne une erreur de méthode d’exécution : "Le membre de la collection requis n'existe pas". Hein ? Comment ? De quoi que tu causes ?
Mon code :
Avez-vous une idée de comment résoudre ces deux problèmes ?
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 Sub Enregistrement() ActiveDocument.Unprotect Password:="" Dim Nom As String Nom = ActiveDocument.FormFields("ORGANISME").Result ChangeFileOpenDirectory "C:\Users\PFG60\Desktop\TOTO" ActiveDocument.SaveAs FileName:="ASP - " & Format(Date, "yymmdd") & "-ATS-" & Format(Time, "hhmmss") & " - " & Nom & ".pdf" ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="" 'ActiveDocument.Close End Sub
Partager