Enregistrement PDF avec nom variable
Je débute sur le VBA et j'ai encore des difficultés à trouver des solutions à mes points de blocages...
Malgré les nombreux post sur l'enregistrement avec valeur de cellule, je n'arrive tout de même pas à faire fonctionner ma macro...
Voici ma macro actuelle :
Sub MAJ_Enregistremnt_PDF()
'
Range("G9").Select
ActiveWorkbook.RefreshAll
Rows("1:12").Select
Range("A12").Activate
Selection.EntireRow.Hidden = True
Sheets("Calculatrice").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"T:\Cofriset_Statistiques_Agences\Agences\Calculatrice GWP\Calculatrice_GWP.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Je souhaiterais que l'enregistrement en PDF soit renommé avec le numéro client (feuille Calculatrice, cellule D3) : "N°Client"&Calculatrice_GWP.pdf
Merci mille fois pour votre aide
Bonjour,
Quelque chose comme ceci:
Sub MAJ_Enregistremnt_PDF()
Dim Num_Client as string
ActiveWorkbook.RefreshAll
Rows("1:12").EntireRow.Hidden = True
Num_Client = Range("D3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"T:\Cofriset_Statistiques_Agences\Agences\Calculatrice GWP\" & Num_Client & " Calculatrice_GWP.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End SubCdlt
Merci infiniment pour votre aide, c'était tout bête mais je finirais pas avoir les bons réflexes