Sauvegarde d'un Userform

[captainejack]

Bonjour à tout le Forum

J'ai créé cette Userform (fichier joint) pour faire des fiches que j'imprime .
Je souhaiterai sauvegardé cet Userform sous Word, de façon à le réimprimer tel qu'il se présente.
Est ce possible? Et quel serait le code du bouton que je vais ajouter?
En vous remerciant pour votre aide

Slts

Dan

 

[MJ13]

Re : Sauvegarde d'un Userform

Bonjour CapitaineJack

Essaye:

Alt+Impr Ecran puis ouvre Word puis ctrl +v.

 

[captainejack]

Re : Sauvegarde d'un Userform

Bjr MJ13
Merci pour l'info, mais j' avais pensé à cette solution mais je suis sûre qu'il existe un code pour l'enregistrement....

Slts

 

[captainejack]

Re : Sauvegarde d'un Userform

Bjr à tous

Quel serait le code VBA pour ajouter un bouton sur mon USERFORM , pour l'enregistrer avec les donnéesdans mes documents en document Word?

En vous remerciant
Slts

 

[YANN-56]

Re : Sauvegarde d'un Userform

Bonsoir captainejack, Michel 🙂, et à ceux qui passeront par ici,

Il y a un moyen que j'utilise parfois avec un bouton provisoire dans L'USF:

Dim LES_TRUCS As Control

For Each LES_TRUCS In Me.Controls
N=N+1
    If TypeName(LES_TRUCS) = "CommandButton" Then
      With ActiveSheet
      .Cells(N, 1).Value = LES_TRUCS.Name
      .Cells(N, 2).Value = LES_TRUCS.Top
      .Cells(N, 3).Value = LES_TRUCS.Left
      .Cells(N, 3).Value = LES_TRUCS.Caption
      ' Et c.
    End If

    If TypeName(LES_TRUCS) = "TextBox" Then
      .....................................
       ........................................
      .Cells(N, 3).Value = LES_TRUCS.Value
   ' "Value", car le TextBox n'a oas de "Caption"
    End if
Next LES_TRUCS

A chercher de ce coté éventuellement.

Amicalement,

Yann

 

[JNP]

Re : Sauvegarde d'un Userform

Bonjour le fil 🙂,
En développant la solution de Michel avec SendKeys éventuellement 🙄...
Bonne soirée 😎

 

[YANN-56]

Re : Sauvegarde d'un Userform

Post effacé par mes soins!

Je n'avais pas bien compris la question.

Ma réponse était donc inappropriée

Désolé

Yann

 

[captainejack]

Re : Sauvegarde d'un Userform

Merci Yann

Merci pour le code
Je supose que les "trucs" c'est le non de mon Userfor et le nom de mes textbox
Par contre je ne comprends pas très bien le code car je ne vois pas le chemin pour l'enregistrement(C:\Users\....)
Peut on m'expliquer
Slts
Dan

 

[JNP]

Re : Sauvegarde d'un Userform

Re 🙂,
Pas sûr que tu lises vraiment les réponses 🙄...

Essaye:
Alt+Impr Ecran puis ouvre Word puis ctrl +v.

j' avais pensé à cette solution mais je suis sûre qu'il existe un code pour l'enregistrement....

En développant la solution de Michel avec SendKeys éventuellement 🙄...

Je n'avais pas bien compris la question.
Ma réponse était donc inappropriée

Par contre je ne comprends pas très bien le code car je ne vois pas le chemin pour l'enregistrement(C:\Users\....)

La solution de Yann sauvegarde les données dans une feuille Excel, donc tu ne risques pas de trouver de chemin 🙄...
Michel te proposait de faire une copie écran, tu souhaites le faire par code, je te proposes l'utilisation de SendKeys qui simule une frappe écran, donc te permettra de copier l'écran, il suffit que tu crées via VBA un fichier Word, une petite temporisation pour que le fichier soit bien ouvert, et simuler un Coller 🙄...
Bonne méditation 😎