Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrement de feuilles d'après une saisie, puis retour vierge

  • Initiateur de la discussion Initiateur de la discussion Duster 40
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Duster 40

XLDnaute Nouveau
Bonjour tous,
J’essai de me bricoler un fichier pour le boulot, mais là, ça coince !
JCGL m’avait réalisé quelque chose de similaire, mais je suis incapable d’adapter ce qu’il m’avait fait.

Voilà en quelques mots ce qui m’intéresserait :
Ma feuille « saisie », une fois renseignée, viendrait générer une nouvelle feuille nommée avec la date de la saisie, puis se retrouverait vierge. Une autre feuille sommaire serait également renseignée par des liens hypertexte qui me ramènerait à la feuille « datée » désirée.
Je m’explique : je renseigne ma feuille « saisie », tout au long de la journée.
A 4 heures du matin , donc le lendemain (c’est là le plus délicat je pense), elle vient me créer une feuille onglet nommée avec la date de la saisie, puis redevient vierge. Et vient également renseigner ma feuille « sommaire » (comme indiqué plus haut)
Le déclenchement de l’enregistrement ne peut se faire que quand la date de ma feuille « saisie » est renseignée. (comprenez bien qu’il est inutile d’enregistrer une feuille vierge)
De plus, je souhaiterai pouvoir à tout moment, modifier ou compléter les données de mes menus déroulants.

 - Le 08/06/2013 je renseigne ma feuille « saisie »
 - Le 09/06/2013, à 4 heures du mat. L’enregistrement de la feuille du 08 se fait(si elle est datée), et la feuille redevient vierge

Oups !! J’espère que c’est compréhensible …

Merci de votre aide 🙂

Voilà mon fichier ...
(Excel 2007 & 2010)
 

Pièces jointes

Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Un essai sans déclenchement à 04 h.
Il faut cliquer sur l'image.

A+ à tous
 

Pièces jointes

Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonsoir tous,

Merci JCGL, mais la fenêtre "fin/débogage" s'ouvre ....
Je me suis mal exprimé peut-être ?
La feuille de "saisie" est renseignée aujourd'hui !
Demain matin à 4 h00, elle s'archive (si la date de la feuille "saisie "est renseignée)
Quelque part, je ne veux pas de bouton pour l'archivage, car cette feuille est remplie par des opérateurs qui pourraient à tout moment cliquer sur le bouton ...
Si c'est trop complexe, c'est pas grave !
Mais ce serait cool ! actuellement, toutes ces feuilles sont reprises quotidiennement à la main, et c'est très lourd!

Merci JCGL
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Merci JCGL, mais la fenêtre "fin/débogage" s'ouvre ....

Ne veut rien dire...

"Docteur, je suis malade, il me faut des médicaments..."

Pour le déclenchement à une heure fixée, c'est possible mais cela implique que le poste soit sur une session ouverte.
Il faut utiliser le planificateur de tâches pour ouvrir une session XL, lancer la procédure et refermer XL.

A mon avis beaucoup de contraintes basées sur la supposée "maladresse" de tes collègues.
Il est préférable de les "former"...

A+ à tous
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Comme dit laconiquement dans mon précédent message : Où (sur quelle ligne) as-tu le débogage ?


A+ à tous
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonsoir,

Voilà, c'est sur la ligne soulignée en noir ??

Sub Archivage()
Dim DerL&, Nom As String
DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row + 1

Feuil2.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Cells(2, 6).Value, "ddmmyyyy")
Nom = ActiveSheet.Name
Nom = Nom
ActiveSheet.Shapes.Range(Array("Picture 1")).Delete
Feuil1.Activate
Range("A" & DerL).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Nom & "'!F2", TextToDisplay:=Nom
Feuil2.Activate
Range("B5:H80", "F2").ClearContents
Range("F2").Select
End Sub


Désolé mais je ne comprend rien aux macros ...
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Oups !!

Maintenant, c'est celle-là:
--> Range("B5:H80", "F2").ClearContents

Et en "forçant", la feuille s'enregistre bien, le sommaire se renseigne, mais la feuille de saisie ne redevient pas "vierge" ??

J'abuse, peut-être ??
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonsoir,

l'erreur est maintenant là:
--> Range("B5:H80").ClearContents

Et la feuille de saisie "journée" reste renseignée. Elle ne redevient pas vierge ??
 
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Merci de joindre ton fichier.

A+ à tous

Edition : un fichier qui teste l’existence d'une feuille sur une journée
 

Pièces jointes

Dernière édition:
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Là, tu exagères...
Tu n'as même pas tenté de déposer le code dans un module...

A+ à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…