enregistrement facture au format xlsm

**orguyrine006** · 31/05/2019, 20h01

Bonjour

Pouvez vous m aider je suis bloquer pour l'enregistrement de ma facture au format excel afin de la réouvrir pour pouvoir la modifier en cas d'erreur.
Mes recherches sont infructueuses sur le net
Je vous joins le fichier

En vous remerciant de votre compréhension

https://share.orange.fr/#rKDyDUfIkD43a4495c60

Orguyrine

**Jean-Philippe André** · 31/05/2019, 20h16

Salut,

ouvrir des fichiers avec macro c'est jamais une bonne chose, aussi je te suggère pour optimiser tes chances de retour, de nous fournir plutôt le code VBA que tu utilises actuellement et nous indiquer à quel endroit tu rencontrerais des difficultés

**orguyrine006** · 01/06/2019, 09h50

Envoyé par Jean-Philippe André

Salut,

ouvrir des fichiers avec macro c'est jamais une bonne chose, aussi je te suggère pour optimiser tes chances de retour, de nous fournir plutôt le code VBA que tu utilises actuellement et nous indiquer à quel endroit tu rencontrerais des difficultés

Bonjour

Je vous remercie de prendre mon problème en considération

Dans mon fichier ci-dessus je voudrais créer une sauvegarde de la facture avec toutes les données . Pour éventuellement la modifier en cas d'erreur ou de modification importante.
Je bloque complétement sur le code .je ne vois pas comment enregistrer avec le numero de facture plusieurs articles et comment pourvoir modifier cette facture sauvegardeée

En vous remerciant de votre compréhension

orguyrine

https://share.orange.fr/#rKDyDUfIkD43a4495c60

**ARTURO83** · 02/06/2019, 06h31

Bonjour,

Pour Archiver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Archiver()
    Dim Lig As Long, i As Long, Col_f1 As Long
    Dim f1 As Worksheet, f2 As Worksheet
 
    Application.ScreenUpdating = False
    Set f1 = Sheets("Historique_facture")
    Set f2 = Sheets("Facture")
    Lig = f1.Range("A2").End(xlDown).Row + 1
    f1.Range("A" & Lig).Value = f2.Range("F9").Value
    f1.Range("B" & Lig).Value = f2.Range("D4").Value
    f1.Range("C" & Lig).Value = f2.Range("d5").Value
    f1.Range("D" & Lig).Value = f2.Range("C8").Value
    f1.Range("E" & Lig).Value = f2.Range("C9").Value
    f1.Range("F" & Lig).Value = f2.Range("C10").Value
    f1.Range("G" & Lig).Value = f2.Range("F30").Value
    f1.Range("H" & Lig).Value = f2.Range("F33").Value
    f1.Range("I" & Lig).Value = f2.Range("D7").Value
 
    Col_f1 = 10
    For i = 13 To 28
        If f2.Cells(i, "D") = "" Then Exit For
        f1.Cells(Lig, Col_f1) = f1.Cells(Lig, Col_f1) & "_" & f2.Cells(i, "B") & "_" & f2.Cells(i, "C") & "_" & f2.Cells(i, "D") & "_" & f2.Cells(i, "E") & "_" & f2.Cells(i, "F")
        f1.Cells(Lig, Col_f1) = Right(f1.Cells(Lig, Col_f1), Len(f1.Cells(Lig, Col_f1)) - 1)
        Col_f1 = Col_f1 + 1
    Next i
 
    f2.Range("D13:D28").ClearContents
    f2.Range("D5").ClearContents
    Afficher_prochain_N°_de_facture
 
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Pour restituer une facture archivée (se positionner sur une des cellules de la facture à restituer et cliquer sur le bouton, attention la facture archivée doit contenir au moins 1 article)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Restituer_facture_archivee()
    Dim L As Long, i As Long, DerLig As Long
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set f1 = Sheets("Historique_facture")
    Set f2 = Sheets("Facture")
 
    Lig = Selection.Row
    f2.Range("D13:D28").ClearContents
    f2.Range("D5").ClearContents
 
    f2.Range("F9").Value = f1.Range("A" & Lig).Value
    f2.Range("D4").Value = f1.Range("B" & Lig).Value
    f2.Range("d5").Value = f1.Range("C" & Lig).Value
    f2.Range("C8").Value = f1.Range("D" & Lig).Value
    f2.Range("C9").Value = f1.Range("E" & Lig).Value
    f2.Range("C10").Value = f1.Range("F" & Lig).Value
    f2.Range("F30").Value = f1.Range("G" & Lig).Value
    f2.Range("F33").Value = f1.Range("H" & Lig).Value
    f2.Range("D7").Value = f1.Range("I" & Lig).Value
 
    Sheets("Facture").Select
    L = 13
    For i = 10 To 26
        If f1.Cells(Lig, i) <> "" Then
            f1.Cells(Lig, i).Copy Destination:=f2.Cells(L, "B")
            L = L + 1
        End If
    Next i
 
    f2.Select
    DerLig = [B13].End(xlDown).Row
    Range("B13:B" & DerLig).TextToColumns Destination:=Range("B13"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True
 
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Formule pour afficher le Prochain N° de facture. (pour remettre le bon N° après avoir réinjecter une facture archivée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Afficher_prochain_N°_de_facture()
    Sheets("Facture").Range("F9").FormulaR1C1 = "=MAX(Historique_facture!C[-5])+1"
End Sub

Avec le fichier zippé
https://mon-partage.fr/f/F3aSQzH7/

Cdlt

**orguyrine006** · 03/06/2019, 15h31

Envoyé par ARTURO83

Bonjour,

Pour Archiver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Archiver()
    Dim Lig As Long, i As Long, Col_f1 As Long
    Dim f1 As Worksheet, f2 As Worksheet
 
    Application.ScreenUpdating = False
    Set f1 = Sheets("Historique_facture")
    Set f2 = Sheets("Facture")
    Lig = f1.Range("A2").End(xlDown).Row + 1
    f1.Range("A" & Lig).Value = f2.Range("F9").Value
    f1.Range("B" & Lig).Value = f2.Range("D4").Value
    f1.Range("C" & Lig).Value = f2.Range("d5").Value
    f1.Range("D" & Lig).Value = f2.Range("C8").Value
    f1.Range("E" & Lig).Value = f2.Range("C9").Value
    f1.Range("F" & Lig).Value = f2.Range("C10").Value
    f1.Range("G" & Lig).Value = f2.Range("F30").Value
    f1.Range("H" & Lig).Value = f2.Range("F33").Value
    f1.Range("I" & Lig).Value = f2.Range("D7").Value
 
    Col_f1 = 10
    For i = 13 To 28
        If f2.Cells(i, "D") = "" Then Exit For
        f1.Cells(Lig, Col_f1) = f1.Cells(Lig, Col_f1) & "_" & f2.Cells(i, "B") & "_" & f2.Cells(i, "C") & "_" & f2.Cells(i, "D") & "_" & f2.Cells(i, "E") & "_" & f2.Cells(i, "F")
        f1.Cells(Lig, Col_f1) = Right(f1.Cells(Lig, Col_f1), Len(f1.Cells(Lig, Col_f1)) - 1)
        Col_f1 = Col_f1 + 1
    Next i
 
    f2.Range("D13:D28").ClearContents
    f2.Range("D5").ClearContents
    Afficher_prochain_N°_de_facture
 
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Pour restituer une facture archivée (se positionner sur une des cellules de la facture à restituer et cliquer sur le bouton, attention la facture archivée doit contenir au moins 1 article)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Restituer_facture_archivee()
    Dim L As Long, i As Long, DerLig As Long
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set f1 = Sheets("Historique_facture")
    Set f2 = Sheets("Facture")
 
    Lig = Selection.Row
    f2.Range("D13:D28").ClearContents
    f2.Range("D5").ClearContents
 
    f2.Range("F9").Value = f1.Range("A" & Lig).Value
    f2.Range("D4").Value = f1.Range("B" & Lig).Value
    f2.Range("d5").Value = f1.Range("C" & Lig).Value
    f2.Range("C8").Value = f1.Range("D" & Lig).Value
    f2.Range("C9").Value = f1.Range("E" & Lig).Value
    f2.Range("C10").Value = f1.Range("F" & Lig).Value
    f2.Range("F30").Value = f1.Range("G" & Lig).Value
    f2.Range("F33").Value = f1.Range("H" & Lig).Value
    f2.Range("D7").Value = f1.Range("I" & Lig).Value
 
    Sheets("Facture").Select
    L = 13
    For i = 10 To 26
        If f1.Cells(Lig, i) <> "" Then
            f1.Cells(Lig, i).Copy Destination:=f2.Cells(L, "B")
            L = L + 1
        End If
    Next i
 
    f2.Select
    DerLig = [B13].End(xlDown).Row
    Range("B13:B" & DerLig).TextToColumns Destination:=Range("B13"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True
 
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Formule pour afficher le Prochain N° de facture. (pour remettre le bon N° après avoir réinjecter une facture archivée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Afficher_prochain_N°_de_facture()
    Sheets("Facture").Range("F9").FormulaR1C1 = "=MAX(Historique_facture!C[-5])+1"
End Sub

Avec le fichier zippé
https://mon-partage.fr/f/F3aSQzH7/

Cdlt

Bonjour

Voici le code d'erreur sur la ligne set F2=Sheets("Historique_facture")

En vous remerciant

orguyrine

Nom : Capture d’écran (62).png
Affichages : 232
Taille : 204,1 Ko

Nom : Capture d’écran (62).png
Affichages : 232
Taille : 204,1 Ko

**Menhir** · 03/06/2019, 16h01

Envoyé par orguyrine006

Voici le code d'erreur sur la ligne set F2=Sheets("Historique_facture")

Etant donné que ce code commande par Option Explicit (ce qui est une très bonne chose), il faut que tu déclares toutes les variable qui sont utilisées dans le code (de préférence avec leur type).

**orguyrine006** · 04/06/2019, 14h19

Bonjour

Je viens vous remercier tous pour votre aide .
Maintenant je cherche à comprendre certaines astuces du code afin de progresser.

Bien cordialement

orguyrine

**Menhir** · 03/06/2019, 09h05

Envoyé par orguyrine006

Je vous joins le fichier

Envoyé par Jean-Philippe André

ouvrir des fichiers avec macro c'est jamais une bonne chose, aussi je te suggère pour optimiser tes chances de retour, de nous fournir plutôt le code VBA

Envoyé par orguyrine006

https://share.orange.fr/#rKDyDUfIkD43a4495c60

orguyrine006, as-tu lu la réponse #2 de Jean-Philippe André ?

enregistrement facture au format xlsm

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager