Re: archivage avec userform |
Titre du sujet : Re: archivage avec userform par Guy le 24/10/2009 21:14:31 Bonjour,
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= NomDeLaFeuille = Range("H3") CheminCompletModuleDeCode = ThisWorkbook.Path & "\" Set ClasseurSource = ThisWorkbook Set ClasseurCible = ActiveWorkbook ' Exportation des modules de ce classeur ClasseurSource.VBProject.VBComponents("UserForm2").Export CheminCompletModuleDeCode & "UserForm2.frm" ClasseurSource.VBProject.VBComponents("Module1").Export CheminCompletModuleDeCode & "Module1.bas" ' Importation des modules dans le classeur archivé ClasseurCible.VBProject.VBComponents.Import CheminCompletModuleDeCode & "UserForm2.frm" ClasseurCible.VBProject.VBComponents.Import CheminCompletModuleDeCode & "Module1.bas" ' Suppression du bouton d'archivage Set Feuille = ClasseurCible.Worksheets(NomDeLaFeuille) Feuille.Shapes("CommandButton1").Delete ' Lébération des ressources Set ClasseurCible = Nothing Set ClasseurSource = Nothing Set Feuille = Nothing Kill CheminCompletModuleDeCode & "UserForm2.frm" Kill CheminCompletModuleDeCode & "Module1.bas" '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Tester le classeur envoyé et me rapporter les éventuels problèmes. Comme j'ai importé la structure des dossiers avec le premier envoi, il suffira de ne télécharger qu'un seul fichier ici. Cordialement, Guy |
Forums