création fichier database facture PDF

Version imprimable

21/05/2020, 16h17
EDzepe

1 pièce(s) jointe(s)

création fichier database facture PDF

Bonjour
Débutant en vba j'ai fait une macro qui sauvegarde la facture que je fais en PDF
jusque la pas de problème, le fichier se crée mais je voudrais que le fichier pdf soit directement nommé avec le nom du titulaire de la facture et la je cale
Pouvez-vous m'aider
merci
Pièce jointe 567120 Pièce jointe 567120
21/05/2020, 16h24
Invité

Citation:

Envoyé par EDzepe

Bonjour,

Pourquoi ne pas mettre directement votre code plutôt que le fichier. Vous aurez plus de réponses...

Bonjour
Je pensais que c’était plus facile avec le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub pdf()
 
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="D:\telechargements\eddy\NomClasseur.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
 
End Sub

21/05/2020, 16h30
Invité

Citation:

Envoyé par EDzepe

OK, et où se trouve le titulaire de la facture (sous-entendu la variable) ? Peut-il y avoir des caractères spéciaux dans le nom ?

Citation:

Envoyé par EDzepe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub pdf()
 
Dim FactureNom As String, Repertoire As String
 
  With Sheets("Facture")
 
       FactureNom = "Facture " & Format(.Range("B12"), "0000") & " " & .Range("C5")
       Repertoire = "D:\telechargements\eddy\"
      ' Repertoire = ActiveWorkbook.Path & "\"
 
       .ExportAsFixedFormat Type:=xlTypePDF, _
          Filename:=Repertoire & FactureNom & ".pdf", _
          Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 End With
 
End Sub

21/05/2020, 18h28
EDzepe

Merci à vous
Mais mon but est de comprendre aussi je vais analyser la macro et si je ne comprends pas tout je reviendrai vers vous si vous voulez bien
merci bonne soirée

1 pièce(s) jointe(s)

database

Bonjour

Avec l'aide du forum j'ai pu améliorer ma facture, je rencontre cependant un dernier souci.
J'ai créé une macro qui enregistre l'historique des factures le problème c'est que chaque fois que j’enregistre il publie bien un pdf, mais dans mon tableau historique_facture il m'écrase chaque fois la même ligne et il ne marque pas le No de facture dans le fichier facture (B11)
Merci de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Tableau() ligne = Sheets("Historique_facture").Range("A2").End(xlDown).Row + 1 Sheets("Historique_facture").Range("A" & ligne).Value = Sheets("Facture").Range("B11").Value Sheets("Historique_facture").Range("B" & ligne).Value = Sheets("Facture").Range("C1").Value Sheets("Historique_facture").Range("C" & ligne).Value = Sheets("Facture").Range("C5").Value Sheets("Historique_facture").Range("D" & ligne).Value = Sheets("Facture").Range("C6").Value Sheets("Historique_facture").Range("E" & ligne).Value = Sheets("Facture").Range("c7").Value Sheets("Historique_facture").Range("F" & ligne).Value = Sheets("Facture").Range("E41").Value Sheets("Facture").Range("A17:c35").ClearContents Sheets("Facture").Range("b12").ClearContents End Sub

Citation:

Envoyé par EDzepe

Bonjour,

La question n'a rien à voir avec celle d'origine, si le cas se représente, il vous faut ouvrir une nouvelle discussion.

Sinon, pour répondre à la question posée :
Nb : Ligne est un mot réservé, il vous faut en changer. Sinon, est-ce normal que la cellule C1 contienne une date ? Cela m'étonnerait que votre sauvegarde en pdf fonctionne.

Code:

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
 
Sub Tableau()
 
Dim LigneFacture As Long
Dim ShFacture As Worksheet
 
 
    Set ShFacture = Sheets("Facture")
    If ShFacture.Range("B11") = "" Then
       MsgBox "Aucun numéro de facture !", vbCritical
       Exit Sub
    End If
 
    With Sheets("Historique_facture")
         LigneFacture = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & LigneFacture).Value = ShFacture.Range("B11").Value
        .Range("B" & LigneFacture).Value = ShFacture.Range("C1").Value
        .Range("C" & LigneFacture).Value = ShFacture.Range("C5").Value
        .Range("D" & LigneFacture).Value = ShFacture.Range("C6").Value
        .Range("E" & LigneFacture).Value = ShFacture.Range("C7").Value
        .Range("F" & LigneFacture).Value = ShFacture.Range("E41").Value
    End With
 
    With ShFacture
        .Range("A17:C35").ClearContents
        .Range("B11:B12").ClearContents
    End With
 
    Set ShFacture = Nothing
 
End Sub

24/05/2020, 11h26
EDzepe

Merci je vais regardé et la prochaine fois je ferai une autre discussion.
Je sais pas par quel miracle mais en Pdf c'est ok
Bon dimanche