Horodatage d'actions
Bonjour à tous,
Pour des fins professionnel je cherche à suivre une production via un fichier Excel qui me permettra de tracer plusieurs événements
Début de lot (horodatage et user)
Gestion des données de lot
Fin de lot (horodatage)
Impression du rapport de lot
En cours de développement je suis confronté à un problème avec la gestion de l'horodatage.
J'ai créé un bouton par action sur lequel une macro est dédiée. Indépendamment l'une de l'autre ces fonctionnalités marche, mon problème est que l'action sur le bouton fin de lot met à jour les deux champs et inversement.
Pouvez vous s'il vous plait m'aider à corriger ce problème.
Merci
Sub Lancer_Le_Lot()
Range("B9") = "=NOW()"
Range("B10") = Environ("username")
End Sub
Sub Lancer_La_Fin_De_Lot()
Range("B27") = "=NOW()"
End Sub
Bonjour Buell1200,
Insérer cette Macro CopyNow sous la ligne = Now(). Pour les 2 macros présentes.
Sub CopyNow
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValue
ActiveSheet.Paste
Application.cutCopyMode=False
End SubExemple:
Sub Lancer_Le_Lot()
Range("B9") = "=NOW()"
CopyNow
Range("B10") = Environ("username")
End SubBons tests, bonne continuation.
Bonjour,
Sub Lancer_Le_Lot()
Range("B9") = Now
Range("B10") = Environ("username")
End Sub
Sub Lancer_La_Fin_De_Lot()
Range("B27") = Now
End Sub
Avec "=Now()" tu fais appel à la fonction MAINTENANT() d'Excel qui est volatile.
Cordialement
Bonjour X cellus,
Suivant tes conseils je viens de saisir cela
Sub CopyNow()
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValue
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Sub Lancer_Le_Lot()
Range("B9") = "=NOW()"
CopyNow
Range("B10") = Environ("username")
PO.Show
End Sub
et un défaut se produit sur la ligne "Selection.PasteSpecial Paste:=xlPasteValue"
Merci pour ton aide
Suite,
En effet en reportant j'ai oubliè le s un xlpasteValues.
Mais la réponse de R@achid est plus rapide si Now() n'est pas nécessaire.
Bonjour X cellus,
Suivant tes conseils je viens de saisir cela
Sub CopyNow()
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValue
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Sub Lancer_Le_Lot()
Range("B9") = "=NOW()"
CopyNow
Range("B10") = Environ("username")
PO.Show
End Sub
et un défaut se produit sur la ligne "Selection.PasteSpecial Paste:=xlPasteValue"
Merci pour ton aide
Merci beaucoup pour votre aide les gars,
Cela fonctionne très bien
Bon dimanche