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

[Duster 40]

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)

 

[JCGL]

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

 

[Duster 40]

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

 

[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

 

[Duster 40]

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

Merci beaucoup !!!

Mais ça ne fonctionne quand même pas 🙁

 

[JCGL]

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

 

[Duster 40]

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 ...

 

[JCGL]

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

Bonjour à tous,

Remplace la ligne par :

ActiveSheet.Shapes("Image 1").Delete

Testé par 00 (Double Zéro) que je bise ++ ...

A+ à tous

 

[JCGL]

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

Bonjour à tous,

Remplace la ligne par :

ActiveSheet.Shapes("Image 1").Delete

Testé par 00 (Double Zéro) que je bise ++ ...

A+ à tous

 

[Duster 40]

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 ??

 

[JCGL]

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

Bonjour à tous,

Peux-tu essayer avec :

Range("B5:H80").ClearContents
Range( "F2").ClearContents

Non tu n'abuses pas. Mais je ne comprends pas ces "erreurs" par raport à XL 2013.

A+ à tous

 

[Duster 40]

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 ??

 

[JCGL]

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

 

[Duster 40]

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

Bonsoir tous

Voilà mon fichier !

C'est le même que l'autre jour ??

 

[JCGL]

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