Discussion :

[HAFNI84]

Bonjour
J'ai Une Question Tres Precise Mon Sujet De Projet Est De Creer Une Classeur Avec Des Feuilles Qui Gere Les Stagiere De Cet Annee Et Des Annees Prochaines Je Voudrais Savoir Si'il Y A Une Methodes De Copier La Classeur Courant Avec Sa Structure (nb De Pages-les Formulaires -les Procedures) Dans Un Autres Qui N'est Pas Encore Creer Ou Simplement De Copier Les Procedure D'un Classeur Vers Un Autre Qui N'existe Pas Encore

[ouskel'n'or]

Il est en effet possible d'exporter tous types de modules (ce qui inclut les Userforms) à partir d'un classeur, pour les importer dans un autre. Exemple :

Code :

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

1
2
3
4
5
6
Sub Exporter()
    For Each VBComp In ThisWorkbook.VBProject.VBComponents
        If VBComp.Type = 3 Then _
            VBComp.Export "c:\Chemin\" & VBComp.Name & ".frm"
    Next VBComp
End Sub

A+
Manuellement -> Clic droit sur le nom du module -> Exporter...

[HAFNI84]

EN FAIT JE VOUDRAIS PLUS SAVOIR SUR L'OBJET VBPROJECT SI T'AS UN LIEN VERS LE NET PARCEQUE JE TROUVE PAS

[ouskel'n'or]

Evite les majuscules dans tes messages (lis les règles du forum )
Pour ta question, je n'ai pas de lien, quand j'ai besoin d'aide sur un terme, je fais F1 ou je vais sur la FAQ. Regarde ici, tu trouveras peut-être ton bonheur.
Tu devrais aussi t'intéresser à l'objet VBComponent et à sa propriété Type, dans l'aide tu as une description des constantes utilisables.
A+

[HAFNI84]

Je viens de le lire merci pour votre aide je vais essayer de travailler dessus
et faire des tests entre temps merci pour tous

[ouskel'n'or]

Dans l'exemple donné, j'ai mis 3 pour le type (en l'occurence, type userform) Voici la liste des types disponibles

Code :

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

1
2
3
4
5
vbext_ct_StdModule		1	Module standard
vbext_ct_ClassModule		2	Module de classe
vbext_ct_MSForm			3	Feuille Microsoft
vbext_ct_ActiveXDesigner	11	Concepteur ActiveX
vbext_ct_Document		100	Module document

Pour répondre à une question qu'on m'a posée par mp