Discussion :

[EDzepe]

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
test pdf.xlsmtest pdf.xlsm

[Invité]

Bonjour,

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

[EDzepe]

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

Code :

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

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

[Invité]

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 ?

[Invité]

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

[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

[EDzepe]

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 :

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