Rapport de message :*
 

Re: archivage avec userform

Titre du sujet : Re: archivage avec userform
par Guy le 24/10/2009 16:40:45

Bonjour Claude40,

Quelques irritants à corriger :
  1. Tous les modules de code ne portent pas Option Explicit
  2. Procédure mac2() du Module1 un étrange ActiveWorbook (il manque un K) ne provoque pas d'erreur, voir point 1.
  3. Procédure mac1() du Module1 le type de fichier à archiver est xlOpenXMLWorkbookMacroEnabled, or l'extension appliquée est .xls. Incohérence.
  4. Suivant le code de la feuille Modèle, il faudra transbahuter non seulement le formulaire calendrier (UserForm2) mais aussi le module Module1 puisque des appels à mac1() et mac2() y sont.
  5. Aussi, pourquoi ratatiner les lignes d'espacement et l'indentation du code envoyé le 19 octobre? L'éditeur de VBA se fout complètement des espaces multiples et des lignes vides, le lecteur du code cependant peut y apprécier la manière pour s'y retrouver plus facilement.
  6. Tel qu'il est monté, sur mon poste au moins, une erreur "L'indice n'appartient pas à la sélection." se produit à l'archivage. Est-ce le cas sur ton poste?
  7. Dans la procédure Auto_Close(), l'instruction Unload UserForm2 provoque une erreur. Normal, UserForm2 n'est pas chargé!

Identiquement prends l'habitude de compiler ton code de temps à autre : menu Débogage/Compiler VBAProject. Ça évite bien des aller-retour dans un forum et ça ménage les nerfs des bougres qui tentent de t'aider.

Voilà, corrige un peu la chose et télécharge-la ICI au lieu de cijoint.fr après on s'amusera à exporter et importer les Module1 et UserForm2.

Cordialement,

Guy