Discussion :

[bob456]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

Bonjour
Une base de travail.

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

[bob456]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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