Modif code Rajout de cellule

Bonjour Forum....!

Besoin d'un petit coup de pouce sur une macro.

sur la ligne

NFichier = Range("F9") ???????? & Format(Now, " dd-mmm-yyyy") & " à " & Format(Now, "hh-mm") & ".pdf"

sur la macro ci dessous je souhaiterai rajouter après Range("F9")

2 cellules de ma feuil active qui se trouve en H2 et G2 qui corresponde a 2 numéros

Merci a vous !

Sub Macro1()

Dim Chemin As String

Dim NFichier As String

Chemin = "D:\DEVIS WILLY\Devis 2019\DEVIS-FACTURES\DEVIS-PDF\"

NFichier = Range("F9") & Format(Now, " dd-mmm-yyyy") & " à " & Format(Now, "hh-mm") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _

:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

loisphil a écrit :
Bonjour Forum....!
2 cellules de ma feuil active qui se trouve en H2 et G2 qui corresponde a 2 numéros

Pas de fichier ? et les deux numéros on fait au pif ? H2 et G2 existe déjà c'est juste qu'il n'y a rien dedans et comme tu ne

nous dis pas ce qu'il doit y avoir dedans …..

Merci pour ton temps

Voici le fichier le bouton est PDF sur feuil devis

je ferai la même chose sur la feuille facture

Merci a toi

1trame3.xlsm (37.93 Ko)

Merci résolu ....