Rapport de message :*
 

Re: archivage avec userform

Titre du sujet : Re: archivage avec userform
par Guy le 24/10/2009 21:14:31

Bonjour,
  1. Option Explicit a été ajouté aux différents modules de code.
  2. FileFormat:=xlOpenXMLWorkbookMacroEnabled a été commenté. L'extension étant .xls je suppose que le classeur est au format 97-2003
  3. Le commentaire : "'permet de selectionner les cellule dont les valeur donneront le nom au fichier pour l'archivage (H2)nom du ficher,(H3)nom de la feuille" a été corrigé. On devrait lire "(H2)nom du dossier,(H3)nom du classeur.
  4. La variable F a été correctement déclarée.
  5. Le bouton Archiver la feuille devra-t-il être encore présent sur la feuille archivée? Si oui, il y a peut-être problème. Ce bouton est éliminé lors de l'archivage.
  6. Les classeurs contenus dans le dossier PP116B, seul dossier que j'ai parcouru, sont des classeurs invalides. Je te suggère d'éliminer tous les classeurs précédemment créés.
  7. Un message d'erreur s'affiche à la fermeture, pas facile à suivre.
  8. Le code suivant a été ajouté dans mac1()
    '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   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