comment garder une liste des factures effectuees sur excel
1 réponse
lehcim
une fois le bon decommande validé je souhaite en garder une trace sur une
autre feuille excel. Cette feuille ne me garde que les indications
essentielles
losque je valide le b de cde, le comperur se met à x+1 et la trame du bon de
commande est à nouveau vierge
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour lehcim,
voici une ébauche de procédure :
'---------------------------------------- Sub CompteurEtSauvegardeDuClasseur()
Dim Chemin As String Dim Nom As String
'À déterminer où sauvegarder la copie Chemin = "c:Atravail" 'Nom du fichier composé du nom de la feuille 'et de la date et l'heure de l'enregistrement Nom = ActiveSheet.Name & _ Format(Now, "ddmmyy-hhmmss")
Application.ScreenUpdating = False ActiveSheet.Copy ActiveWorkbook.SaveAs Chemin & Nom ActiveWorkbook.Close False
'Incrémentation de la cellule servant de compteur Range("A1") = Range("A1") + 1
'Et tu pourrais ajouter les cellules à effacer 'au document (facture en cours)pour pouvoir 'saisir une autre facture.
End Sub '----------------------------------------
Salutations!
"lehcim" a écrit dans le message de news: une fois le bon decommande validé je souhaite en garder une trace sur une autre feuille excel. Cette feuille ne me garde que les indications essentielles losque je valide le b de cde, le comperur se met à x+1 et la trame du bon de commande est à nouveau vierge
Bonjour lehcim,
voici une ébauche de procédure :
'----------------------------------------
Sub CompteurEtSauvegardeDuClasseur()
Dim Chemin As String
Dim Nom As String
'À déterminer où sauvegarder la copie
Chemin = "c:Atravail"
'Nom du fichier composé du nom de la feuille
'et de la date et l'heure de l'enregistrement
Nom = ActiveSheet.Name & _
Format(Now, "ddmmyy-hhmmss")
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Chemin & Nom
ActiveWorkbook.Close False
'Incrémentation de la cellule servant de compteur
Range("A1") = Range("A1") + 1
'Et tu pourrais ajouter les cellules à effacer
'au document (facture en cours)pour pouvoir
'saisir une autre facture.
End Sub
'----------------------------------------
Salutations!
"lehcim" <lehcim@discussions.microsoft.com> a écrit dans le message de news: A4DF3B38-587B-45EB-96AB-9E4D97E2CD8D@microsoft.com...
une fois le bon decommande validé je souhaite en garder une trace sur une
autre feuille excel. Cette feuille ne me garde que les indications
essentielles
losque je valide le b de cde, le comperur se met à x+1 et la trame du bon de
commande est à nouveau vierge
'---------------------------------------- Sub CompteurEtSauvegardeDuClasseur()
Dim Chemin As String Dim Nom As String
'À déterminer où sauvegarder la copie Chemin = "c:Atravail" 'Nom du fichier composé du nom de la feuille 'et de la date et l'heure de l'enregistrement Nom = ActiveSheet.Name & _ Format(Now, "ddmmyy-hhmmss")
Application.ScreenUpdating = False ActiveSheet.Copy ActiveWorkbook.SaveAs Chemin & Nom ActiveWorkbook.Close False
'Incrémentation de la cellule servant de compteur Range("A1") = Range("A1") + 1
'Et tu pourrais ajouter les cellules à effacer 'au document (facture en cours)pour pouvoir 'saisir une autre facture.
End Sub '----------------------------------------
Salutations!
"lehcim" a écrit dans le message de news: une fois le bon decommande validé je souhaite en garder une trace sur une autre feuille excel. Cette feuille ne me garde que les indications essentielles losque je valide le b de cde, le comperur se met à x+1 et la trame du bon de commande est à nouveau vierge
