XL 2021 Export d'un Userform au format Docx;

[jeff1494]

Bonsoir à toutes et tous;

Je suis en train de me faire une petite boite à outils me permettant d'avoir des informations pour m'aider à monter une sorte de documentation du projet VBE.
Mon idée est de regrouper des informations du projet me permettant de monter une documentation cohérente du projet.

J'ai créé quelques macros pour me fournir des éléments, qui me serviront à créer de la doc, comme par exemple :

1. Liste de tous les formulaires du projet.
2. Liste des contrôles par formulaire.
3. Liste des feuilles avec les attributs "masquée, protégée".
4. Liste des noms de cellules et tableaux du classeur.

J'aimerai aussi pouvoir créer au format Word '.Docx' une documentation sur les formulaires. Pouvoir insérer dans un fichier ".docx" une capture des formulaires, et ainsi pouvoir documenter chaque contrôle par exemple.

J'ai trouvé une macro créée par @kiki29 il y a déjà un bon moment (Pris dans son récap des possibilités de jouer avec les PDF et Excel dont voici le lien).

Mon problème est qu'il exporte la capture d'écran au format PDF. Cela fonctionne parfaitement, mais je voudrais bien, en fait, sauvegarder la capture comme image dans un fichier Word.
J'ai bien sûr essayer de voir le code et si je pouvais le modifier. Mais le Hic est que Kiki29 a utilisé des concepts que je ne connais pas. Du genre "Const VK_SNAPSHOT = 44" voire " keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0" et d'autres.

Donc j'avoue humblement que d'une part j'aimerais bien comprendre ce genre d'instruction (L'aide sur les "Constantes KeyCode" m'a permis de comprendre l'idée générale, mais c'est tout.).

Je vous joins un fichier exemple très simple qui utilise la macro de Kiki29, et qui marche parfaitement bien.
Si une personne charitable pouvait :

1. M'expliquer le code de kiki29.
2. M'aider à créer une macro qui ferait le même genre de chose, à savoir:
   1. Prendre un "cliché" du formulaire au format Bmp, ou autre (.jpg, ...). Le format n'est une contrainte pour autant qu'il puisse être inclus dans un document.
   2. Pouvoir créer un document Word (format .docx) qui contiendrait ce cliché du formulaire. Le doc sera créé dans le répertoire du classeur, et avec le nom du formulaire.

Je vous joins un petit fichier qui m'a permis de tester la macro de kiki29. Il est minimaliste, juste un formulaire avec quelques contrôles bidons, et 3 boutons.
Un pour l'export vers PDF = "CommandButton1", le deuxième "CommandButton2" qui ne sert à rien d'autre que d'exister, et un troisième "CommandButton3" qui me servirait à créer le fameux document Word;

Si une âme charitable pouvait m'aider je lui en serais reconnaissant.
En attendant je vous souhaite à tous une bonne soirée.

 

[patricktoulon]

bonsoir jeff

Private Sub CommandButton3_Click()
    PrintScreen
    DoEvents
    Dim wdApp As Object, wdDoc As Object
    ' creation de l'object application word
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    ' on créé un document
    Set wdDoc = wdApp.Documents.Add
    ' on colle la capture dans le document
    wdApp.Selection.Paste
    'on centre le tout
    wdApp.Selection.ParagraphFormat.Alignment = 1 ' 0=Left, 1=Center, 2=Right
    ' enregistrement du document
    wdDoc.SaveAs2 Environ("userprofile") & "\desktop\mon userform.docx"
    'on ferme
    wdDoc.Close
    wdApp.Quit
    MsgBox "enregistrement de la capture dans un fichier docw(word) terminé"
End Sub

 

[patricktoulon]

et avec du texte avant et apres

Private Sub CommandButton3_Click()
    PrintScreen
    DoEvents
    Dim wdApp As Object, wdDoc As Object
    ' creation de l'object application word
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    ' on créé un document
    Set wdDoc = wdApp.Documents.Add
    'on ecrit le texte avant
    wdApp.Selection.TypeText "Voici la capture d'écran :" & vbCrLf
    ' on colle la capture dans le document
    wdApp.Selection.Paste
    'on centre le tout
    wdApp.Selection.ParagraphFormat.Alignment = 1 ' 0=Left, 1=Center, 2=Right
    'on ecrit du texte appres
    wdApp.Selection.TypeParagraph
    wdApp.Selection.ParagraphFormat.Alignment = 0 ' 0=Left, 1=Center, 2=Right
    wdApp.Selection.TypeText "Fin de la capture." & vbCrLf
    ' enregistrement du document
    wdDoc.SaveAs2 Environ("userprofile") & "\desktop\mon userform.docx"
    'on ferme
    wdDoc.Close
    wdApp.Quit
    MsgBox "enregistrement de la capture dans un fichier docx (word) terminé"
End Sub

 

[job75]

Bonsoir à tous,

Je ne vois pas trop l'intérêt de créer un fichier Word avec une copie de l'image de l'UserForm mais bon :

    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
    sNomPDF = ActiveWorkbook.Path & "\UserForm.pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomPDF
    
    Set Wapp = CreateObject("Word.Application")
    Wapp.Visible = True
    Set Wdoc = Wapp.Documents.Add
    ActiveSheet.Shapes(1).CopyPicture
    Wapp.Selection.Paste
    Wdoc.SaveAs ActiveWorkbook.Path & "\UserForm.docx"
    Wdoc.Close False
    Wapp.Quit
    MsgBox "Les fichiers 'UserForm.pdf' et 'UserForm.docx' ont été créés..."

Le même bouton crée le fichier pdf et le fichier Word.

Bonne nuit.

 

[patricktoulon]

Bonsoir @job75

ActiveSheet.Shapes(1).CopyPicture
    Wapp.Selection.Paste

???????????????😵
on copie la copie pourquoi???????????????????
la capture est deja dans le clipboard

 

[job75]

Oui c'est sans doute inutile, juste une précaution au cas où le clipboard serait vide.

 

[jeff1494]

Bonjour à toutes et tous;
Tout d'abord un grand merci à @job75 ainsi qu'a @patricktoulon pour leurs réponses.

Ma demande est tout simplement d'avoir quelques outils pour aider a créer une documentation d'un projet VBA. Rien de plus.

@job75 : L'idée de départ est de pouvoir documenter un formulaire. Avec Word je peux documenter chaque contrôle avec un N° de référence et ainsi expliquer quelle est par exemple la règle de gestion pour ce contrôle.
Avec les quelques autres outils que j'ai, je devrais être capable de produire une documentation complète d'un projet.

@patricktoulon : Un grand merci pour ces codes qui vont plus loin que ce que j'avais demandé. Cela va me permettre de commencer à créer ma documentation.

Sur ce je vous souhaite une bonne journée à toutes et tous.