Insertion d'un useform dans une feuille

Bonjour,

J'aimerai insérer dans ma feuille "gestion" mon useform de ce fait je n'aurai plus mon macro pour lancer mon formulaire,

J'ai regardé sur la toile mais j'ai pas réussit,

Je vous explique ce que j'ai fait:

j'ai coller ca tout en haut de ma feuille,

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

et ensuite:

Private Sub UserForm_Initialize()
    Me.Height = 510
    Me.Width = 290
initialisation_tab
Dim Ws As Worksheet
'Copie d'écran de la forme active
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
'Ajoute une feuille pour coller l'image de la forme
Ws = ThisWorkbook.Sheets("Gestion").Past

'impression centrée dans la page
With Ws
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With

J'ai eu quelques impression d'ecran du code dans ma fiche exel puis aprés ca n'a plus marché du tout,

Si quelqu'un veut bien m'aider merci

Bonjour

Sans fichier pour tester

Cette ligne m'intrigue

Ws = ThisWorkbook.Sheets("Gestion").Past

Pour initialiser un objet normalement c'est Set Ws = ......

Le Past : Veut dire quoi ?

Une nouveauté 2007 ?

Il faut ton fichier

Bonjour,

Merci de votre aide, c'est un petit test de ma part, car je ne souhaite ouvrir un nouveau fichier mais plutot mettre mon userform dans la feuille Gestion.

Ci joint tout le lien pour avoir accès a mon fichier:

J'ai aussi passé le userform en showmodal en fasle

Merci

Bonjour

Je ne sais toujours pas ce que tu veux faire

Il manque des déclarations de variable

Il faut utiliser

Set Ws = ThisWorkbook.Sheets("Gestion")

En lançant le programme il y à une image de la page qui arrive et une impression de la 1ère page

C'est peut-être ce que tu veux, alors en faisant les corrections indiquées cela ira

En faite peut etre que c'est pas ce que je veux,

Ce que je désire, c'est que mon formulaire qui apparait quand j'appuie sur mon bouton lancer, soit en permanence présent, sur ma feuille! Il me resterai plus qu'a remplir et cliquer sur ajouter! J'aimerai supprimer l'etape ou j'appuie sur lancer puis une fois que le formulaire apparait j'ajoute mes conctacts!

Est ce que je me suis bien expliqué?

En effet j'ai modifié ce que tu m'as dit et cela marche mais je me retrouve avec un imprime ecran de mon ecran.

Bonjour

loic84 a écrit :

soit en permanence présent

L'userform s'affiche à l'ouverture

loic84 a écrit :

mais je me retrouve avec un imprime ecran de mon ecran.

Suppression du code