Export Useform + feuille

Bonjour,

J'aimerais pouvoir exporter en plus de ma feuille un useform.
Simplement car, si l'utilisateur veux modifier quelques informations il a besoins de ce useform.

j'ai ce code là pour le moment :

Code:

---

1 2 3 4 5 6 7 8 9 10

'On sauvegarde le fichier à l'emplacement définit ci dessus puis on renseigne son nom _   On copie seulement la feuille en cours / on désactive les alertes / on sauvegarde / on renomme le fichier ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.Close savechanges:=True, _ Filename:=emplacement_fichier _ & territoire _ & "_" & metier _ & "_" & date_enquete _ & ".xls"

---

Cela sauvegarde bien la feuille mais je ne sais pas comment lui intégrer le useform.

Merci de votre (futur) Aide :ccool:

Bonjour
Une base de travail.

http://silkyroad.developpez.com/VBA/...cEditor/#LIV-E

Merci ça marche niquel, sauf que à un moment, ça a enregistrer un autre fichier excel qui n'était pas ouvert... Bug je pense car comment "ActiveWorkbook" peut etre un WorkBook non-ouvert ?

Code:

---

1 2 3 4 5 6 7 8 9

ThisWorkbook.VBProject.VBComponents("UserForm3").Export emplacement_userform & "userform.frm"   'On sauvegarde le fichier à l'emplacement définit ci dessus puis on renseigne son nom _   On copie seulement la feuille en cours / on désactive les alertes / on sauvegarde / on renomme le fichier ActiveSheet.Copy Application.DisplayAlerts = False 'Transfert l'USF ActiveWorkbook.VBProject.VBComponents.Import emplacement_userform & "userform.frm" 'Fin Transfert

---

Voila le mini bout de code qui fonctionne