XL 2019 Range Value

[safwaty]

Bonjour à toutes et à tous,

J'ai besoin de vos lumieres sur code programmation vba.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Registre " & Range("B12").Value & " " & Range("B13").Value & " " & Range("B14").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False

mon probleme est le suivant ; si
Range("B13").Value = 0 Ne pas tenir en compte
Merci par avance.

 

[M12]

Bonjour,

Mettre une condition avant

Dim Nom$
If Range("B13").Value = 0 Then
  Nom = Range("B12").Value & " " & Range("B14").Value
Else
  Nom = Range("B12").Value & " " & Range("B13").Value & " " & Range("B14").Value
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Registre " & Nom & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False

 

[job75]

Bonjour safwaty, M12, le forum,

Ou bien :

ActiveSheet.ExportAsFixedFormat xlTypePDF, CheminDossier & "Registre " & [B12] & IIf([B13] = 0, "", " " & [B13]) & " " & [B14]

Bonne journée.

 

[safwaty]

Merci 🙂