Re-bonjour
Je reviens vous demander de l'aide un autre blocage =)
Je viens d'intégrer un numéro de facture que je souhaite incrémenter.
La macro est faite => module 1 dans le fichier
Parcontre quand je souhaite rajouter le numéro de la facture quand j'enregistre le PDF mais j'ai une erreur, je pense que c'est dnas le format qui est pour l'instant en texte.
Sub Export_1()
'export facture pdf
info1 = Sheets("Facture").Range("B11")
info2 = Sheets("Facture").Range("E11")
info3 = Sheets("Facture").Range("B12")
info4 = Sheets("Facture").Range("C18")
Texte = info1 & "-" & info2 & "-" & info3 & "-" & info4 & ".xls"
Application.DisplayAlerts = False
ChDir "C:\Users\Adrien\Desktop\Maman\Factures"
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=[color=#FF4000]Texte, _[/color]
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Par quoi je dois le remplacer ?
Mon autre blocage est que je souhaite avoir un compteur de facture pour chaque client ( colonne Q feuille Informations)
Un client peut très bien ne pas avoir de facture pendant 1 ou 2 mois..
Dans mes précédentes macro j'ai fait un sorte d'exporter un PDF seulement si le client a besoin d'une facture ( total > 0)
Est-ce que auriez une solution ? Comment dois-je intégrer cette macro dans ma boucle ?
Merci d'avance =)